主题：关于文本框里的提示！

你这样做对的呀,有什么问题.

我还是上传附件吧

出现的问题如下：

如果我 筛选完毕 离开此文本框 点击其它文本框

 则整个表 和 窗口数据变为空 怀疑是 又自动搜索了 编号，底盘号，车牌号，型号 一遍

 

如果此时关闭窗口 则又跳出错误框 显示的是窗口，客户档案信息，beforeclose的错误

里面代码是

If Tables("客户档案").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
    e.Cancel = True
End If

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:内控系统12.rar

你这段代码是提示你关闭窗口是没有发现你有修改的痕迹,也就不取消,所以呀加多一个代码,就是判断如果修改了,就取消,否则怎样?

e.sender.value = Nothing  因为你在文本框里面设置了一个筛选代码,如果使用这一句代码的话,会出现找不到筛选的结果的,表就空了.

Tables("客户档案").ApplyFilter = False  加多一句代码,取消筛选,放在第一个

还是有点问题  离开筛选文本框后 筛选文本框 没有相应的灰色提示

 

                  第二 关键是没法离开文本框了 貌似 不能点击其它文本框  一点就刷新筛选   你最好把代码放进去试下  

 

想了半天 也没想出怎么解决~

那只能把那句

e.sender.value = Nothing  删除试试?