主题：大大帮忙看看这个错误提示怎么解决

RT 我有个搜索窗口 当输入的关键词没有找到数据时就会弹出下面这个提示，如何让这个提示更友好一些呢 比如提示没有找到相关内容 换个关键词试试 请大大帮忙哈
此主题相关图片如下：狐表错误.jpg

CurrentChanged代码为

Tables("客户信息表").Position=e.Table.Current.Index

TextChanged代码为

Dim txt As String = e.Form.Controls("查找条件").Text
Dim tbl As Table = Tables("查找客户_查找客户")

If txt = "" Then
    tbl.Filter = ""
    Tables("客户信息表").Filter=tbl.Filter
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "客户名称 Like " & txt & " Or 助记名称 Like " & txt & " Or 销售机会 Like " & txt & " Or 联系人 Like " & txt
    Tables("客户信息表").Filter=tbl.Filter
End If

If e.sender.text = "" Then
    Tables("查找客户_查找客户").Filter = "所有者 = '" & User.Name & "'"
End If

老大们帮忙看看哈

 
http://www.foxtable.com/help/index.html?n=2044.htm

 贴出CurrentChanged的代码看看。

 老大们      帮忙看看哦

CurrentChanged代码为

Tables("客户信息表").Position=e.Table.Current.Index