TreeView1与表中不同步 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

增加项

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

2楼

Case 0

sd.nodes.Add(r("分类"),r("分组"),r("分类图标"))

改为

sd.nodes.Add(r("分组"))

Case 1

sd.nodes.add(r1("分类") & r1("分组"),r1("名称"),r1("分类图标"))

改为

sd.nodes.add(r1("名称"))

什么地方上移？按什么逻辑上移？

是同级别的节点上下交换顺序，还是把子节点移到父节点下面作为兄弟节点

同级别节点上下交换顺序，仍然是同一个父节点，不还是同一个父键吗？

试试

Dim dt As DataTable=DataTables(vars("editTable"))

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim sd As WinForm.TreeNode=tr.SelectedNode '当前选择的项

If sd.Index > 0 Then

Dim sd2 As WinForm.TreeNode = tr.Nodes(sd.Index - 1)

Dim dr1 As DataRow = dt.Find("分类='" & sd.text & "'")

Dim dr2 As DataRow = dt.Find("分类='" & sd2.text & "'")

If dr1 IsNot Nothing AndAlso dr2 IsNot Nothing Then

Dim d1 As Integer = dr1("父键")

Dim d2 As Integer = dr2("父键")

dt.ReplaceFor("父键",99999,"父键=" & d2)

dt.ReplaceFor("父键",d2,"父键=" & d1)

dt.ReplaceFor("父键",d1,"父键=99999")

sd.MoveUp

End If

是的。不是有一个序号列了吗

那就要增加辅助列了

某节点.Nodes.count = 0就是没有子节点

Dim sd4 As WinForm.TreeNode = sd.ParentNode.Nodes(sd.Index - 1)

主题：TreeView1与表中不同步