请教高手们关于通过DBGRID表实现弹出式窗口的问题

Question

建议你使用combo控件的itemdata属性，如果你的数字代码不是很长的话。
combo控件的每一个item都有一个list和一个itemdata，前者是字符型，后者是数字型。你可以如下将记录集的内容分别写入：rs.open ...
do until rs.eof
combo1.additem rs!wenben
combo1.itemdata(combo1.newindex)=rs!daima
rs.movenext
loop这样文字和数字就一正一反（不可见）关联在combo1的每一项中。在combo1的click事件中可以取出itemdata中的代码：
mydata = combo1.itemdata(combo1.listindex)