以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在BOM表的ShowGridTree状态下定位行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186541)
--  作者：lanbor
--  发布时间：2023/5/10 16:27:00
--  如何在BOM表的ShowGridTree状态下定位行
当前表BOM，是以ShowGridTree状态显示方式
当我用Find 或 过虑方式在BOM表中找“规格字段”时，
 这个ShowGridTree树状格局就被打乱了。

请教专家：
当BOM表在ShowGridTree状态时，
应该如何用查找代码，来查找“规格字段”，并定位到要查找的记录行？
同时，不会破坏ShowGridTree格局。

感谢专家！
[此贴子已经被作者于2023/5/10 16:28:19编辑过]
--  作者：有点蓝
--  发布时间：2023/5/10 16:36:00
--  
如果使用find（http://www.foxtable.com/webhelp/topics/0552.htm）或者findrow（http://www.foxtable.com/webhelp/topics/0553.htm），只是定位行，怎么会破坏什么格局？

截图说明一下
--  作者：lanbor
--  发布时间：2023/5/10 17:26:00
--  如何在BOM表的ShowGridTree状态下定位行


-----搜索代码如下----------
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编辑过]
--  作者：有点蓝
--  发布时间：2023/5/10 17:35:00
--  
去掉【tb2.Filter = ""】，不能做筛选，只能做定位。如果要做筛选吗，筛选后重新调用ShowGridTree
--  作者：lanbor
--  发布时间：2023/5/10 17:40:00
--  拜谢专家指点
拜谢专家指点，OK了