专家坐堂-这个筛选该怎么写？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=74672)

--  作者：colink
--  发布时间：2015/9/16 14:43:00
--  这个筛选该怎么写？

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("下拉订单窗口_Table1")
If txt = "" Then
tbl.Filter = "加工打单 = False" And "产品类型 = \'标签\'" \'我数据表有“加工打单”和“产品类型”两个字段，我要根据这两个字段筛选，不知道怎么写。帮助我看了几遍没看明白。
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "客户简称 Like " & txt \'这句是对的，单我要加上“产品类型 = \'标签\'”这条件，不知怎么加。
End If
e.Form.DropDownBox.Select()

--  作者：大红袍
--  发布时间：2015/9/16 14:44:00
--
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("下拉订单窗口_Table1")
If txt = "" Then
    tbl.Filter = "加工打单 = False And 产品类型 = \'标签\'" \'我数据表有"加工打单"和"产品类型"两个字段,我要根据这两个字段筛选,不知道怎么写.帮助我看了几遍没看明白.
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = " 产品类型 = \'标签\' and 客户简称 Like " & txt \'这句是对的，单我要加上“产品类型 = \'标签\'”这条件，不知怎么加。
End If
e.Form.DropDownBox.Select()

--  作者：colink
--  发布时间：2015/9/16 14:46:00
--
谢谢