主题：[求助] 解锁行需要密码....

 这样应该就可以了。

static flag As Integer = 0
Dim t As Table = Tables(e.DataTable.Name)
If e.DataRow.locked Then
    If flag = 0 Then
        e.Cancel = True
        Dim pwd As String
        If InputPassWord(pwd,"提示","请输入密码:") Then
            If pwd = "123456" Then
                flag = 1
            End If
        Else
            flag = 2
        End If
    Else If flag = 1 Then
        e.Cancel = True
    Else If flag = 2 Then
        e.Cancel = True
    End If
End If

If t.BottomPosition = t.FindRow(e.DataRow) Then
    If flag = 1 Then
        flag = 3
        For i As Integer = t.TopPosition To t.BottomPosition
            t.Rows(i).Locked = False
        Next
    End If
    flag = 0
End If

 这个功能不会内置的，因为不具备普片性。解锁过程中需要输入密码。单独设置比较好。