主题：[原创]代码问题

看19楼，20楼，不会做，就请上传例子。

试试这样改

If e.Row("SQDW") <> User.Group And User.Group <> "集团成员" Then '在编辑某行前,会自动判断负责此行的部门列是否和登录用户所属分组相同,如果不同,则取消编辑.
    e.Cancel = True
End If
If e.Row("TBR") <> User.NAME And User.Group <> "集团成员" Then '在编辑某行前,会自动判断负责此行的填报人列是否和登录用户所属分组相同,如果不同,则取消编辑.
    e.Cancel = True
End If
If E.Row.IsNULL("SBR") = False AndAlso e.Row("TBR") <> "'" & User.NAME & "'" Then
    e.Cancel = True
End If
'下列代码为指定角色可以编辑哪些列
If User.IsRole("子公司财务") Then
    Select Case e.Col.Name
        Case "SQDWCW1","SQDWCW"
            If E.Row.IsNULL("SQDWCW2") = False Then
                e.Cancel = True
                '              MessageBox.Show("已审核,不能编辑")
            Else
                e.Cancel = False
            End If
    End Select
ElseIf User.IsRole("总工办1") Then
    Select Case e.Col.Name
        Case "SHYJ","SH1","YYSM"
            If E.Row.IsNULL("SH") = False Then
                e.Cancel = True
                '               MessageBox.Show("已审核,不能编辑")
            Else
                e.Cancel = False
            End If
    End Select
ElseIf User.IsRole("集团财务1") Then
    Select Case e.Col.Name
        Case "CWSH1","CWSH3","CWSH4","CWSH5"
            If E.Row.IsNULL("cwsh2") = False Then
                e.Cancel = True
                '                MessageBox.Show("已审核,不能编辑")
            Else
                e.Cancel = False
            End If
    End Select
End If