- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]错误提示集合已修改 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184232)
-- 发布时间：2022/11/29 10:51:00
-- [求助]错误提示集合已修改
开发者登录时，最后总提示以下错误，然后就登录不了，把bin删了也不行，不知什么原因
此主题相关图片如下：微信图片_20221129104202.png
-- 发布时间：2022/11/29 11:14:00
--
检查项目属性的事件代码
-- 发布时间：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 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 12:07:00
--
检查一下给"部门编号、部门名称"赋值会触发什么表事件
-- 发布时间：2022/11/29 19:44:00
--
这个问题已解决，但上面的代码，在单元格录入选择的时候，没起作用，连部门名称都选不过来，是不是不能象上面这样写
-- 发布时间：2022/11/29 20:54:00
--
调试
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("部门名称")
-- 发布时间：2022/11/30 10:32:00
--
msgbox(CurrentTable.DataTable.Name)，这里显示的窗口中的表，而不是我要录入数据的表“报销清单”
-- 发布时间：2022/11/30 10:39:00
--
这就说明了合适的调试方法的重要性