表是外部数据表,数据不能保存到远程数据源,请帮助Sub 增加子类()
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = Forms("类别_侧边栏").Controls("TreeView1")
nd = tr.SelectedNode
If nd IsNot Nothing Then
If nd.Level = 3 Then
MessageBox.Show("最多允许三层类别!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Dim dr As DataRow = DataTables("类别编码").AddNew
If nd.level=0 Then
dr("类别名称") = "新子类"
End If
If nd.Level = 1 Then
dr("类别名称") = nd.Text+"\新子类"
End If
If nd.Level = 2
dr("类别名称") = nd.ParentNode.Text+"\"+nd.text+"\新子类"
End If
dr("用户")=User.Name
nd = nd.Nodes.Add("新子类")
'nd.tag = dr("_Identify")
tr.SelectedNode = nd
tr.Select()
tr.BeginEdit()
If tr.SelectedNode.text<>"" Then
dr.save()
Tables("类别编码").save()
DataTables("类别编码").save() '这样也不行
End If
End If
End If
End Sub
加好友 
发短信
Post By：2016/4/8 10:01:00 [只看该作者]
