保存按钮代码如下？
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
Next
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") & "."
Next
ndr("收入分类代码") = str.TrimEnd(".")
ndr("收入目录") = nd.Text
Next
dt.DeleteFor("SRID not in (" & idxs & ")")
dt.Save
想要的结果如下图？怎么修改代码？
此主题相关图片如下：截图00.jpg
加好友 
发短信
Post By：2020/3/15 9:45:00 [只看该作者]
