主题：[分享]彻底优化独占式编辑终极版---求狐爸给精华

'--------改良独占式编辑

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行

    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行

        Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行

        Dim i As Integer = 0

        For Each c As Col In e.Table.Cols

            If r.DataRow.OriginalValue(c.name)  <>  r(c.name) AndAlso c.name<>"编辑者" AndAlso c.name<>"执行次数"  Then   '不检查编辑者列和表达式列

                i = i+1

            End If

        Next

        If i = 0 Then

            r.reject   '恢复行状态

            Dim cmd1 As New SQLCommand

            cmd1.CommandText = "Select 编辑者 From {任务追踪表} Where [_Identify] = " & r.DataRow("_Identify")

            Dim nm As String = cmd1.ExecuteScalar

            If nm = user.name Then

                If r.DataRow.RowState = DataRowState.Added Then '如果是新增行

                    r.DataRow("编辑者") = Nothing

                Else

                    Dim cmd As New SQLCommand

                    cmd.CommandText = "Update {任务追踪表} Set 编辑者 = Null Where [_Identify] = " & r.DataRow("_Identify")

                    If cmd.ExecuteNonQuery = 1 Then

                        r.DataRow("编辑者") = Nothing

                    End If

                End If

            End If

        End If

    End If

End If