查询问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用有点甜在2014-5-9 16:21:00的发言：

Dim cpmc As WinForm.TextBox = e.Form.Controls("产品名称")
Dim lb As WinForm.ComboBox = e.Form.Controls("类别")
Dim pz As WinForm.ComboBox = e.Form.Controls("牌子")

Dim Filter As String = "1=1 "
With e.Form.Controls("产品名称")
    If .Value IsNot Nothing Then
        Filter &= " and 产品名称 like '*" & cpmc.text & "*'"
    End If
End With
With e.Form.Controls("类别")
    If .Value IsNot Nothing Then
        Filter &= " and 类别 ='" & lb.text & "'"
    End If
End With
With e.Form.Controls("牌子")
    If .Value IsNot Nothing Then
        Filter &= " and 牌子 ='" & pz.text & "'"
    End If
End With

If Filter > "" Then

Tables("产品明细表").Filter = Filter

End If

If Filter > "" Then

e.Form.Controls("添加产品").Table.Filter = Filter

End If

[此贴子已经被作者于2014-5-9 16:21:41编辑过]

如果我加入牌子类别，这个代码需要怎么就算产品名称和类别为一个查询，牌子和牌子类别为一个查询

Dim cpmc As WinForm.TextBox = e.Form.Controls("产品名称")

Dim lb As WinForm.ComboBox = e.Form.Controls("类别")

Dim pz As WinForm.ComboBox = e.Form.Controls("牌子")

Dim pzlb As WinForm.ComboBox = e.Form.Controls("牌子类别")

Dim Filter As String = "1=1"

With e.Form.Controls("产品名称")

If .Value IsNot Nothing Then

Filter &= " and 产品名称 like '*" & cpmc.text & "*'"

End If

End With

With e.Form.Controls("类别")

If .Value IsNot Nothing Then

Filter &= " and 类别 ='" & lb.text & "'"

End If

End With

With e.Form.Controls("牌子")

If .Value IsNot Nothing Then

Filter &= " and 牌子 ='" & pz.text & "'"

End If

End With

With e.Form.Controls("牌子类别")

If .Value IsNot Nothing Then

Filter &= " and 牌子类别 ='" & pzlb.text & "'"

End If

End With

If Filter > "" Then

Tables("产品明细表").Filter = Filter

End If

If Filter > "" Then

e.Form.Controls("添加产品").Table.Filter = Filter

End If

[此贴子已经被作者于2014-5-9 20:40:28编辑过]

主题：查询问题