我感觉在设计上，有“审核与否”和“批准与否”两列就可以了。
如果一定要这么设计，试试套一下下面的代码（N个都一样，也好理解）。
Select Case e.DataCol.Name
Case "第一列","第二列"
If e.NewValue = True Then
Dim sms() As String = {"第一列","第二列"}
For i As Integer = 0 To sms.Length - 1
If sms(i) <> e.DataCol.Name
e.DataRow(sms(i)) = False
End If
Next
End If
End Select
或者这样：你要的
Select Case e.DataCol.Name
Case "第一列"
e.DataRow("第二列") = not e.NewValue
Case "第二列"
e.DataRow("第一列") = not e.NewValue
End Select
[此贴子已经被作者于2014-2-23 7:36:25编辑过]
加好友 
发短信
Post By：2014/2/23 6:57:00 [显示全部帖子]
