Office中国论坛/Access中国论坛

标题: 如何在窗体里进行多选？ [打印本页]

作者: nixi 时间: 2006-8-17 14:42
标题: 如何在窗体里进行多选？
请教：

通常情况下，我们都是在比如说，窗体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 时间: 2009-9-16 14:21

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)