把窗口结构导出到表里面，结果运行不了，不知问题出哪了
For Each f As WinForm.Form In forms
Dim Multi As String = f.Category & "\" & f.name
Dim Vals() As String = Multi.Split("\")
For Index As Integer = 0 To Vals.Length - 1
Dim dr As DataRow = DataTables("权限表").SQLFind("名称 = Vals(Index)")
Dim dr1 As DataRow = DataTables("权限表").SQLFind("名称 = Vals(Index - 1)")
If dr Is Nothing Then
Dim r As Row = Tables("权限表").AddNew()
r("名称") = Vals(Index)
If Index = 0 Then
r("父键") = Index
r("子键") = Tables("权限表").Compute("MAX(子键)") + 1
Else
r("父键") = dr1("子键")
r("子键") = Tables("权限表").Compute("MAX(子键)") + 1
End If
r.save
End If
Next
Next
[此贴子已经被作者于2023/8/1 8:20:24编辑过]
加好友 
发短信
Post By：2023/7/31 18:33:00 [只看该作者]
