以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  双击目录树节点，如何使对应表的焦点对应到相关行上去  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19632)
--  作者：erdbeer
--  发布时间：2012/5/16 14:27:00
--  双击目录树节点，如何使对应表的焦点对应到相关行上去

图片点击可在新窗口打开查看此主题相关图片如下：3.jpg
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：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