主题：如何子表锁定父表某列

代码如下，想改成子表“结算表”中“出账单”列= True, 只锁定父表("操作登记表")中“确认”“复核”，“审结”对应三列，代码怎么写？

If e.DataCol.Name = "出账单" Then
    If e.DataRow("出账单") = True Then
        Dim pr As DataRow = e.DataRow.GetParentRow("操作登记表")
        If pr IsNot Nothing Then
            pr.Locked = True
        End If
    End If
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:锁定父表列.table

老大：

谢谢你。

可能是我表达没有清楚，我是想锁定该列，而不是让该列为TRUE 或者FALSE

这样吗？不行耶。

If e.DataRow("出账单") = True Then
        DataTables("操作登记表").DataCols("确认").AllowEdit = False
        DataTables("操作登记表").DataCols("复核").AllowEdit = False
        DataTables("操作登记表").DataCols("审结").AllowEdit = False
    Else
        DataTables("操作登记表").DataCols("确认").AllowEdit = True
        DataTables("操作登记表").DataCols("复核").AllowEdit = True
        DataTables("操作登记表").DataCols("审结").AllowEdit = True
    End If