主题：[求助] 分页加载后查找问题

动态加载

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