以文本方式查看主题 -  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=158599)

--  作者：夜点蚊香 --  发布时间：2020/11/26 9:18:00 --  多人操作的保存校验问题. 请假单的DataColChanged事件 下面代码获取 缴费编号的请假单及已请假次数. \'获取请假次数 Select Case E.DataCol.Name     Case "请假状态"         Dim PR As DataRow = DataTables("课程缴费表").Find("缴费编号 = \'" & e.NewValue & "\'")         If pr IsNot Nothing Then             e.DataRow("请假次数") = pr("请假次数")             e.DataRow("已请假次数") = pr("已请假次数")         End If End Select 在窗口按钮(提交)的时候 再次获取一次  请假次数 及已请假次数. 提交的时候,根据请假次数 和 已请假次数校验下当时的状态. 请问代码放在那里合适. [此贴子已经被作者于2020/11/26 9:19:07编辑过]

--  作者：有点蓝 --  发布时间：2020/11/26 9:29:00 --   放到按钮里

--  作者：夜点蚊香 --  发布时间：2020/11/26 9:51:00 --  搞定了,谢谢 Dim PR As DataRow = DataTables("课程缴费表").Find("缴费编号 = \'" & Tables("请假单_学生").Current("缴费编号") & "\'") If pr IsNot Nothing Then     Tables("请假单_学生").Current("请假次数") = pr("请假次数")     Tables("请假单_学生").Current("已请假次数") = pr("已请假次数") End If