主题：[求助]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

 

额 老师 我在currentchanged 事件里用了两种方法 都不能解决我点击加载树控件节点后 两个表的序号问题

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