主题：[求助]load表之后焦点定位问题

Dim t As Table = Tables("URL表")

Dim Int As Integer = t.Position    '获取行位置
Dim p As point = t.ScrollPosition  '获取行在屏幕中位置
t.StopRedraw
t.DataTable.Load(True)
t.Position = Int
t.ScrollPosition = p
t.ResumeRedraw

参考代码

http://www.foxtable.com/help/topics/0641.htm

http://www.foxtable.com/help/topics/0553.htm

4楼的代码，只是定位。

你说序号如果是左边的列，肯定不一样的。要不你就加一个编号列。

定位问题，筛选代码改一下

Dim Filter As String
Dim ary() As String = e.Node.FullPath.split("\")
If e.Node.Text <> "显示全部" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[类型] = '" & ary(0) & "'"
        Case 1
            Filter = "[类型] = '" & ary(0) & "'And [部门] = '" & ary(1) & "'"
        Case 2
            Filter = "[类型] = '" & ary(0) & "'And [部门] = '" & ary(1) & "'And [客户端二级栏目] = '" & ary(2) & "'"
        Case 3
            Filter = "[类型] = '" & ary(0) & "'And [部门] = '" & ary(1) & "'And [客户端二级栏目] = '" & ary(2) & "'And [客户端三级栏目] = '" & ary(3) & "'"
    End Select
End If
Tables("url总表_table1").Filter = Filter