请教combox控件itemdata值越界问题！

Question

在VB中使用combox控件，需要将单位代码写在Itemdata中，将单位名称写在list中，
例如：combox1.additem "某某单位名称"
      combox1.itemdata(0) = 10010000000000
单位很多，下拉选择一个单位后，便可通过combox1.itemdata(combox1.listindex)得到单位代码。问题是：
itemdata是一个长整型的数组，可是单位代码的长度超过了长整型，不想修改单位代码长度和编码规则,为每个combox定义一个对应的字符型数组能解决问题，但是觉得太麻烦，有什么简单的发法解决这个问题？请高手帮忙!!!

Answer 1

用 Microsoft Data Bound List Controls 6.0 控件

Answer 2

那就用数据组做中间对应表了.
dim abc() as long '或String 
'假设你的有100个单位
redim abc(99)添加时,你将单位添加到combox里,单号写到数组里.
数组索引号添加到itemdata里(不添加也可,直接用listindex对应)

Answer 3

谢谢 Tiger_Zhao,我先试一下

Answer 4

使用DBCombo 还必须与Data结合使用，要连接数据库？有些麻烦
单位代码和单位名称我已经从数据库得到了，可以像combox控件那样加进去吗？只要能选择一个单位名称得到相应的代码就可以了？WM_JAWIN 说的方法有些笨

Answer 5

那只能用 WM_JAWIN 的方法了，如果比较常有封装成一个 UserControl 还是值得的