试试
If e.DataTable.Datacols.Contains("审核") AndAlso e.DataTable.Datacols.Contains("复核人") Then
If e.DataCol.Name = "审核" AndAlso e.NewValue = False Then
Dim nu As Boolean = e.DataRow.isnull("复核人")
If nu
Dim dr As DataRow = e.DataTable.sqlfind("[_Identify]=" & e.DataRow("_Identify")) Then
If dr IsNot Nothing AndAlso dr.IsNull("复核人") = False Then
nu = False
End If
End If
If nu = False
e.Cancel = True
MessageBox.Show("此记录已经复核,取消复核后才能去审核","提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
End If
加好友 
发短信
Post By：2020/5/25 16:26:00 [显示全部帖子]
