Foxtable(狐表)用户栏目专家坐堂 → 代码问题 求助 主表锁定后 关联表禁止新增


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

主题:代码问题 求助 主表锁定后 关联表禁止新增

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


加好友 发短信
等级:二尾狐 帖子:567 积分:4329 威望:0 精华:0 注册:2020/4/15 19:53:00
代码问题 求助 主表锁定后 关联表禁止新增  发帖心情 Post By:2020/10/28 11:30:00 [只看该作者]

关联表 
BeforeAddDataRow
事件 代码如下
Dim dr As DataRow = DataTables("学生排课档案").Datarows(0)
Dim pr As DataRow = dr.GetParentrow("课程档案DAY")
If pr.Locked = True Then '判断主表状态
    e.Cancel = True '那么取消输入并提示用户
    Messagebox.Show("已经下课了,不能进行操作了,如需造作需要经理授权!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

现在主表锁定后,关联表还是可以新增操作

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

if Tables("学生排课档案").current isnot nothing
Dim dr As DataRow = Tables("学生排课档案").current.Datarow
Dim pr As DataRow = dr.GetParentrow("课程档案DAY")

 回到顶部