DATA控件添加数据时碰到一个小问题,望高手赐教

Question

有一个商品表,包含字段'商品号','商品名'
两个控件,combo1,text1
1,combo1显示所有商品名
2,text1负责显示选中的商品名对应的商品号1搞定了,2不知用什么方法可以解决,感觉不难,但做了些尝试都没成功
本来想定义一个公共动态数组pid(),根据数据条数决定数组长,然后combo1每添加一个条目,记录该条目对应的商品号,然后根据pid(combo1.listindex),决定text1.text显示的商品号
不过动态数组不能在公共区域定义...
然后就想不出办法来了Private Sub Form_Load()
Me.WindowState = 2
Data1.Connect = ";pwd=admin"
Data1.ReadOnly = True
Data1.DatabaseName = Stodb
Data1.RecordSource = "Products"
Data1.Refresh
Do Until (Data1.Recordset.EOF)
    Combo1.AddItem Data1.Recordset.Fields(1)
    Data1.Recordset.MoveNext
    i = i + 1
Loop
End Sub商品号字段是自动增长列,所以不一定连续望高手请教

Answer 1

顺便问一个无关问题,csdn登陆ID后的昵称哪里改?谢谢~.~

Answer 2

在Combo1的Click事件中处理：(思路如下)
rs.open "select 编号 from 表 where 商品名 = '" & Combo1.Text & "'", conn
text1.text = rs!编号修改昵称：“我的技术社区”-->“修改我的社区信息”