主题：[求助]关于请教筛选加载的问题

有客户表，通过输入字符，进行快速模糊查询加载，但是如果输入的字符未找到，出现以下错误提示，请老师帮帮忙解决一下。

此主题相关图片如下：1.png

 

 

窗口：

 

此主题相关图片如下：2.png

 

 

查询控件代码：

 

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("客户")
If txt = "" Then
    tbl.DataTable.loadPage = 0
    tbl.DataTable.loadFilter = ""
    tbl.DataTable.load
Else
    txt = "'%" & txt & "%'"
    Dim Filter As String
    Filter = "客户编码 Like " & txt & " Or 客户名称 Like " & txt & " Or 注册登记类型 Like " & txt & " Or 法定代表人_姓名 Like " & txt & " Or 营业执照号 Like " & txt & " Or 国税登记号 Like " & txt & " Or 联系人 Like " & txt & " Or 客户名称首字母 Like " & txt
    If  Filter Is Nothing Then
        MessageBox.Show("无符号条件客户,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        tbl.DataTable.loadFilter = Filter
        tbl.DataTable.loadPage = 0
        tbl.DataTable.load
    End If
End If

 

我也知道是需要加一个条件判断，但是一直不对，不知哪里出错了？请老师帮一下，谢谢！

应该是你currentChanged事件的代码有问题。在事件最前面加上代码

 

If e.Table.Current Is Nothing Then Return

甜老师，我加到客户表currentChanged事件中，不起作用啊！！

 

 

此主题相关图片如下：3.png

 

是通过此控件进行输入筛选的啊！

1、删除对应表currentChanged、afterLoad等事件的代码后，测试有没有问题。

 

2、如果还有问题，实例发上来测试。

甜老师，以下代码运行时：

文本框中输入的字符如果满足筛选条件的话，正常运行；

如果找不到文本框中的客户信息，才出现“上图中的运行错误信息”。

 

我的意思是如何将以下代码进行判断一下，就是如果没有符合条件的，将不加载：

 

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("客户")
If txt = "" Then
    tbl.DataTable.loadPage = 0
    tbl.DataTable.loadFilter = ""
    tbl.DataTable.load
Else
    txt = "'%" & txt & "%'"
    tbl.DataTable.loadFilter = "客户编码 Like " & txt & " Or 客户名称 Like " & txt & " Or 注册登记类型 Like " & txt & " Or 法定代表人_姓名 Like " & txt & " Or 营业执照号 Like " & txt & " Or 国税登记号 Like " & txt & " Or 联系人 Like " & txt & " Or 客户名称首字母 Like " & txt
     tbl.DataTable.loadPage = 0
     tbl.DataTable.load
End If

代码没问题。认认真真看4楼。

合适了，谢谢！在全局表中修改了一下！