以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]目录树节点定位行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99165)
--  作者：jyh7081
--  发布时间：2017/4/13 16:46:00
--  [求助]目录树节点定位行

如果点击的目录树节点是当前表[编号] 列的值，那么定位到该行。点击没反应，哪里错了？

 

目录树的NodeMouseClick事件


With CurrentTable
    Dim r As Integer
    r = .FindRow("[编号] = \'" & e.Node.Text & "\'") \' 从第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With

 

谢谢指教！


 
--  作者：有点色
--  发布时间：2017/4/13 17:06:00
--  

 直接指定一下表名吧，测试代码，看弹出什么

 

msgbox(CurrentTable.name)
With Tables("表A")
    Dim r As Integer
    r = .FindRow("[编号] = \'" & e.Node.Text & "\'") \' 从第一行开始查找
    msgbox(r)
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With