专家坐堂-查询代码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=87769)

--  作者：漂亮美眉vszh
--  发布时间：2016/7/19 10:22:00
--  查询代码

比如说我想查找名称为“扁钢”、并且规格型号包含“40”的物料信息，可是查询后的内容没出来，老师们帮我看下代码哪里有误？

此主题相关图片如下：qq图片20160719101049.png

Dim wldm As WinForm.TextBox = e.Form.Controls("物料代码")
Dim wlmc As WinForm.TextBox = e.Form.Controls("物料名称")
Dim ggxh As WinForm.TextBox = e.Form.Controls("规格型号")

Dim filter As String
If wldm.Text <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "物料代码 Like \'%" & wldm.Text & "%\' "
End If
If wlmc.Text<> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "物料名称 Like \'%" & wlmc.Text & "%\'"
End If
If ggxh.Text <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "规格型号 Like \'%" & ggxh.Text & "%\'"
End If
If filter > "" Then
Tables("物料信息").Filter=filter
End If

--  作者：大红袍
--  发布时间：2016/7/19 10:25:00
--

msgbox(filter) 看一下是否正确。

再有，你的表名是不是写错了？你的可能是窗口副本表 e.Form.Controls("Table1").Table.Filter = Filter

--  作者：漂亮美眉vszh
--  发布时间：2016/7/19 10:33:00
--

以下是引用大红袍在2016/7/19 10:25:00的发言：

msgbox(filter) 看一下是否正确。

再有，你的表名是不是写错了？你的可能是窗口副本表 e.Form.Controls("Table1").Table.Filter = Filter

此主题相关图片如下：qq图片20160719103055.png

此主题相关图片如下：qq图片20160719103150.png

--  作者：漂亮美眉vszh
--  发布时间：2016/7/19 10:34:00
--
是filter错了，没连接上物料名称一起来筛选~~

--  作者：大红袍
--  发布时间：2016/7/19 10:34:00
--

Dim wldm As WinForm.TextBox = e.Form.Controls("物料代码")
Dim wlmc As WinForm.TextBox = e.Form.Controls("物料名称")
Dim ggxh As WinForm.TextBox = e.Form.Controls("规格型号")

Dim filter As String
If wldm.Text <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = filter & "物料代码 Like \'%" & wldm.Text & "%\' "
End If
If wlmc.Text<> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = filter & "物料名称 Like \'%" & wlmc.Text & "%\'"
End If
If ggxh.Text <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = filter & "规格型号 Like \'%" & ggxh.Text & "%\'"
End If
If filter > "" Then
Tables("物料信息").Filter=filter
End If