十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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)
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:域名注册、虚拟空间、营销软件、网站建设、临湘网站维护、网站推广。
这样就可以啦。用SUBSTR就可以实现这个功能
右键点窗口 用菜单编辑器添加
添加后
VB Form1.frm 用记事本打开能看到
Begin VB.Menu a
Caption = "312"
Begin VB.Menu b
Caption = "13131"
Begin VB.Menu c
Caption = "1"
End
Begin VB.Menu d
Caption = "2"
End
End
End
End
动态生成的控件: Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim myPicture = New System.Windows.Forms.PictureBox() Me.Panel3.Controls.Add(myPicture) myPicture.Size = New System.Drawing.Size(115, 160) myPicture.TabStop = False myPicture.Name = "p" myPicture.Cursor = Cursors.Hand AddHandler myPicture.Click, AddressOf mypic_Click '添加事件 End Sub 处理事件的过程: Private Sub mypic_Click() 'ByVal id As String Dim bookInfo As New BookInfo bookInfo.Show() Me.Parent.Enabled = Fals