Dim dt As DataTable=DataTables(vars("editTable"))
Dim r0 As Row =Tables(vars("editTable")).Current
Dim r As DataRow=dt.AddNew
r("序号")=dt.sqlCompute("Max(序号)")+1
'目录树
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim sd As WinForm.TreeNode=tr.SelectedNode '当前选择的项
Dim typ As String = "新分类" '分类
Dim grp As String = "新分组" '分组
Dim name As String = "新名称" '名称
r("父键")=dt.sqlCompute("Max(父键)")+1
r("分类")= typ & r("序号")
Dim n = tr.Nodes.add(r("分类"))
Dim s As String=r0("分类")
tr.SelectedNode =tr.Nodes(s)
sd.Expand
r.Save
增加子项
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim sd As WinForm.TreeNode =tr.SelectedNode '当前选择的项
If sd Is Nothing Then Return
Dim dt As DataTable=DataTables(vars("editTable"))
Dim r0 As Row =Tables(vars("editTable")).Current
Dim typ As String ="新分类" '分类
Dim grp As String ="新分组" '分组
Dim name As String ="新名称" '名称
Select Case sd.level
Case 2
MessageBox.Show("这是最小节点,不能添加子项","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
Case 0
Dim r As DataRow=dt.AddNew
r("序号")=dt.sqlCompute("Max(序号)")+1
r("父键") = r0("父键")
r("分类")= r0("分类")
r("分类图标") = r0("分类图标")
r("分组")= grp & r("序号")
sd.nodes.Add(r("分类"),r("分组"),r("分类图标"))
Dim s As String=r("标题")
tr.SelectedNode =sd.Nodes(s)
sd.Expand
tr.Select
r.save
Case 1
Dim r1 As DataRow=dt.AddNew
r1("序号")=dt.sqlCompute("Max(序号)")+1
r1("父键") = r0("父键")
r1("分类")= r0("分类")
r1("分类图标")= r0("分类图标")
r1("分组")= r0("分组")
r1("名称")= name & r1("序号")
sd.nodes.add(r1("分类") & r1("分组"),r1("名称"),r1("分类图标"))
Dim s As String=r1("标题")
tr.SelectedNode =sd.Nodes(s)
sd.Expand
tr.Select
r1.save
End Select
加好友 
发短信
Post By：2019/9/24 15:38:00 [只看该作者]
