如何在窗体里进行多选？

nixi

请教：

通常情况下，我们都是在比如说，窗体A中选中一个选项，然后再窗体B中自动显示相应的查询结果。。。

比如说：

                         表A                                                     表B

                      江苏省                                               张三                0139。。。。          住址。。。。

                                                                                李四               0136。。。。            住址。。。

                                                                               等等

但是我想在表A中同时选中2个或多个信息，然后在表B中显示所有相应的信息。。。

比如说：

                         表A                  （ID）                                          表B                                                   (ID)

                      江苏省  江都市     101                       张三               0139。。。。          住址。。。。  101

                     安徽省  马鞍上市    104                      李四               0136。。。。          住址。。。      101

                                                                               王二               0134。。。。。       住址。。。      104

                                                                              等等。。。。

请问有什么办法解决？ 我在表A的属性中把单选改为多选以后, 表B就什么都显示不了了。

我写了个程序，可是运行后什么反应都没有。。。还望高手指点一二：

   Dim i As Integer
   Dim str As String
   Dim var As String
   Set frm = Forms!dangan

   For i = 1 To frm.Sheng.ListCount
   If frm.Sheng.Selected(i) = True Then
   str = str & "ID='" & frm.Systemlist.Column(2, i) & _
       "'or"
    End If
   Next i
    str = "Select chaxun1.name , chaxun1.telefon, chaxun1, address, From chaxun1 where " & str
    frm.xiangxi.RowSource = Mid(str, 1, 9)
     i = 0
     For i = 1 To frm.sheng.ListCount
       If frm.sheng.Selected(i) = True Then
       frm.sheng.Selected(i) = False
       End If
      
    Next i

linag516