我在click加了授权代码，明细表(子表)就不能编辑，请问怎么才能让明细表能够编辑？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

材料出库单表是父表;材料出库单明细表是子表我建了一个“新增”入库单的窗口，"新增"按钮的click事件的代码是：

If Functions.Execute("ShouQuan","A-材料出库单","2-创建")   Then
    Tables("材料出库单").AddNew()
    Forms("材料出库单").Open()
Else
    Messagebox.Show("对不起,你没有操作权限")
End If

结果在 “新增”入库单的窗口里明细表(子表)可以新增行可是就是不能添加数据、不能编辑。请问如何调整代码，怎么让窗口中的明细表(子表)能够编辑(添加数据)？

这得看你编辑授权的代码是什么了。

授权函数名为ShouQuan，代码为：

If User.Type <> UserTypeEnum.User Then ' 如果是开发者或者管理员
    Return True '则具备所有权限
End If
Dim dt As DataTable = DataTables("授权")
Dim dr As DataRow
'首先判断分组的授权用户是否包括此用户或此用户所属的分组
dr = dt.Find("分组 = '" & args(0) & "' And 权限 Is Null" )
If dr Is Nothing Then
    MessageBox.show("不存在名为""" & args(0) & "分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return False
End If
If dr.IsNull("用户") = False Then
    Dim nms() As String = dr("用户").Split(",")
    For Each nm As String In nms
        If nm = User.Group OrElse nm = User.Name Then '如果授权用户包括登录用户所属的分组或其用户名
            Return True '返回True
        End If
    Next
End If
'然后判断权限的授权用户是否包括此用户或此用户所属的分组
If Args(1) = "" Then
    Return False
End If
dr = dt.Find("分组 = '" & args(0) & "' And 权限 = '" & args(1) & "'")
If dr Is Nothing Then
    MessageBox.show("不存在名为""" & args(1) & "权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return False
End If
If dr.IsNull("用户") = False Then
    Dim nms() As String = dr("用户").Split(",")
    For Each nm As String In nms
        If nm = User.Group OrElse nm = User.Name Then '如果授权用户包括登录用户所属的分组或其用户名
            Return True '返回True
        End If
    Next
End If
Return False

狐狸爸爸，请问这个代码该怎么改，让相关的关联表也有编辑权限

我的代码都是按照

目录树形式的授权

的帮助中的这一章节中的代码做的请问狐狸爸爸该怎么调整代码让关联表也有编辑权限

增加权限按钮的代码：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim pd As WinForm.TreeNode = trv.SelectedNode
trv.Select()
If pd.Level = 1 Then
    pd = pd.ParentNode
End If
Dim i As Integer
Do
    i = i+ 1
    Dim nm As String = "权限" & i
    If pd.Nodes.Contains(nm) = False
        Dim nd As WinForm.TreeNode = pd.Nodes.Add(nm)
        Dim dr As DataRow = DataTables("授权").AddNew()
        dr("分组") = pd.name
        dr("权限") = nm
        trv.SelectedNode = nd
        trv.BeginEdit
        Exit Do
    End If
Loop

目录树形式的授权中的增加权限的这段代码该如何修改才能使一张表的关联表(子表)也编辑权限

狐狸爸爸帮我看一下啊

狐狸爸爸我的问题弄啊？

贴出你的PrePareEdit事件代码。

主表的 PrePareEdit事件这有这个代码e.Cancel = True 子表的没有

将这个代码改为：

if e.Table.IsRelation = False Then

e.Cancel = True

End if

主题：我在click加了授权代码，明细表(子表)就不能编辑，请问怎么才能让明细表能够编辑？