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

[liu0958]

由于设计考虑到选项的选与不选，下面代码如何修改，能让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加载为初始空白的方式就不用考虑了）
请老司机们帮一下，谢谢!!

[chuifengde]

循环的外面additem ""不就行了

[脆皮大雪糕]

    sql = “连接数据库语句”
    rst.Open sql, Cnn, 1, 3
    combo1.Additm " "
    Do While Not rst.EOF
        combo1.AddItem rst("单位名称")
​        rst.MoveNext
    Loop
    rst.Close
    If combo1.ListCount Then combo1.ListIndex = -1

[liu0958]

引用 2 楼 chewinggum 的回复:

    sql = “连接数据库语句”
    rst.Open sql, Cnn, 1, 3
    combo1.Additm " "
    Do While Not rst.EOF
        combo1.AddItem rst("单位名称")
​        rst.MoveNext
    Loop
    rst.Close
    If combo1.ListCount Then combo1.ListIndex = -1

谢谢指教，问题已解决

[liu0958]

引用 1 楼 chuifengde 的回复:

循环的外面additem ""不就行了

谢谢指教，问题已解决