- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 严重问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140239)
-- 发布时间：2019/9/1 22:50:00
-- [求助] 严重问题
这错在哪儿了 ？ 如果忽略这个对话框 ？
此主题相关图片如下：捕获.jpg
-- 发布时间：2019/9/1 23:01:00
--
做了什么操作，什么代码引起的问题？
-- 发布时间：2019/9/1 23:10:00
--
双击窗口，然后双击记录后就出现这个了。
Dim tbl As Table = Tables("ProductionOrder_Table1")
If tbl.Current IsNot Nothing Then
Tables("生产任务单").Current("ETD") = tbl.Current("ETD")
End If
Forms("ProductionOrder").Close()
此主题相关图片如下：捕获.jpg
-- 发布时间：2019/9/1 23:12:00
--
e.cancel = true
Dim tbl As Table = Tables("ProductionOrder_Table1")
If tbl.Current IsNot Nothing Then
Tables("生产任务单").Current("ETD") = tbl.Current("ETD")
End If
Forms("ProductionOrder").Close()
If tbl.Current IsNot Nothing Then
Tables("生产任务单").Current("ETD") = tbl.Current("ETD")
End If
Forms("ProductionOrder").Close()