| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何把textbox做成类似搜索的功能 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121252) |
| -- 作者：lycliu -- 发布时间：2018/7/2 16:58:00 -- 如何把textbox做成类似搜索的功能 在textbox中输入一个表中的两个字段 字段1*字段2，*星号是分隔符，然后在窗口里面的表中显示符合这两个字段的信息 Dim tb12 As WinForm.TextBox = e.Form.Controls("TextBox12") DataTables("table1").LoadFilter = "装箱单ID = \'" & tb12.value & "\' and "箱码 = \'" & tb12.value & "\'" DataTables("table1").Load() |
| -- 作者：有点甜 -- 发布时间：2018/7/2 18:45:00 -- Dim tb12 As WinForm.TextBox = e.Form.Controls("TextBox12") Dim ary = tb12.text.split("*") DataTables("table1").LoadFilter = "装箱单ID = \'" & ary(0) & "\' and 箱码 = \'" & ary(1) & "\'" DataTables("table1").Load() |