如何在BOM表的ShowGridTree状态下定位行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在BOM表的ShowGridTree状态下定位行

共有3550人关注过本帖树形打印复制链接主题：如何在BOM表的ShowGridTree状态下定位行

lanbor

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

加好友

发短信

等级：一尾狐帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00

如何在BOM表的ShowGridTree状态下定位行 发帖心情

Post By：2023/5/10 16:27:00 [显示全部帖子]

当前表BOM，是以ShowGridTree状态显示方式

当我用Find 或过虑方式在BOM表中找“规格字段”时，

这个ShowGridTree树状格局就被打乱了。

请教专家：

当BOM表在ShowGridTree状态时，

应该如何用查找代码，来查找“规格字段”，并定位到要查找的记录行？

同时，不会破坏ShowGridTree格局。

感谢专家！

[此贴子已经被作者于2023/5/10 16:28:19编辑过]

lanbor

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

加好友

发短信

等级：一尾狐帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00

如何在BOM表的ShowGridTree状态下定位行 发帖心情

Post By：2023/5/10 17:26:00 [显示全部帖子]

-----搜索代码如下----------

Dim txt As String = e.Form.Controls("TextBox01").Text

Dim tb2 As Table = Tables("Custom_BOMchild")

If txt = "" Then

tb2.Filter = ""

Else

txt = "'%" & txt & "%'"

With Tables("Custom_BOMchild")

Dim r As Integer

r = .FindRow("[FSPECIFICATION] Like " & txt , 0, True) '从当前行的下一行开始查找

If r >= 0 Then '如果找到的话

.Position = r '定位到找到的行。

End If

End With

End If

--------搜索后的格局如下

[此贴子已经被作者于2023/5/10 17:40:05编辑过]

lanbor

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

加好友

发短信

等级：一尾狐帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00

拜谢专家指点 发帖心情

Post By：2023/5/10 17:40:00 [显示全部帖子]

拜谢专家指点，OK了

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

主题：如何在BOM表的ShowGridTree状态下定位行