VB中 让List1.List的内容循环

改成这样吧：re.open

"select

*

from

supp

where

supp_name

='"+

list1.list(list1.listindex)+"'",

con,

3,

3

原因在tsql语句中没有将连接符与控件进行相连，那么语句认为为是字符串，而不是控件，所以会报错。

1、首先，打开VB软件，在窗体上面添加一个列表框，如下图所示。

2、单击列表框，在属性窗口中，设置列表框的属性和内容，如下图所示。

3、在窗体上面，添加两个命令按钮，如下图所示。

4、分别设置，两个命令按钮的属性，名称分别为“复制”，“清除”，如下图所示。

5、双击“清除”命令按钮，编辑其代码，如下图所示。

6、运行程序，验证结果。选中列表框中的“语文”，点击“复制”命令按钮，则在列表框中，复制了“语文”项目；再选择“政治”，点击“清除”命令按钮，则列表框中“政治”项目消失。如下图所示。

如果想加入的是固定不变的，可以点击下拉列表框的List属性，逐个加入（按Ctrl+Enter）换行。

如果是动态的用以下代码：

Combo1.Clear

Combo1.Additem "你要添加的内容" '如果多条，可以对这条语句进行循环 *** 作

---