关于筛选子窗体的内容的代码

daxin1

我想在主窗体里面做个按钮 直接筛选子窗体内容大哥哥帮帮忙啊。

我上传附件请帮忙写下啊。

咱家是猫

.............

daxin1

版主 还在吗 为什么我ME.后面找不子窗体啊?

daxin1

我明白了谢谢版主

daxin1

版主 两个条件一起显示出来怎么写啊？

Henry D. Sy

1. '---------------------------------------------------------------------------------------
   
2. ' Procedure : Command9_Click
   
3. ' DateTime  : 2011/9/29 11:01
   
4. ' Author    :  Henry D. Sy
   
5. ' Purpose   :
   
6. '---------------------------------------------------------------------------------------
   
7. '
   
8. Private Sub Command9_Click()
   
9.     Dim strSQL As String
   
10.     Dim strWhat As String
    
11.     Dim intI As Integer
    
12. 
    
13.     On Error GoTo Command9_Click_Error
    
14. 
    
15.     If IsNull(Me.条件) Then
    
16.         MsgBox "请输入条件"
    
17.         Exit Sub
    
18.     End If
    
19.     intI = Len(Me.条件)
    
20.     strWhat = Left(Me.条件, intI - 1)
    
21.     strSQL = "SELECT 订单.* FROM 订单 WHERE 货主名称 IN (" & strWhat & ") ORDER BY 订单.货主名称"
    
22.     Me.订单.Form.RecordSource = strSQL
    
23. 
    
24.     On Error GoTo 0
    
25.     Exit Sub
    
26. 
    
27. Command9_Click_Error:
    
28. 
    
29.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
30. 
    
31. End Sub

复制代码

daxin1

Henry D. Sy 发表于 2011-9-29 11:06

版主你好 谢谢你的解答
我现在只是想我要筛选的条件写在代码里  
你要是有时间帮我看下能否写出来  附件里已写好条件
{:soso_e100:}

Henry D. Sy

请描述清楚点，到底你要得到什么样子的结果！

daxin1

版主你好
我要筛选子窗体的条件固定的所以要写在代码里，这样我只要点一下就能看到想看的东西了
麻烦你看下能否写出来  谢谢了

daxin1

那位大哥哥帮帮忙啊，这个问题是不是无解啊