一个小问题，求指导
vb吧
全部回复
仅看楼主
level 10
吼类 楼主
上图不知道有没有描述清楚
肯请指导，给个思路
2015年03月30日 13点03分 1
吧务
level 13
武林神话之剑客
这个很简单，下拉框的内容应该是从这个数据表中读取的，那么在读取的时候，把cpde值存入一个数组比如a()，这样，保存时code的值就是a(combo1.listindex)。
2015年03月30日 13点03分 2
武林神话之剑客
回复 骄傲地蚂蚁 :也行，但这样的话code的值必须连续，若是不连续就会出错。
2015年03月30日 14点03分
武林神话之剑客
回复
����������
:我以为是楼主呢，这只是举例，数据少，若是超过100呢。。。
2015年03月30日 14点03分
骄傲地蚂蚁
回复
��������֮����
:就事论事吧，他只列2位；不牵涉自动编号或主键，应该不会出错。
2015年03月30日 14点03分
武林神话之剑客
回复 骄傲地蚂蚁 :也是。
2015年03月30日 14点03分
level 1
小xiaoshui
下拉框有个 itemdata 属性，
你将 04 绑到 itemdata 就行了，但那个只支持数字
2015年03月31日 06点03分 3
level 1
小xiaoshui
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
2015年03月31日 06点03分 4
level 1
小xiaoshui

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
2015年03月31日 06点03分 5
1