大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
select t.* ,substr(t.goods_code,-2) from codegoods t where substr(t.goods_code,0,2)='02' order by substr(t.goods_code,-2)
创新互联专注于企业成都全网营销、网站重做改版、霞浦网站定制设计、自适应品牌网站建设、H5技术、商城网站开发、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为霞浦等各大城市提供网站开发制作服务。
这样就可以啦。用SUBSTR就可以实现这个功能
添加一个OPTION控件,复制-粘贴,建立 控件组
比如复制6个
代码如下
Private Sub Command1_Click()
For i = 0 To 5
If Option1(i).Value = True Then MsgBox Option1(i).Caption "被选中"
Next
End Sub
可以在VB软件中的标准工程中创建
材料\工具:带有VB软件电脑一台
1、启动VB6.0,创建一个标准工程。
2、在窗体上右键选择“菜单编辑器”
3、在弹出的“菜单编辑器”窗口中,输入标题和名称,在标题括号内用“”表示可以调出此功能,输入完毕,保存之后,就能在下面的显示区看见我们刚才编辑的菜单名称
4、在显示区中单击已经建好的菜单下面,再创建一个菜单
5、创建的菜单是否是原来新建的一级子菜单,或是二级子菜单,我们就可以通过编辑区上的方向键来实现
6、创建完毕后,确定即可,现在在窗体上就可以看见刚才我们创建的下拉菜单了