多人操作的保存校验问题. - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多人操作的保存校验问题.

共有3668人关注过本帖树形打印复制链接主题：多人操作的保存校验问题.

夜点蚊香

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00

多人操作的保存校验问题. 发帖心情

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

夜点蚊香

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00

搞定了,谢谢 发帖心情

Post By：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

主题：多人操作的保存校验问题.