请各位看看下述功能应怎么实现（access2010）

pascal331

我用的是access2010

Henry D. Sy

左面那个空件是列表框吗？
列表框可以多选的。
我是03版本，打不开你的库！

pascal331

Henry D. Sy 发表于 2011-12-10 16:38
左面那个空件是列表框吗？
列表框可以多选的。
我是03版本，打不开你的库！

是列表框，但是不能多选啊

Henry D. Sy

应该可以，在属性里设！

Henry D. Sy

可以使用窗体属性表、宏或 Visual Basic 来设置 MultiSelect 属性。
该属性只能在窗体“设计”视图中进行设计。

使用 ListIndex 属性可以返回所选项目的索引编号。当 MultiSelect 属性设为“展开的”或“简单”时，可以使用列表框的 Selected 属性或 ItemsSelected 集合来确定所选的项目。此外，当 MultiSelect 属性设为“展开的”或“简单”时，列表框控件的值将始终为 Null。

如果 MultiSelect 属性设为“展开的”，重新查询列表框将会清除用户的所有选择。

pascal331

Henry D. Sy 发表于 2011-12-10 16:38
左面那个空件是列表框吗？
列表框可以多选的。
我是03版本，打不开你的库！

1. Option Compare Database
   
2. Option Explicit
   
3. 
   
4. Private Sub Form_Load()
   
5. Dim strT As String
   
6. Dim vItem As Variant
   
7. For Each vItem In Me.地区.ItemsSelected
   
8. strT = strT & vItem & ","
   
9. Next
   
10.     Call 地区_AfterUpdate
    
11. End Sub
    
12. 
    
13. Private Sub 关闭_Click()
    
14.     DoCmd.Close
    
15. End Sub
    
16. 
    
17. Private Sub 地区_AfterUpdate()
    
18.     If 地区 = "(全部)" Then
    
19.         dzj.Form.Filter = ""
    
20.         dzj.Form.FilterOn = False
    
21.     Else
    
22.         dzj.Form.Filter = "地区='" & 地区 & "'"
    
23.         dzj.Form.FilterOn = True
    
24.     End If
    
25. End Sub
    

复制代码

会不会是代码有问题？

pascal331

Henry D. Sy 发表于 2011-12-10 16:42
可以使用窗体属性表、宏或 Visual Basic 来设置 MultiSelect 属性。
该属性只能在窗体“设计”视图中进行 ...

谢谢，看到了。现在能多选了，但是子窗体无法显示数据了

Henry D. Sy

试试把加载事件去掉
然后

1. Private Sub 地区_AfterUpdate()
   
2.     Dim strT As String
   
3.     Dim vItem As Variant
   
4.     Dim sSQL As String
   
5.     If 地区 = "(全部)" Then
   
6.         sSQL = "select * from 你的表名"
   
7.     Else
   
8.         For Each vItem In Me.地区.ItemsSelected
   
9.             strT = strT & "'" & vItem & "',"
   
10.         Next
    
11.         sSQL = "select * from 你的表名 where 地区 Not in (" & strT & ")"
    
12.     End If
    
13.     Me.子窗体名.Form.RecordSource = sSQL
    
14. End Sub

复制代码

Henry D. Sy

搞错了我，没有not

Henry D. Sy

其实也不需要"全部",不选就是全部！