- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何不打开数据表修改事件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171333)
-- 发布时间：2021/8/26 17:20:00
-- [求助]如何不打开数据表修改事件
在表事件中使用
SystemReady = False
关闭了所有事件
由于语句有错误，结果所有按钮点击都没有反映了，再也打不开表属性，无法修改回去。
-- 发布时间：2021/8/26 17:23:00
--
If e.Table.Current Is Nothing Then \'如果Current为Nothing
Return \'则返回
End If
Dim rw As Row = e.Table.Current
If rw Is Nothing Then
Return \'则返回
End If
If rw("清单号")="" Then
Return \'则返回
End If
SystemReady = False
\'messagebox.show(rw("清单号"))
If Tables("订单物品临时表").Current("产品号")="" Then Return
\'messagebox.show(2)
If Tables("订单唯一码表").findrow("[清单号]=\'" & Tables("订单物品临时表").Current("清单号") & "\'")=-1 Then Return
\'messagebox.show(3)
If Tables("订单物品临时表").Rows.Count>0 Then Tables("订单唯一码表").filter="[清单号]=\'" & Tables("订单物品临时表").Current("清单号") & "\'"
SystemReady = True
-- 发布时间：2021/8/26 17:25:00
--
这个表都不能点了，一点就全部不能动，怎么解决啊
-- 发布时间：2021/8/26 17:25:00
--
CurrentChanged事件
-- 发布时间：2021/8/26 17:28:00
--
都暂停执行了，肯定没反应啊，你具体要什么效果
如果要判断当前行某些列必须输入数据应在在保存前判断
[此贴子已经被作者于2021/8/26 17:29:11编辑过]
-- 发布时间：2021/8/26 17:29:00
--
想代码执行完了再开事件，结果代码有问题给退出来了，然后就不能动了
-- 发布时间：2021/8/26 17:31:00
--
现在的问题是，我没法再去编辑这个事件，一点这个表，就全部停了
-- 发布时间：2021/8/26 17:33:00
--
解决了，先开命令窗口，然后手动开