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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查询问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50601)

--  作者：qq864729713
--  发布时间：2014/5/9 15:10: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
With e.Form.Controls("产品名称")
If .Value IsNot Nothing Then
Filter = "产品名称 like \'*" & cpmc.text & "*\'"
End If
End With
With e.Form.Controls("类别")
If .Value IsNot Nothing Then
filter = "类别 =\'" & lb.text & "\'"
End If
End With

With e.Form.Controls("牌子")
If .Value IsNot Nothing Then
Filter = "牌子 =\'" & 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

--  作者：Bin
--  发布时间：2014/5/9 16:08:00
--

参考帮助

http://www.foxtable.com/help/topics/1058.htm

--  作者：有点甜
--  发布时间：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编辑过]

--  作者：qq864729713
--  发布时间：2014/5/9 20:40:00
--

以下是引用有点甜在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编辑过]