- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 新版升级后，打开一个窗口提示错误！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=162980)
-- 发布时间：2021/4/19 15:08:00
-- 新版升级后，打开一个窗口提示错误！
2021版升级后，发布后程序，发现一个打开物料档案参照窗口，报以下错误。以前的版本没有这个错误，在未发布项目里做测试，没有这个现象？
此主题相关图片如下：qq图片20210419150531.png
又发现一个问题了，输入数量列后，弹出以下报错：
此主题相关图片如下：qq图片20210419151901.png
还有双击打开窗口事件报错：
此主题相关图片如下：qq图片20210419153444.png
事件代码如下：
Dim xx As WinForm.CheckBox = e.Form.Controls("CheckBox1")
If xx.Checked = True Then
Return
End If
If Tables(e.Form.Name & "_Table1").count = 0 Then
Return
End If
DataTables("sa_sod").LoadFilter = "[ID] = " & Tables(e.Form.Name & "_Table1").Current("ID")
DataTables("sa_sod").Load
DataTables("sa_sod").LoadChildren("sa_sods", "ID", "ID")
Tables("sa_sod").Filter = "ID = " & Tables(e.Form.Name & "_Table1").Current("ID")
If Forms("ck_sa_sod").Opened = True Then
If Tables("sa_sod").AllowEdit = True Then
MessageBox.Show(Functions.Execute("MessFanyi","Msg_140", GetConfigValue("LangSet","CN")),Functions.Execute("MessFanyi","Msg_001", GetConfigValue("LangSet","CN")),MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
End If
郁闷了，这是怎么回事？
[此贴子已经被作者于2021/4/19 15:37:35编辑过]
-- 发布时间：2021/4/19 15:09:00
--
新版本共有窗口和独立窗口都需要指定所有表，不然报错
-- 发布时间：2021/4/19 15:16:00
--
我反馈一下
-- 发布时间：2021/4/19 15:23:00
--
以下是引用有点蓝在2021/4/19 15:16:00的发言：
我反馈一下
又发现一个报错，在订单界面输入数量列，弹出报错，报错图已放在一楼。
我反馈一下
-- 发布时间：2021/4/19 15:39:00
--
新版本极不稳定，还没升级的千万别升级，已经升级的麻烦测试一下周老师的订单系统（包括easyui的pc和mobile、layui）都有问题
-- 发布时间：2021/4/20 17:12:00
--
今天下载的最新版，重新做了一下发布，昨天提的几个问题全部没有再现了。