主题：[求助]关于类似一个权限控制的需求

呵呵，很有意思的问题，可以小考一下逻辑能力。

下面的代码放在PrepareEdit事件， "第一列","第二列","第三列","第四列"这四列，如果后一列输入了内容，则前面所有列不能输入内容。

 Select Case e.Col.Name
    Case "第一列","第二列","第三列","第四列"
        Dim Ary() As String = New String (){ "第一列","第二列","第三列","第四列"}
        For i As Integer = Ary.Length - 1 To 0 Step - 1
            If Ary(i) = e.Col.Name Then
                Exit For
            ElseIf e.Row.IsNull(ary(i)) = False Then
                e.Cancel = True
                Exit For
            End If        
        Next
End Select

 如果按行更简单，例如要对第一列进行类似的设置：

if e.Col.Name = "第一列" Then
    If e.Table.FindRow("第一列 Is Not Null",e.Table.Position + 1,False) > 0  Then
        e.Cancel = True
    End If
End If

这样某行第一列输入了内容，那么之前所有行的第一列都不能输入内容

 那就是用2楼的代码

 也可以用序号的，你仔细想想，自己写一下。