Foxtable(狐表)用户栏目专家坐堂 → 模糊查询时后台筛选


  共有4519人关注过本帖树形打印复制链接

主题:模糊查询时后台筛选

帅哥哟,离线,有人找我吗?
Jaime
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:197 积分:1351 威望:0 精华:0 注册:2019/3/31 11:25:00
模糊查询时后台筛选  发帖心情 Post By:2019/8/10 10:25:00 [只看该作者]

请教老师,模糊查询框的代码在加载表时筛选正常,但我希望实现不加载该表(在后台筛选),想用SQLSelect方式,如何更改以下代码:

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "物资名称 Like " & txt & " Or 三类名称 Like " & txt & " Or 物资编码 Like " & txt & " Or 三类编码 Like " & txt
End If


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/10 10:35:00 [只看该作者]

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.datatable.loadFilter = "物资名称 Like " & txt & " Or 三类名称 Like " & txt & " Or 物资编码 Like " & txt & " Or 三类编码 Like " & txt
tbl.datatable.load
End If


 回到顶部
帅哥哟,离线,有人找我吗?
Jaime
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:197 积分:1351 威望:0 精华:0 注册:2019/3/31 11:25:00
  发帖心情 Post By:2019/8/10 11:07:00 [只看该作者]

谢谢蓝老师!查询问题好了。

现在在窗口查询结果里双击所选行,会自动输入“物资编码”到表内,我想同时让本行的“物资名称”  “三类名称”也同时自动输入在对应的位置,请问怎么改

'----在窗口的Table中双击某行,即可将该行的物资组编码输入到物料信息表的当前行中,并关闭下拉窗口----
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
    e.Form.DropDownBox.Value = tbl.Current("物资编码")
End If
e.Form.DropDownBox.CloseDropDown()

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/10 11:21:00 [只看该作者]

Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
    e.Form.DropDownBox.Value = tbl.Current("物资编码")
dim r as row = Tables("物料信息表").current
r("物资名称") =  tbl.Current("物资名称")
r("三类名称") =  tbl.Current("三类名称")
End If
e.Form.DropDownBox.CloseDropDown()

 回到顶部
帅哥哟,离线,有人找我吗?
Jaime
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:197 积分:1351 威望:0 精华:0 注册:2019/3/31 11:25:00
  发帖心情 Post By:2019/8/10 22:29:00 [只看该作者]

测试了OK,非常感谢蓝老师!

 回到顶部