用选项按钮如何实现条件查询,谢谢

yanwei82123300

请各位老师看看这个问题想利用选项按钮来实现：
要实现：点击“查找按钮”就根据选项按钮选中的条件进行查询，子窗体是合同列表。
谢谢

yanwei82123300

轻风 发表于 2015-11-4 08:20

谢谢清风老师帮助！！！

admin

轻风 发表于 2015-11-4 08:20

强！好代码

轻风

1. Private Sub Command51_Click()
   
2. 
   
3.     Select Case Frame34
   
4.     Case 1    '合同编号
   
5.         Me.合同筛选子窗体.Form.Filter = "合同编号 = '" & Me.合同编号 & "'"
   
6. 
   
7.     Case 2    '合同名称
   
8.         Me.合同筛选子窗体.Form.Filter = "合同名称 Like '*" & Me.合同名称 & "*'"
   
9. 
   
10.     Case 3    '对方单位
    
11.         Me.合同筛选子窗体.Form.Filter = "对方单位 Like '*" & Me.对方单位 & "*'"
    
12. 
    
13.     Case 4    '合同金额
    
14.         Me.合同筛选子窗体.Form.Filter = "合同金额 >= " & Me.合同金额小 & " AND 合同金额 <= " & Me.合同金额大
    
15. 
    
16.     Case 5    '签订日期
    
17.         Me.合同筛选子窗体.Form.Filter = "签订日期 Between #" & 开始日期 & "# And #" & 结束日期 & "#"
    
18. 
    
19.     End Select
    
20. 
    
21.     Me.合同筛选子窗体.Form.FilterOn = True
    
22. End Sub
    
23. 
    
24. Private Sub Command53_Click()
    
25.     For Each ctl In Me.Controls
    
26.         If ctl.ControlType = acTextBox Then ctl.Value = Null
    
27.     Next
    
28.     Me.合同筛选子窗体.Form.FilterOn = False
    
29. End Sub
    

复制代码