Question

vb用listbox中的选项作为查询条件的问题。

麻烦那位高手帮我分析一下我的句子对不对。listbox 是一个复选空间。

For i = 0 To List1.Columns - 1

If List1.Selected(i) = True Then
sql2 = "select distinct 员工 from mulu where 公司='List1.List(i)'"
rs2.Open sql2, cnn, adOpenKeyset,adLockOptimistic
rs2.MoveFirst
for j=0 to rs2.recordcount

If rs2.RecordCount <> 0 And rs2.EOF<> True Then
List2.AddItem " rs2.Fields('变电站').Value"
rs2.MoveNext
EndIf
next j

EndIf

Next i

Answer 1

For i = 0 To List1.ListCount - 1
    If List1.Selected(i) Then
        sql2 = "select distinct 员工 from mulu where 公司='" & List1.List(i) & "'"
        rs2.Open sql2, cnn, adOpenKeyset, adLockOptimistic
        Do Until rs2.EOF
            List2.AddItem rs2("变电站")
            rs2.MoveNext
        Loop
        rs2.Close
    EndIf
Next i

追问

公司='" & List1.List(i) & "'—— 这个地方理解不了啊，麻烦你在给解释一下 为什么先用单引号 在用双引号。
你是用vb 6.0写的这个代码,还是用vs2010写的？

追答

打个比方，假如有个字符串是这样的：

"公司='百度'"

现在要把“百度”换成一个变量gs，那么我们可以先把这个字符串分成三部分，分别是：

"公司='"      ----别忘记倒数第二个那个单引号

"百度"

"'"               ----这部分就是一个单独的单引号

然后，把“公司”换成变量gs，就成了：

"公司='"

gs

"'"

最后，用&把这三部分连接为一个完整的表达式就是：

"公司='" & gs & "'"

现在，如果把gs换成List1.List(i)，那不就是

"公司='" & List1.List(i) & "'"