主题：菜单代码

If user.NAME = "管理员" Then
    For Each r As Row In CurrentTable.Rows
        If r("XZH") = True Then
            Syscmd.Row.Delete()
        End If
    Next
   
ElseIf User.IsRole("总工办") Then
    For Each r As Row In CurrentTable.Rows
        If r("XZH") = True Then
            If CurrentTable.current.Isnull("BMSH") = False Then
                MessageBox.Show("数据已经审核通过,你不能删除!.")
            Else
                Syscmd.Row.Delete()
            End If
        End If
    Next
End If

 

 看3楼，楼主你一点进步都没有