根据下拉菜单选择的列名称，筛选子窗体对应的列数据

herry2003aa

根据下拉菜单选择的列名称，筛选子窗体对应的列数据
详见文件

tmtony

设置
子窗体.form.recordsource ="select * from 表 where 字段=条件"

herry2003aa

tmtony 发表于 2019-11-8 17:01
设置
子窗体.form.recordsource ="select * from 表 where 字段=条件"

老师你好，您给的方法对于字段固定条件的倒是没有问题，现在我遇到的问题是，条件字段不固定，我根据需要选择相应的字段进行条件判断。老师您能给做个例子吗，可能我不是很了解你的想法。

Henry D. Sy

1. Private Sub Text65_AfterUpdate()
   
2.     Dim sSQL As String
   
3.     If Not IsNull(Me.Text63) Then
   
4.        If Me.Text63 = "ID" Then
   
5.            sSQL = "SELECT * FROM 表1 WHERE " & Me.Text63 & "=" & Me.Text65
   
6.        Else
   
7.           If IsNull(Me.Text65) Then
   
8.              sSQL = "SELECT * FROM 表1 WHERE " & Me.Text63 & " IS NULL"
   
9.           Else
   
10.              sSQL = "SELECT * FROM 表1 WHERE " & Me.Text63 & "='" & Me.Text65 & "'"
    
11.           End If
    
12.        End If
    
13.        Me.表1_子窗体.Form.RecordSource = sSQL
    
14.     End If
    
15. End Sub

复制代码

Henry D. Sy

1. Private Sub Text65_AfterUpdate()
   
2.     Dim sSQL As String
   
3.     If Not IsNull(Me.Text63) Then
   
4.        If Me.Text63 = "ID" Then
   
5.            sSQL = "SELECT * FROM 表1 WHERE ID=" & Me.Text65
   
6.        Else
   
7.           If IsNull(Me.Text65) Then
   
8.              sSQL = "SELECT * FROM 表1 WHERE " & Me.Text63 & " IS NULL"
   
9.           Else
   
10.              sSQL = "SELECT * FROM 表1 WHERE " & Me.Text63 & "='" & Me.Text65 & "'"
    
11.           End If
    
12.        End If
    
13.        Me.表1_子窗体.Form.RecordSource = sSQL
    
14.     End If
    
15. End Sub

复制代码