组合框为条件字段+条件=查询结果子窗体里显示

打字比你快

组合框里的值为条件字段(即：表里的列字段)，当选择了字段，再选择条件等于某值后，把查询出来的记录显示在子窗体里。不知怎样做？？？见附见。

asklove

你试试结果是不是这样：
Private Sub Command20_Click()
Dim SQLstr As String
Dim SQLstr1 As String

SQLstr = "SELECT 查询1.省份, 查询1.城市, 查询1.姓名 FROM 查询1"

If Me.Combo16 = "等于" Then
   SQLstr1 = "="
SQLstr = SQLstr & " where " & Me.Combo14 & SQLstr1 & "'" & Me.Text18 & "'"
Else
   SQLstr1 = " like "
SQLstr = SQLstr & " where " & Me.Combo14 & SQLstr1 & "'" & Me.Text18 & "'" & " & '*'"
End If

Me.表1_子窗体.Form.RecordSource = SQLstr
Me.表1_子窗体.Requery
End Sub

打字比你快

SQLstr1 = " like "
SQLstr = SQLstr & " where " & Me.Combo14 & SQLstr1 & "'*" & Me.Text18 & "*'"
谢谢asklove，不过“包含”查询还不行。查不出来。是不是前面差了一个*，上面我改了一下就可以了。还是多谢了。

asklove

哦，我忘了前面加“*”了
2007你用过没有？它的子窗体中类似EXECEL筛选功能
你不用费心思设查询条件，用户可以自己组合条件查询记录

打字比你快

不好意思，没有用2007。以后可以去试用一下。总觉得界面看不习惯，可能适应了界面就好多了。还是多谢了。

luhao

seesee

luhao

还看不到吗？

iamwg

学习一下，谢谢