- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何完善代码消除错误提示框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95970)
-- 发布时间：2017/2/9 17:12:00
-- [求助]如何完善代码消除错误提示框
此主题相关图片如下：图1.jpg
此主题相关图片如下：图2.jpg
图1双击表格，进入详情窗口。
如果详情窗口中两个关联表中有一个没有对应的信息，就会出现图1的报错提示框。
其实使用上是对的，怎么样把这个提示框给禁止掉呢。
详情窗口的afterload事件代码如下：
Dim CN As String = Tables("CUSTOMER_lIST").current("CUST_NO")
If CN = "" Then
Tables("客户详情_table1").Filter = "[_Identify] Is Null"
Tables("客户详情_table2").Filter = "[_Identify] Is Null"
Else
Tables("客户详情_table1").Filter = "[CUST_NO] = \'" & CN & "\'"
Tables("客户详情_table2").Filter = "[CUST_NO] = \'" & CN & "\'"
End If
-- 发布时间：2017/2/9 18:31:00
--
CurrentChanged事件加入代码
If e.Table.Current Is Nothing Then Return
-- 发布时间：2017/2/10 10:17:00
--
谢谢老师，但是增加了之后还是不行呢，老师可以帮忙看一下吗？
-- 发布时间：2017/2/10 10:19:00
--
以下是引用有点色在2017/2/9 18:31:00的发言：
urrent Is Nothing Then Return
CurrentChanged事件加入代码
If e.Table.C
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:项目.rar |
urrent Is Nothing Then Return
[此贴子已经被作者于2017/2/10 10:19:24编辑过]
-- 发布时间：2017/2/10 10:20:00
--
以下是引用davidwangdl在2017/2/10 10:17:00的发言：
谢谢老师，但是增加了之后还是不行呢，老师可以帮忙看一下吗？
谢谢老师，但是增加了之后还是不行呢，老师可以帮忙看一下吗？
1、对应的表，都要加上；
2、如果是打开的时候出错，AfterLoad事件加上代码
If Tables("CUSTOMER_lIST").current Is Nothing Then return
-- 发布时间：2017/2/10 10:29:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:bestfun.foxdb |
-- 发布时间：2017/2/10 13:33:00
--
之前没把bin文件夹删除，折腾好久，终于解决了，谢谢老师！