以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 分页加载后查找问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98481)
--  作者：gengwvi
--  发布时间：2017/3/30 14:57:00
--  [求助] 分页加载后查找问题

老师，好

 外部SQL数据库，设置查找按钮后，如何让其实现后台查找，并定位到查找的信息。

应该怎么改下面的代码？

Dim ftx As WinForm.TextBox = e.Form.Controls("xmcz")
Dim st As String = ftx.Value \'定插件内容
Dim mh As WinForm.CheckBox = e.Form.Controls("模糊") \'引用插件
Dim dr As DataRow
If mh.Checked Then \'如果选中
    dr = DataTables("我的客户").sqlfind("姓名 Like \'%" & st & "%\'")\'模糊查找
Else
    dr = DataTables("我的客户").sqlfind("姓名 = \'" & st & "\'")\'精确查找
End If
If dr IsNot Nothing
    Dim bt As Integer = Tables("我的客户").findrow(dr)
    If bt >= 0 Then
        Tables("我的客户").Position = bt
    End If
Else
    MessageBox.Show("没有找到符合条件的项", "提示")
End If
--  作者：狐狸爸爸
--  发布时间：2017/3/30 16:58:00
--  
不存在后台查找，只有后台筛选：
http://www.foxtable.com/webhelp/scr/2892.htm
--  作者：gengwvi
--  发布时间：2017/3/30 17:01:00
--  

我是在窗口里面做了一个筛选按钮，因为数据是分了页的，用上面的代码如果不在当前页，没有办法定位到所在的行。
--  作者：有点色
--  发布时间：2017/3/30 17:07:00
--  

动态加载

 

Dim ftx As WinForm.TextBox = e.Form.Controls("xmcz")
Dim st As String = ftx.Value \'定插件内容
Dim mh As WinForm.CheckBox = e.Form.Controls("模糊") \'引用插件
Dim dr As DataRow
Dim filter As String
If mh.Checked Then \'如果选中
    dr = DataTables("我的客户").sqlfind("姓名 Like \'%" & st & "%\'")\'模糊查找
    filter = "姓名 Like \'%" & st & "%\'"
Else
    dr = DataTables("我的客户").sqlfind("姓名 = \'" & st & "\'")\'精确查找
    filter = "姓名 = \'" & st & "\'"
End If
If dr IsNot Nothing
    DataTables("我的客户").RemoveFor(filter)
    DataTables("我的客户").AppendLoad(filter)
    Dim bt As Integer = Tables("我的客户").findrow(filter)
    If bt >= 0 Then
        Tables("我的客户").Position = bt
    End If
Else
    MessageBox.Show("没有找到符合条件的项", "提示")
End If