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

Henry D. Sy

还要避免null值错误！

pascal331

1. Private Sub 地区_AfterUpdate()
   
2.     Dim strT As String
   
3. 
   
4.     Dim vItem As Variant
   
5. 
   
6.     Dim sSQL As String
   
7. 
   
8.     If 地区 = "" Then
   
9.    
   
10.         sSQL = "select * from dzj"
    
11. 
    
12.     Else
    
13. 
    
14.         For Each vItem In Me.地区.ItemsSelected
    
15. 
    
16.             strT = strT & "'" & vItem & "',"
    
17. 
    
18.         Next
    
19. 
    
20.         sSQL = "select * from dzj where 地区 in (" & strT & ")"
    
21.     If strT = "" Then
    
22.     sSQL = "select * from dzj"
    
23.    
    
24.     End If
    
25.     End If
    
26.     Me.dzj.Form.RecordSource = sSQL
    
27. 
    
28. End Sub

复制代码

还是无法筛选啊？
求解

pascal331

Henry D. Sy 发表于 2011-12-10 17:03
还要避免null值错误！

1. Private Sub 地区_AfterUpdate()
   
2.     Dim strT As String
   
3. 
   
4.     Dim vItem As Variant
   
5. 
   
6.     Dim sSQL As String
   
7. 
   
8.     If 地区 = "" Then
   
9.    
   
10.         sSQL = "select * from dzj"
    
11. 
    
12.     Else
    
13. 
    
14.         For Each vItem In Me.地区.ItemsSelected
    
15. 
    
16.             strT = strT & "'" & vItem & "',"
    
17. 
    
18.         Next
    
19. 
    
20.         sSQL = "select * from dzj where 地区 in (" & strT & ")"
    
21.     If strT = "" Then
    
22.     sSQL = "select * from dzj"
    
23.    
    
24.     End If
    
25.     End If
    
26.     Me.dzj.Form.RecordSource = sSQL
    
27. 
    
28. End Sub

复制代码

还是无法筛选啊？只是在不选的时候能全显
求解

Henry D. Sy

strT = strT & "'" & Me.地区ItemData(vItem) & "',"

Henry D. Sy

把全部去掉：

1. Private Sub 地区_AfterUpdate()
   
2.     Dim strT As String
   
3.     Dim vItem As Variant
   
4.     Dim sSQL As String
   
5.     For Each vItem In Me.地区.ItemsSelected
   
6.         strT = strT & "'" & Me.地区.ItemData(vItem) & "',"
   
7.     Next
   
8.     If strT = "" Then
   
9.         MsgBox "请选择！"
   
10.         Exit Sub
    
11.     End If
    
12.     sSQL = "select * from dzj where 地区 in (" & strT & ")"
    
13.     Me.dzj.Form.RecordSource = sSQL
    
14. End Sub

复制代码

pascal331

Henry D. Sy 发表于 2011-12-10 17:52
把全部去掉：

非常感谢，功能已实现。我现在慢慢分析学习下您给的代码
谢谢！！

pascal331

Henry D. Sy 发表于 2011-12-10 17:52
把全部去掉：

万分感激您对我的耐心帮助，这使我在access的学习中增加信心
在分析您给的代码后我初步了解了vb sql和recordsource的用法并实际运用到了自制程序的其它窗体中，去除了多余的两个查询与子窗体。

bbpst

建议楼主把改好后的文件转换到低版本的,然后下载一下学习学习{:soso_e181:}

bbpst

谢谢楼主分享

Henry D. Sy

pascal331 发表于 2011-12-10 23:10
万分感激您对我的耐心帮助，这使我在access的学习中增加信心
在分析您给的代码后我初步了解了vb s ...

简单的方法就是用分组报表，然后分组统计！
还可以用主子报表，但我打不开你的库，不知道库的具体情况，也就不明白如何连接主子表。
也许需要重新生成连接字段！