| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 后台查询 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82560) |
| -- 作者：yifan3429 -- 发布时间：2016/3/20 17:13:00 -- 后台查询 Dim txt As String = e.Form.Controls("TextBox7").Text Dim tbl As DataTable = DataTables("订单表") If txt = "" Then tbl.Filter = "" Else txt = "\'%" & txt & "%\'" tbl.Filter = "客户尊称 Like " & txt & " Or 订单号 Like " & txt & " Or 订单名称 Like " & txt End If --------------------------- 错误 --------------------------- 编译错误:“Filter”不是“DataTable”的成员。 错误代码：tbl.Filter = "" --------------------------- 确定 --------------------------- [此贴子已经被作者于2016/3/20 17:13:42编辑过]
|
| -- 作者：catyin1989 -- 发布时间：2016/3/20 17:21:00 -- Dim tbl As Table = Tables("订单表") |
| -- 作者：yifan3429 -- 发布时间：2016/3/20 19:19:00 -- 楼上这样只能查询到 数据有加载的 没有加载的数据是查询不到的 |
| -- 作者：大红袍 -- 发布时间：2016/3/20 23:32:00 -- Dim txt As String = e.Form.Controls("TextBox7").Text
Dim tbl As DataTable = DataTables("订单表")
If txt = "" Then
tbl.LoadFilter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.LoadFilter = "客户尊称 Like " & txt & " Or 订单号 Like " & txt & " Or 订单名称 Like " & txt
End If
tbl.Load
[此贴子已经被作者于2016/3/20 23:31:59编辑过]
|