主题：锁定行是否可以加密码？

 菜单->数据表->表属性->事件->DataRowLockedChanging

 代码

Dim pwd As String
If InputPassWord(pwd,"提示","请输入密码:") Then
    If pwd <> "123456" Then e.Cancel = True
End If

 代码这样写。输对一次密码，解锁所有选中行。

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
        End If
    Else If flag = 1 Then
        e.Cancel = True
    Else If flag = 2 Then
       
    End If
End If

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

这个是没有办法的，修改锁定值，就是修改了内容。没有办法避免。