以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  大大帮忙看看这个错误提示怎么解决  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42503)
--  作者：ichoo31
--  发布时间：2013/11/13 18:41:00
--  大大帮忙看看这个错误提示怎么解决
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

老大们帮忙看看哈
[此贴子已经被作者于2013-11-15 17:27:09编辑过]
--  作者：chenganlu
--  发布时间：2013/11/13 19:00:00
--  
 
http://www.foxtable.com/help/index.html?n=2044.htm
--  作者：有点甜
--  发布时间：2013/11/13 19:16:00
--  
 贴出CurrentChanged的代码看看。
--  作者：ichoo31
--  发布时间：2013/11/20 14:10:00
--  
 老大们      帮忙看看哦
--  作者：Bin
--  发布时间：2013/11/20 14:12:00
--  

CurrentChanged代码为


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

改为

if e.Table.Current isnot nothing then
Tables("客户信息表").Position=e.Table.Current.Index
end if