一个小问题，求指导

上图不知道有没有描述清楚
肯请指导，给个思路

这个很简单，下拉框的内容应该是从这个数据表中读取的，那么在读取的时候，把cpde值存入一个数组比如a()，这样，保存时code的值就是a(combo1.listindex)。

不感兴趣

开通SVIP免广告

下拉框有个 itemdata 属性，
你将 04 绑到 itemdata 就行了，但那个只支持数字

Private Sub Command1_Click()
MsgBox Combo1.ItemData(Combo1.ListIndex) & " " & Combo1.text
End Sub
Private Sub Form_Load()
CmbAddItem Combo1, "±Ê¼Ç±¾", 1
CmbAddItem Combo1, "Ì¨Ê½»ú", 2
End Sub
Function CmbAddItem(cmb As ComboBox, text As String, data As Long)
cmb.AddItem text
cmb.ItemData(cmb.NewIndex) = data
End Function

Private Sub Command1_Click()
MsgBox Combo1.ItemData(Combo1.ListIndex) & " " & Combo1.text
End Sub
Private Sub Form_Load()
CmbAddItem Combo1, "笔记本", 1
CmbAddItem Combo1, "台式机", 2
End Sub
Function CmbAddItem(cmb As ComboBox, text As String, data As Long)
cmb.AddItem text
cmb.ItemData(cmb.NewIndex) = data
End Function

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

11回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六