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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教查询代码

共有4714人关注过本帖树形打印复制链接主题：请教查询代码

tanweijun

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

加好友

发短信

等级：婴狐帖子：25 积分：228 威望：0 精华：0 注册：2013/5/10 8:20:00

请教查询代码 发帖心情

Post By：2013/10/18 22:05:00 [只看该作者]

Dim ch As WinForm.TextBox = e.Form.Controls("车号")
Dim gg As WinForm.TextBox = e.Form.Controls("规格")
Dim shdw As WinForm.TextBox = e.Form.Controls("收货单位")
Dim dz As WinForm.TextBox = e.Form.Controls("到站")
Tables("钢厂发货明细").Filter = "车号 Like '*"& ch.Text &"*'And 规格 Like'*"& gg.Text & "*'and 收货单位 Like'*" & shdw.Text & "*'and 到站 Like'*" & dz.Text & "*'"

查询出错请指正。先谢谢！

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/10/18 22:08:00 [只看该作者]

加空格

Tables("钢厂发货明细").Filter = "车号 Like '*"& ch.Text &"*' And 规格 Like'*"& gg.Text & "*' and 收货单位 Like'*" & shdw.Text & "*' and 到站 Like'*" & dz.Text & "*'"

tanweijun

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

加好友

发短信

等级：婴狐帖子：25 积分：228 威望：0 精华：0 注册：2013/5/10 8:20:00

Post By：2013/10/18 22:26:00 [只看该作者]

不行点查询就没数据了。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/10/18 22:30:00 [只看该作者]

不好意思，我2楼也写错了，空格加不够，and like后面都是要加空格的。

Tables("钢厂发货明细").Filter = "车号 Like '*"& ch.Text &"*' And 规格 Like '*"& gg.Text & "*' and 收货单位 Like '*" & shdw.Text & "*' and 到站 Like '*" & dz.Text & "*'"

tanweijun

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

加好友

发短信

等级：婴狐帖子：25 积分：228 威望：0 精华：0 注册：2013/5/10 8:20:00

Post By：2013/10/18 22:43:00 [只看该作者]

还是一样查询没数据，去掉收货单位和到站的代码就可以查询，是什么原因？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/10/18 22:58:00 [只看该作者]

你复制4楼的代码进去，重新测试，没理由的，确认你的收货单位和到站有匹配的数据。

[此贴子已经被作者于2013-10-18 22:58:36编辑过]

xdongx

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

加好友

发短信

等级：婴狐帖子：76 积分：804 威望：0 精华：1 注册：2013/7/19 21:34:00

Post By：2013/10/19 0:31:00 [只看该作者]

是SQL的外部表吗？是的话，应把* 替换为 %。

tanweijun

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

加好友

发短信

等级：婴狐帖子：25 积分：228 威望：0 精华：0 注册：2013/5/10 8:20:00

Post By：2013/10/19 10:09:00 [只看该作者]

是内部表，找到原因了是收货单位字段中没有数据，四个条件一起如果其中一个条件中没数据查询就不显示数据，是这样的吗？四个条件中可以任意选择查询其中几查询吗？请教代码。谢谢！

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/10/19 10:12:00 [只看该作者]

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

tanweijun

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

加好友

发短信

等级：婴狐帖子：25 积分：228 威望：0 精华：0 注册：2013/5/10 8:20:00

Post By：2013/10/19 13:52:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("车号")
    If .Value IsNot Nothing Then
        Filter = "车号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("规格")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "规格 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("到站")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "到站 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("收货单位")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "收货单位 = '" & .Value & "'"
    End If
End With

If Filter > "" Then
Tables("钢厂发货明细").Filter = Filter
End If

不能模糊查询，要输完整入，输入2个条件查询不了，请指教，谢谢！

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：请教查询代码