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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

单击节点代码，错误在哪里？我还是没搞明白原理。

Dim tr As WinForm.TreeView

tr = e.Form.Controls("TreeView1")

tr.Select()

Dim nd As WinForm.TreeNode = e.Node

tr.SelectedNode = nd '到这里还没错

Dim dr As DataRow

dr = nd.DataRow

MessageBox.show(dr("id")) '运行不到这里，已经出错了

'Dim bmxh As String = "部门ID:" & dr("id")

'nd.Tooltip = bmqc & chr(13) & chr(10) & bmxh

[此贴子已经被作者于2019/2/14 11:29:52编辑过]

参考11楼，不能使用 nd.datarow

如果你要用，就用 nd.tag 获取id值

我太笨了，还是不明白。只好再修改一下实例发上来，再请指点。

实例要实现的功能是，删除部门节点之前，先判断部门中有没有人员。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

先谢再看！

不行啊老大，出错啦！

那个按钮，带判断的删除节点，代码运行出错：

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

Dim nd As WinForm.TreeNode = tr.SelectedNode

Dim bmid As Integer

Dim dr As DataRow = nd.DataRow '获取生成此节点的行

bmid = dr("id")

'以上代码,从部门表中提取bmid

'以下代码,到员工基础表中去筛选,如果部门下面有员工,则不许删除部门

Tables("员工基础表").Filter = "[部门ID] = " & bmid

If Tables("员工基础表").Rows.Count > 0

MessageBox.show("本部门内有员工,不能删除,只能更改部门名称,或先将部门内员工全部调出后才能删除!","警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)

e.Cancel = True

Tables("员工基础表").Filter = "" '取消该表筛选恢复原样

MainTable = Tables("部门表")

Else

Dim pth() As String = nd.FullPath.Split("\")

Select Case nd.Level

Case 0

DataTables("部门表").DeleteFor("一级 = '" & pth(0) & "'")

Case 1

DataTables("部门表").DeleteFor("一级 = '" & pth(0) & "' And 二级 = '" & pth(1) & "'")

Case 2

DataTables("部门表").DeleteFor("一级 = '" & pth(0) & "' And 二级 = '" & pth(1) & "' And 三级 = '" & pth(2) & "'")

Case 3

DataTables("部门表").DeleteFor("一级 = '" & pth(0) & "' And 二级 = '" & pth(1) & "' And 三级 = '" & pth(2) & "' and 四级 = '" & pth(3) & "'")

End Select

nd.Delete()

End If

tr.Select()

[此贴子已经被作者于2019/2/14 15:09:59编辑过]

自己看【删除】按钮。用nd.tag啊。

14楼的

“

如果你要用，就用 nd.tag 获取id值

”

看不懂。

Dim dr As DataRow = nd.DataRow '获取生成此节点的行

隐约感觉问题出在这一行。

另外，4楼或许有答案，正在试改。

[此贴子已经被作者于2019/2/14 15:39:50编辑过]

主题：关于目录树问题请教