vb combox绑定数据库，下拉菜单如何让第一行为空白选项(空白行+数据）？

时间旅行者发布于 2017-07-21 20:45， 4319 次点击

由于设计考虑到选项的选与不选，下面代码如何修改，能让combox下拉菜单的第一行为空选项？

sql = “连接数据库语句”
   rst.Open sql, Cnn, 1, 3
    Do While Not rst.EOF
combo1.AddItem rst("单位名称")
rst.MoveNext
    Loop
rst.Close
If combo1.ListCount Then combo1.ListIndex = -1
（补充，Load加载为初始空白的方式就不用考虑了）
请老司机们帮一下，谢谢!!

3 回复

风吹过b2017-07-21 21:07

要么你数据库里做个空记录，要么在
Do While Not rst.EOF
这句之前加载一个空的。

还有就是允许用户输入，而不是限制只能选择。这种情况，置text 属性为空。

时间旅行者2017-07-23 00:43

以下是引用风吹过b在2017-7-21 21:07:56的发言：

要么你数据库里做个空记录，要么在
Do While Not rst.EOF
这句之前加载一个空的。

还有就是允许用户输入，而不是限制只能选择。这种情况，置text 属性为空。

为了避免输入错误影响统计和查询，只允许用选择方式，可以指教一下在 Do While Not rst.EOF之前加载空项的方式吗

ZHRXJR2017-07-23 07:47

回复楼主时间旅行者

首先清除Combo1的所有选项：
Combo1.Clear
在连接数据库之前，先加载一个空选项：
Combo1.AddItem ""
再连接数据库加载其他项目：
sql = “连接数据库语句”
   rst.Open sql, Cnn, 1, 3
    Do While Not rst.EOF
        Combo1.AddItem rst("单位名称")
    rst.MoveNext
    Loop
    rst.Close
就可以了。

[此贴子已经被作者于2017-7-24 08:53编辑过]