根據(jù)下拉菜單選擇的列名稱，篩選子窗體對(duì)應(yīng)的列數(shù)據(jù)

herry2003aa

根據(jù)下拉菜單選擇的列名稱，篩選子窗體對(duì)應(yīng)的列數(shù)據(jù)
詳見(jiàn)文件

tmtony

設(shè)置
子窗體.form.recordsource ="select * from 表 where 字段=條件"

herry2003aa

tmtony 發(fā)表于 2019-11-8 17:01
設(shè)置
子窗體.form.recordsource ="select * from 表 where 字段=條件"

老師你好，您給的方法對(duì)于字段固定條件的倒是沒(méi)有問(wèn)題，現(xiàn)在我遇到的問(wèn)題是，條件字段不固定，我根據(jù)需要選擇相應(yīng)的字段進(jìn)行條件判斷。老師您能給做個(gè)例子嗎，可能我不是很了解你的想法。

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

復(fù)制代碼

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

復(fù)制代碼