主题：[原创]代码问题

Dim dr As DataRow = DataTables("ZJJHB").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
If dr IsNot Nothing Then
    e.Datarow("JZ") = False
End If

写在BeforeDeleteDataRow事件

Dim dn As DataRow = DataTables("zjsqb").Find("[jhbh] = '" & e.DataRow("jhbh") & "'")
If dn IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
    dn("jz") = False
End If

写在 B表申请表 BeforeDeleteDataRow事件

Dim dn As DataRow = DataTables("zjsqb").Find("[jhbh] = '" & e.DataRow("jhbh") & "'")
If dn IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
    dn("jz") = False
End If

  回复18楼，你的意思就是，删除了表B数据的时候，把表A的数据设置成False啊

Dim dn As DataRow = DataTables("zjsqb").Find("[jhbh] = '" & e.DataRow("jhbh") & "'")
If dn IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
    dn("jz") = False
End If

放在 PREPAREDIT 的代码，去掉MessageBox

同样复制代码到 Click 事件去。

看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