- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口结构导出到表里出问题了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187639)
-- 发布时间：2023/7/31 18:33:00
-- 窗口结构导出到表里出问题了
把窗口结构导出到表里面，结果运行不了，不知问题出哪了
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
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.zip |
[此贴子已经被作者于2023/8/1 8:20:24编辑过]
-- 发布时间：2023/7/31 19:56:00
--
提示什么错误？最终要什么效果？
-- 发布时间：2023/8/1 8:14:00
--
提示未引用到实例。想把窗口结构导到表里，父键、子键分别为上级目录、本级目录或窗口名称，以数字标识，根目录父键为0，名称列为本级目录或窗口名称，序号列想实现作为目录树时排序用（最好保持原结构）
[此贴子已经被作者于2023/8/1 8:19:57编辑过]
-- 发布时间：2023/8/1 8:15:00
--
[此贴子已经被作者于2023/8/1 8:20:50编辑过]
-- 发布时间：2023/8/1 9:21:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.zip |