下拉框自定义值如何实现?
有一个下拉框的值是从数据库查询出来的
查询语句为:
select contract_id from contract;
现在需要在查询出来的值中加入自定义的值
比如加入: "All ", "All_BJ ", "All_SH ", "All_GZ ",而且这些自定义的值要加在下拉框所有值的最前面,请问该如何实现?
谢谢.
[解决办法]
dim strName as String
strName= "All " & rs.fields( "Name ").Value
combox.addItem(strName)
[解决办法]
能不能在用数据库查询出来，填充combox以后
再用 AddItem 方法添加。
这样你想加什么就加什么。
[解决办法]
你可以:
strsql= "select contract_id from contract "
set rs=g_cn.excute(strsql)
cbo.additem "All "
cbo.additem "All_BJ "
.....
rs.movefirst
do until rs.eof
cbo.additem rs.fields( "Contract ")
rs.MoveNext
loop
cbo.additem先加的會在最前面顯示
[解决办法]
遍历下拉框的所有值还不会吗? 通过每个值的特征(位置,内容)来决定加什么,修改一下就是了.
