下面是表代码
If e.DataCol.Name = "审核" Then '如果是审核列的内容变动
If e.NewValue = True Then '而且变动后的值是True(已勾选)
e.DataRow.Locked = True '那么锁定此行
End If
End If
If e.DataCol.name = "审核" Then
Dim pr As DataRow = e.DataRow.GetParentRow("入库")
If pr IsNot Nothing Then
Dim crs As List(of DataRow) = pr.GetChildRows("入库管理")
Dim cnt As Integer
For Each cr As DataRow In crs
If cr("审核") = True
cnt = cnt + 1
End If
Next
pr("审核") = (crs.Count = cnt)
End If
End If
下吗是按钮代码（审核）
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
老师，上面代码审核后审核列不打购。
加好友 
发短信
Post By：2018/11/1 22:41:00 [只看该作者]
此主题相关图片如下：审核.png
