标题：[求助]目录树对应的daterow行不正确

1楼

moseser 发表于：2023/11/21 18:23:00

此主题相关图片如下：2.png

图1 为生成目录树的表，

Dim str As String = e.Sender.Value

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

Dim filter As String = "[目录方案] = '" & str & "' "

trv.BuildTree("目录方案", "一级目录|二级目录", filter , "顺序号,编码")

trv.ExpandAll

e.Form.Controls("TreeView1").ContextStrip = e.Form.Strips("sp")

图2 为生成的目录树

在目录树的click事件中编写如下代码

Dim nd As WinForm.TreeNode = e.Sender.SelectedNode

Dim dr1 As DataRow = nd.DataRow

Dim p As Integer = Tables("目录方案").FindRow(dr1)

Tables("目录方案").Position = p

问题：

当选择一级节点钢筋时， tables("目录方案")应该是绿色箭头指示的行，而实际则是红色箭头指示的行

也是就是 Dim dr1 As DataRow = nd.DataRow 生成节点的数据行没有找对，

请问是什么原因？

此主题相关图片如下：1.png

2楼

moseser 发表于：2023/11/21 18:25:00

补图

此主题相关图片如下：3.png

3楼

有点蓝 发表于：2023/11/21 20:14:00

我测试没有问题，请上传实例说明

4楼

moseser 发表于：2023/11/22 8:16:00

实例如下

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

5楼

moseser 发表于：2023/11/22 8:18:00

在选择主体、装修一级目录时，有问题

6楼

有点蓝 发表于：2023/11/22 8:33:00

排序列有重复的数据导致的，使用不重复的序号即可

此主题相关图片如下：1.png

7楼

moseser 发表于：2023/11/22 13:11:00

我是根据序号生成编号的，比如一级目录的序号，就自动转成编号，二级目录序号也是从1 开始排，然后找到一级目录的序号n ,然后生成编号 n.1

8楼

有点蓝 发表于：2023/11/22 13:50:00

那就另外再增加一个排序列，总之BuildTree里的排序列不能有重复值。或者不要在BuildTree使用这个排序列

共8 条记录, 每页显示 10 条, 页签: [1]