Foxtable(狐表)用户栏目专家坐堂 → [求助]错误提示集合已修改


  共有3338人关注过本帖树形打印复制链接

主题:[求助]错误提示集合已修改

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


加好友 发短信
等级:六尾狐 帖子:1295 积分:10009 威望:0 精华:0 注册:2013/11/8 15:27:00
[求助]错误提示集合已修改  发帖心情 Post By:2022/11/29 10:51:00 [只看该作者]

开发者登录时,最后总提示以下错误,然后就登录不了,把bin删了也不行,不知什么原因

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20221129104202.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/29 11:14:00 [只看该作者]

检查项目属性的事件代码

 回到顶部
帅哥哟,离线,有人找我吗?
lgj716330
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1295 积分:10009 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2022/11/29 11:51:00 [只看该作者]

好象是DropDownClosed这个事件有问题,这个窗口我有多张表共用,写了下面代码

If CurrentTable.DataTable.Name = "报销清单" Then

    If e.Selected Then 

        Dim tbl As Table = Tables("部门筛选三_Table1")

        If tbl.Current IsNot Nothing Then

            e.Form.DropDownBox.Value = tbl.Current("部门名称")

            Tables("报销清单").Current("承担部门编号") = tbl.Current("部门编号")

        End if

        If e.Form.DropTable IsNot Nothing Then 

            e.Form.DropTable.FinishEditing()

        Else 

            e.Form.DropDownBox.WriteValue()

        End If

    End If

End If

 If CurrentTable.DataTable.Name = "预估调整表" Then

    If e.Selected Then 

        Dim tbl As Table = Tables("部门筛选三_Table1")

        If tbl.Current IsNot Nothing Then

            e.Form.DropDownBox.Value = tbl.Current("部门名称")

            Tables("预估调整表").Current("部门编号") = tbl.Current("部门编号")

        End If

        If e.Form.DropTable IsNot Nothing Then 

            e.Form.DropTable.FinishEditing()

        Else 

            e.Form.DropDownBox.WriteValue()

        End If

    End If

End If


[此贴子已经被作者于2022/11/29 11:50:57编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/29 12:07:00 [只看该作者]

检查一下给"部门编号、部门名称"赋值会触发什么表事件

 回到顶部
帅哥哟,离线,有人找我吗?
lgj716330
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1295 积分:10009 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2022/11/29 19:44:00 [只看该作者]

这个问题已解决,但上面的代码,在单元格录入选择的时候,没起作用,连部门名称都选不过来,是不是不能象上面这样写

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/29 20:54:00 [只看该作者]

调试

msgbox(CurrentTable.DataTable.Name)

If CurrentTable.DataTable.Name = "报销清单" Then

msgbox(e.Selected)

    If e.Selected Then 

        Dim tbl As Table = Tables("部门筛选三_Table1")

msgbox(tbl.Current IsNot Nothing)

        If tbl.Current IsNot Nothing Then

msgbox(tbl.Current("部门名称"))

            e.Form.DropDownBox.Value = tbl.Current("部门名称")


 回到顶部
帅哥哟,离线,有人找我吗?
lgj716330
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1295 积分:10009 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2022/11/30 10:32:00 [只看该作者]

msgbox(CurrentTable.DataTable.Name),这里显示的窗口中的表,而不是我要录入数据的表“报销清单”

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/30 10:39:00 [只看该作者]

这就说明了合适的调试方法的重要性


CurrentTable指的就是当前表,点击了下拉窗口里的表,CurrentTable就是下拉窗口里的表了

 回到顶部