主题：审核后不准删除行怎么写代码

各位老师,点审核后不准删除行,不能编辑行怎么写代码?

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

点击浏览该文件:审核后不准删除行.foxdb

审核后锁定此行

 

DataColChanged事件代码

If e.DataCol.name = "经理审核"
    If e.DataRow("经理审核") = True
        e.DataRow.Locked = True
    End If

End If

顺便问下czy老师, 假如有关联表的话,怎样在主表点审核后,子表同步自动审核并不能修改?

 

If e.DataCol.name = "经理审核"
    If e.DataRow("经理审核") = True
        e.DataRow.Locked = True
        For Each cdr As DataRow In e.DataRow.GetChildRows("子表")
            cdr.Locked = True
        Next
    End If
End If

谢谢甜老师!  不过代码加进去了子表没有同步审核锁定,帮忙看下是不是代码少了什么

另外审核后因为锁定行了不能取消审核,该怎么设置?

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

点击浏览该文件:审核后不准删除行.foxdb

If e.DataCol.name = "经理审核"
    e.DataRow.Locked = e.DataRow("经理审核")
    For Each cdr As DataRow In e.DataRow.GetChildRows("订单明细")
        cdr("经理审核") = e.DataRow("经理审核")
        cdr.Locked = e.DataRow("经理审核")
    Next
End If

还要请教一下,因为审核后整行都锁定了不能取消审核,除了解锁行,有没有简便一点的办法取消审核?

 如下

 

     

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

点击浏览该文件:审核后不准删除行.foxdb