关于更改目录树数据问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

修改或添加目录树项目时怎么控制不让有重复字段呢？

保存按钮代码如下？

Dim dt As DataTable = DataTables("收入分类")

Dim dic As New Dictionary(of Integer, Integer)

Dim prevLevel As Integer = 0

Dim idxs As String = "-1,"

For Each nd As WinForm.TreeNode In e.Form.Controls("srflTreeView").AllNodes

If nd.Level = 0 AndAlso dic.count > 0 Then

Dim temp = dic(0)

dic.Clear

dic.Add(0, temp)

End If

If dic.ContainsKey(nd.Level) = False Then

dic.Add(nd.Level, 1)

Else

dic(nd.Level) = dic(nd.Level) + 1

End If

For i As Integer = nd.level + 1 To prevLevel

dic(i) = 0

prevLevel = nd.Level

Dim ndr As DataRow

If nd.DataRow IsNot Nothing Then

'ndr = dt.Find("SRID = '" & nd.DataRow("SRID"))

ndr = dt.Find(" SRID = '" & nd.DataRow("SRID") & " '") '字符列使用单引号

'Dim idx As Integer=t.findrow("机具条码= '" & str & "' and _Identify <> " & t.current("_Identify"))

Else

ndr = dt.AddNew

End If

idxs &= "'" & ndr("SRID") & "',"

Dim str As String = ""

For i As Integer = 0 To nd.Level

str &= format(dic(i), "000") & "."

ndr("收入分类代码") = str.TrimEnd(".")

ndr("收入目录") = nd.Text

dt.DeleteFor("SRID not in (" & idxs & ")")

dt.Save

想要的结果如下图？怎么修改代码？

此主题相关图片如下：截图00.jpg

如果有重复怎么禁止离开节点呢？

还有一个为题在AfterEditNode事件中下面的代码可以查出重复值，如果在按钮中编写代码，怎么查呢？如果重复，选中该节点，

Dim trv As WinForm.TreeView=e.Form.Controls("zcflTreeView")

For Each nd As WinForm.TreeNode In trv.AllNodes

If nd.FullName <> e.Node.FullName AndAlso nd.Text = e.NewText Then

msgbox("重复")

e.Cancel = True

trv.Select()

trv.BeginEdit()

End If

[此贴子已经被作者于2020/3/15 23:39:34编辑过]

还有一个为题在AfterEditNode事件中下面的代码可以查出重复值，如果在按钮中编写代码，怎么查呢？如果重复，选中该节点，

Dim trv As WinForm.TreeView=e.Form.Controls("zcflTreeView")

For Each nd As WinForm.TreeNode In trv.AllNodes

If nd.FullName <> e.Node.FullName AndAlso nd.Text = e.NewText Then

msgbox("重复")

e.Cancel = True

trv.Select()

trv.BeginEdit()

End If

写在按钮中判断是错误的没有e.NewText

此主题相关图片如下：截图01.jpg

[此贴子已经被作者于2020/3/16 9:15:26编辑过]

Dim trv As WinForm.TreeView = e.Form.Controls("zcflTreeView")

If trv.SelectedNode IsNot Nothing Then

Dim pd As WinForm.TreeNode = trv.SelectedNode

Dim Index As Integer = 1

If pd.Nodes.count >= 1 Then

Index = cint(pd.Nodes(pd.nodes.count - 1).name) + 1

End If

Dim nd As WinForm.TreeNode = pd.Nodes.Add(index,"新节点")

' MessageBox.Show("请为【新节点】重新命名","提示",MessageBoxButtons.OK)

trv.SelectedNode = nd

trv.Select

trv.BeginEdit

Forms("支出类型赋值编辑窗体").Open

End If

这个是再加一个下级节点，怎么修改为增加同级节点呢？弄了半天没弄好

保存不了代码

此主题相关图片如下：截图02.jpg

主题：关于更改目录树数据问题