主题：[讨论]这个可视化授权能不能把菜单菜权设置这个去了

.NET Framework 版本：2.0.50727.8936
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
',' 附近有语法错误。

照抄的，那错了呢。单击节点后出现。

If e.node.Level = 0 Then
    e.node.Expand
ElseIf e.node.Level =1 Then
    Dim bmm As String = e.node.Name.Split("+")(0)
    DataTables("授权表").LoadFilter = "用户组='" & e.node.ParentNode.Name & "' and bm ='" & bmm & "'"
    DataTables("授权表").Load()
    Dim zd As new  Dictionary(of String,String)
    zd.Clear
    Dim ms As Integer = 0
    For Each dr As DataRow In DataTables("授权表").dataRows
        If zd.ContainsKey(dr("lm"))=False Then
            zd.Add(dr("lm"),"1")
        End If
        If dr.IsNull("lm")=True Then
            ms +=1
        End If
    Next
    If ms=0 Then
        Dim rw As DataRow =  DataTables("授权表").AddNew
        rw("用户组") = e.node.ParentNode.Name
        rw("bm") = bmm
        rw.Save
    End If
    Dim ss As new List(of String)
    For Each cl As Col In Tables(bmm).Cols
        If zd.ContainsKey(cl.Name)=False Then
            If Connections.Count=0 Then
                Dim rw As DataRow =  DataTables("授权表").AddNew
                rw("用户组") = e.node.ParentNode.Name
                rw("bm") = bmm
                rw("lm") = cl.Name
            Else
                ss.Add("('" & e.node.ParentNode.Name & "','" & bmm & "','" & cl.name & "',0,0)")
                zd.Add(cl.Name,"1")
            End If
        End If
    Next
    Dim Arys() As String
    Arys=ss.ToArray()
    Dim ssj As String = String.Join(",",Arys)
    If ssj > "" Then
        Dim cmd As new SQLCommand
        cmd.C
        cmd.CommandText = "Insert Into 授权表 (用户组,bm,lm,不可见,不可编辑) Values" & ssj
        cmd.ExecuteScalar
        output.show(ssj)
        DataTables("授权表").LoadFilter = "用户组='" & e.node.ParentNode.Name & "' and bm ='" & bmm & "'"
        DataTables("授权表").Load()
       
    End If
   
   
    DataTables("授权表").save()
    For Each cl As Col In Tables(bmm).Cols
        Dim lmm As String = IIF(cl.Caption > "" ,cl.Caption,cl.Name)
        Dim bm2 As String = IIF(DataTables(bmm).Caption > "" ,DataTables(bmm).Caption,bmm)
        DataTables("授权表").ReplaceFor("列名",lmm,"lm='" & cl.Name & "'")
        DataTables("授权表").ReplaceFor("表名",bm2,"bm='" & bmm & "'")
       
    Next
    DataTables("授权表").AcceptChanges()
End If

单击节点后出现。

实际使用时，是用sql数据表。