以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]load表之后焦点定位问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75722)
--  作者：leopain
--  发布时间：2015/10/13 16:04:00
--  [求助]load表之后焦点定位问题
老师 我想问一下 在录入窗口里保存按钮我写了 
datatables("URL表").save
datatables("URL表").load
在load之后 怎么才能定位到之前编辑的一行呢?
--  作者：大红袍
--  发布时间：2015/10/13 16:07:00
--  

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

 

 
--  作者：leopain
--  发布时间：2015/10/13 16:20:00
--  
额 老师 再请教一个问题
就是 怎么使 表序号 和 窗口中sql表控件的序号相同呢
--  作者：大红袍
--  发布时间：2015/10/13 16:24:00
--  

参考代码

 

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

 

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

 
--  作者：leopain
--  发布时间：2015/10/13 17:03:00
--  
额 老师 我在currentchanged 事件里用了两种方法 都不能解决我点击加载树控件节点后 两个表的序号问题
我点击加载树节点后 修改某一行数据  焦点定位会出现问题

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1_201510131700.zip
--  作者：大红袍
--  发布时间：2015/10/13 17:17:00
--  

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