怎么实现一切换表头就同步当前表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么实现一切换表头就同步当前表

共有3777人关注过本帖树形打印复制链接主题：怎么实现一切换表头就同步当前表

有点甜

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/3 21:49:00 [显示全部帖子]

你就想现在这样做吧，别折腾啦

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/3 21:54:00 [显示全部帖子]

不是给过你了么

lockbasemainform
CurrentTable.StopRedraw
CurrentTable.Current.Save
Dim identify As Integer = CurrentTable.Current("_Identify")
CurrentTable.DataTable.Load
Dim idx As Integer = CurrentTable.FindRow("_Identify = " & identify)
If idx > -1 Then
CurrentTable.Position = idx
Else
CurrentTable.Position = CurrentTable.Rows.Count - 1
End If
CurrentTable.ResumeRedraw
unlockbasemainform

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/3 21:59:00 [显示全部帖子]

这儿就是记录了啊，我测试就是原来的那一行啊

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/3 22:04:00 [显示全部帖子]

lockbasemainform
CurrentTable.StopRedraw
CurrentTable.Current.Save
Dim identify As Integer = CurrentTable.Current("_Identify")
Dim tidx As Integer = CurrentTable.TopVisibleRow
CurrentTable.DataTable.Load
Dim idx As Integer = CurrentTable.FindRow("_Identify = " & identify)
If idx > -1 Then
    CurrentTable.Position = idx
    CurrentTable.TopVisibleRow = tidx
Else
    CurrentTable.Position = CurrentTable.Rows.Count - 1
End If
CurrentTable.ResumeRedraw
unlockbasemainform

下一主题 >> << 上一主题

总数 15 上一页 1 2

主题：怎么实现一切换表头就同步当前表