Foxtable(狐表)用户栏目专家坐堂 → 新版升级后,打开一个窗口提示错误!


  共有2892人关注过本帖平板打印复制链接

主题:新版升级后,打开一个窗口提示错误!

帅哥哟,离线,有人找我吗?
jiterp
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:715 积分:8574 威望:0 精华:0 注册:2011/11/13 15:49:00
新版升级后,打开一个窗口提示错误!  发帖心情 Post By: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编辑过]

 回到顶部