[求助]判断不出末级节点 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]判断不出末级节点

共有3318人关注过本帖树形打印复制链接主题：[求助]判断不出末级节点

chnfo

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2290 积分：18812 威望：0 精华：0 注册：2011/11/26 20:21:00

[求助]判断不出末级节点 发帖心情

Post By：2015/5/9 10:06:00 [显示全部帖子]

希望通过列C的层级判断是否为末级节点，为什么不行呢？

A表中有两列C（字符），T（逻辑）——用于标识这个节点是否为末级节点

在A表的datacolchanged事件中这样写：

Select Case e.DataCol.Name

Case "C"

For Each dr As DataRow In e.DataTable.DataRows

Dim cs As DataRow = e.DataTable.Find("C like '" & dr("C") & "*'")

If cs IsNot Nothing Then

dr("T") = False

Else

dr("T") = True

End If

End Select

执行之后，结果是这样的。这是为什么呢？初步判断是上面的蓝色字体有问题，请教各位，问题出在哪里？因为传不上附件，考虑只有一个表，直接截取界面了。

示例如下：

C T

01 False

0101 False

010101 False

010102 False

0102 False

0103 False

02 False

0201 False

020101 False

020102 False

chnfo

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2290 积分：18812 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2015/5/9 10:30:00 [显示全部帖子]

貌似还是有点问题。因为任意一行的修改都可能导致另外的节点成为非末级节点。

所以，我觉得需要遍历。问题是修改之后执行还是有问题

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

chnfo

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2290 积分：18812 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2015/5/9 10:55:00 [显示全部帖子]

重置C列会出错滴，BIN兄。

此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据

用SQL…………，这个…………

Select Case e.DataCol.Name

Case "C"

For Each dr As DataRow In e.DataTable.Datarows '当C列的值发生变化时，

Dim cs As DataRow = e.DataTable.Find("C like '" & dr("C") & "*'") '如果在表中找到C值与当前遍历行相似且以当前遍历行C值开头的行，则说明当前遍历行不是末级节点，否则当前遍历行就是末级节点

If cs IsNot Nothing Then

dr("T") = False

Else

dr("T") = True

End If

End Select

并且，如果我将0102改为01.02，然后把"C like '" & dr("C") & "*'"改为"C like '" & dr("C") & ".*'"

执行重置C列就完全没有问题，可以看到该标记为末级节点的都标记成功。并且修改任意一行的C值，会重新标记所有列的T

[此贴子已经被作者于2015/5/9 10:58:25编辑过]

chnfo

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2290 积分：18812 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2015/5/9 11:02:00 [显示全部帖子]

01 False

0101 False

010101 True ‘如果我将第四行修改为01010101，那么这一行应当标记为false才对’

01010101 True

这就是我所说的只更新某一行是不行的，某一行的C值改变可能导致其它行成为非末级节点。

[此贴子已经被作者于2015/5/9 11:02:46编辑过]

chnfo

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2290 积分：18812 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2015/5/9 11:15:00 [显示全部帖子]

正常情况下，是直接在EXCEL等中做好了之后，直接复制进来的，一般不会改。

实在是怕用户破坏性操作。

关键问题是，我不太明白为什么运行附件中的D和F表的重置C列，D表会执行，F表不会执行，难道like做判断必须要用分隔符？

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

[此贴子已经被作者于2015/5/9 11:15:49编辑过]

chnfo

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2290 积分：18812 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2015/5/9 11:24:00 [显示全部帖子]

再请教，"C Like '" & dr("C") & "%' and _Identify <> " & dr("_Identify")

为什么D表事件中，不加这一段也可以顺利执行？

下一主题 >> << 上一主题

主题：[求助]判断不出末级节点