双击目录树节点，如何使对应表的焦点对应到相关行上去 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 双击目录树节点，如何使对应表的焦点对应到相关行上去

共有8399人关注过本帖树形打印复制链接主题：双击目录树节点，如何使对应表的焦点对应到相关行上去

erdbeer

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

加好友

发短信

等级：一尾狐帖子：447 积分：4793 威望：0 精华：0 注册：2010/4/11 14:09:00

双击目录树节点，如何使对应表的焦点对应到相关行上去 发帖心情

Post By：2012/5/16 14:27:00 [只看该作者]

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

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/5/16 14:36:00 [只看该作者]

If e.Node.Level = 1 then
    Dim Value()As String
    Value = e.Node.FullPath.Split("\")
    Dim flt As String
    flt = "[合同号] = '" & Value(0) & "' And [订单号] = '" & Value(1) & "'"
     Dim r As Integer
    r = Tables("xxx").FindRow(flt, 0, True )
    if r >0 then
        Tables("XXX").Position = r
    End if
End if

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

主题：双击目录树节点，如何使对应表的焦点对应到相关行上去