以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助如何改成后台查询 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51392)
|
-- 作者：188802386
-- 发布时间：2014/5/26 10:34:00
-- 求助如何改成后台查询
如下是一段TextBox1文本数值改变后执行的时间，现在我把成交录入设置成了分页加载，再用一下代码就不能实现后台的加载了，请问我应该如何改这个代码，谢谢
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("成交录入")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "合同编号 Like " & txt & " Or 客源编号 Like " & txt & " Or 房屋编号 Like " & txt & " Or 甲方姓名 Like " & txt & " Or 甲方电话 Like " & txt & " Or 甲方身份证号码 Like " & txt & " Or 乙方身份证号码 Like " & txt & " Or 乙方姓名 Like " & txt & " Or 物业地址 Like " & txt & " Or 成交门店 Like " & txt & " Or 乙方电话 Like " & txt & " Or 成交类型 Like " & txt & " Or 所属区域 Like " & txt
End If
|
-- 作者：有点甜
-- 发布时间：2014/5/26 10:37:00
--
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim dt As DataTable = DataTables("成交录入")
If txt > "" Then
txt = "\'%" & txt & "%\'"
txt = "合同编号 Like " & txt & " Or 客源编号 Like " & txt & " Or 房屋编号 Like " & txt & " Or 甲方姓名 Like " & txt & " Or 甲方电话 Like " & txt & " Or 甲方身份证号码 Like " & txt & " Or 乙方身份证号码 Like " & txt & " Or 乙方姓名 Like " & txt & " Or 物业地址 Like " & txt & " Or 成交门店 Like " & txt & " Or 乙方电话 Like " & txt & " Or 成交类型 Like " & txt & " Or 所属区域 Like " & txt
End If
dt.LoadFilter = txt
dt.Load
|
-- 作者：188802386
-- 发布时间：2014/5/26 10:59:00
--
不好意思 问题写错了 是我有一个文本框 想通过该文本框进行后台的模糊查询 原来是所有数据全部都加载完了的 可现在是分页加载 即只加载了部分数据，我现在是想实现 该文本框 输入查询内容后能从后台筛选并显示我要查询的内容 谢谢
|
-- 作者：Bin
-- 发布时间：2014/5/26 11:01:00
--
2楼的不就可以实现你所说的么.
|
-- 作者：188802386
-- 发布时间：2014/5/26 11:17:00
--
哦 谢谢 要保存后重新打开系统就可以了 呵呵 是我的错 谢谢你们
|