Foxtable(狐表)用户栏目专家坐堂 → 帮忙在这个例子中解决:点击目录节点定位到行


  共有2880人关注过本帖树形打印复制链接

主题:帮忙在这个例子中解决:点击目录节点定位到行

帅哥哟,离线,有人找我吗?
e-png
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2015/2/9 16:03:00 [显示全部帖子]

新手好可怜啊:

Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
With Tables("表A")
    Dim r As Integer
    r = .FindRow("[标题] = '" & nd.text & "'") 
    If r >= 0 Then 
        .Position = r 
    End If
End With

 回到顶部