以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]审核  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92169)

--  作者：苏州老街 --  发布时间：2016/10/27 19:30:00 --  [求助]审核 老师，我要审核关联表（出库明细）怎样修改。 If Tables("出库") .Rows.count = 0  OrElse  Tables("出库.出库明细") .Rows.count = 0 Then     MessageBox.Show("没有可审核内容!")     Return End If If  User.IsRole ("审核")  Then     Tables("出库").Current("审核人") = User.Name     Tables("出库").Current("审核日期") = Date.now Tables("出库.出库明细"). Current.Save()     Tables("出库").Current.Save() Else     MessageBox.show("你无审核权限!") End If

--  作者：有点蓝 --  发布时间：2016/10/27 20:39:00 --   审核一般审核主单就可以了。明细表你想做什么修改呢？

--  作者：苏州老街 --  发布时间：2016/10/27 20:48:00 --   老师，审核后就不让他增加行。

--  作者：有点蓝 --  发布时间：2016/10/27 21:13:00 --   出库明细BeforeAddDataRow事件 Dim dr As Row = Tables("出库").Current If dr IsNot Nothing Then     If dr.IsNull("审核人") = False Then         e.Cancel = True     End If End If