Office中国论坛/Access中国论坛

标题: 根据下拉菜单选择的列名称，筛选子窗体对应的列数据 [打印本页]
作者: herry2003aa    时间: 2019-11-8 13:51
标题: 根据下拉菜单选择的列名称，筛选子窗体对应的列数据
根据下拉菜单选择的列名称，筛选子窗体对应的列数据
详见文件


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

老师你好，您给的方法对于字段固定条件的倒是没有问题，现在我遇到的问题是，条件字段不固定，我根据需要选择相应的字段进行条件判断。老师您能给做个例子吗，可能我不是很了解你的想法。
作者: Henry D. Sy    时间: 2019-11-9 00:05
  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    时间: 2019-11-9 00:10
  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
复制代码





欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3