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编辑过]