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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]模糊查询

共有9760人关注过本帖树形打印复制链接主题：[求助]模糊查询

程兴刚

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2013/7/10 0:24:00 [显示全部帖子]

Dim cpth As String = e.Form.Controls("产品图号").Value
Dim zwmc As String = e.Form.Controls("中文名称").Value
Dim zwcl As String = e.Form.Controls("中文材料").Value
Dim zwgg As String = e.Form.Controls("中文规格").Value
Dim Filter As String
If cpth <> ""
    Filter = "产品图号 like '*" & cpth & "*'"
End If
If zwmc <> ""
    If Filter = ""
        Filter = "中文名称 like '*" & zwmc & "*'"
    Else
        Filter = Filter & " and 中文名称 Like '*" & zwmc & "*'"
    End If
End If
If zwcl <> ""
    If Filter = ""
        Filter = "中文材料 like '*" & zwcl & "*'"
    Else
        Filter = Filter & " and 中文材料 Like '*" & zwcl & "*'"
    End If
End If
If zwgg <> ""
    If Filter = ""
        Filter = "中文规格 like '*" & zwgg & "*'"
    Else
        Filter = Filter & " and 中文规格 Like '*" & zwgg & "*'"
    End If
End If
Tables("产品").Filter =Filter