主题：[求助]定位行置顶

 楼主，没看懂意思。加入我选择了CC，那表最后应该怎样排列显示？AA BB 应该在什么位置？

 楼主是说，选中的，后面的，全部上移？

 你的意思是，表不改变，只是滚动条的位置改变？选中的，就滚动到显示的“第一行”？

 楼主，你自己整理一下下面的代码吧，你应该知道怎么用的。

Dim p As New Point(0, -20)
Tables("B").grid.ScrollPosition = p

 哈哈，可以哦，楼主怎么知道的！

CurrentTable.Grid.TopRow = 5

 ？？？

还不行么？不是可以设置TopRow的了么？

然后，Tables("B").Grid.TopRow = 选择节点对应的行

 具体的代码，如下，在你之前的代码加了一句。

'在表中加载当前节点的所有子节点
Dim flt As String = "ACode = '" & e.Node.fullName & "'"
Dim r As Integer = Tables("B").FindRow(flt, 0, False)
If r >= 0 Then
    Tables("B").Grid.TopRow = r + 1
    Tables("B").Position = r
End If

呵呵，我才知道表有这个属性。要回去啃帮助了。