VB6.0中TDBgrid把某列设置成combox后，如何赋值

VB6.0中TDBgrid把某列设置成combox后，怎么赋值
本帖最后由 q740362425 于 2011-12-30 17:38:05 编辑 问题如题
我用代码：
TDBG1.columns(1).valueitems.presentation =dbgcombobox
strsql="select name from 表1"

怎么把name赋值给TDBG1.columns(1)
本来要用Additem但是没这个属性啊
求代码！！！！

求各位大师、大神、高手们帮帮忙额~~急用！！！！！！！


------最佳解决方案--------------------
外形上像combobox,本质上不是combobox,没有那个属性,
解决办法:加一个listbox控件或动态数组菜单,在点击那个小按钮时写代码填充listbox或菜单,控制弹出位置显示出来

------其他解决方案--------------------
天啊~~~为什么都没人回答~~
是因为太复杂~太难了~~没人知道
还是因为太简单了~~不屑于回答~~

求大大们~~支援额~~都等了3天了