- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动刷新问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75867)
-- 发布时间：2015/10/16 11:11:00
-- 自动刷新问题
此主题相关图片如下：qq截图20151016104115.jpg
如上窗口，合同主表每隔2分钟自动刷新一次，合同明细的记录就跳到当前窗口的第一条，
如何让它不要跳
-- 发布时间：2015/10/16 11:13: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
-- 发布时间：2015/10/16 11:18:00
--
老师这段代码要写在哪里？另“URL表”的内容如何改写
-- 发布时间：2015/10/16 11:19:00
--
放在定时器里面。
-- 发布时间：2015/10/16 11:38:00
--
没有效果，还是跳。合同主表是自动刷新的，但合同明细是不自动刷新的
-- 发布时间：2015/10/16 11:41:00
--
Dim t1 As Table = Tables("主表")
Dim t2 As Table = Tables("明细表")
Dim Int1 As Integer = t1.Position \'获取行位置
Dim p1 As point = t1.ScrollPosition \'获取行在屏幕中位置
t1.StopRedraw
Dim Int2 As Integer = t2.Position \'获取行位置
Dim p2 As point = t2.ScrollPosition \'获取行在屏幕中位置
t2.StopRedraw
t1.DataTable.Load(True)
t1.Position = Int1
t1.ScrollPosition = p2
t1.ResumeRedraw
t2.Position = Int2
t2.ScrollPosition = p2
t2.ResumeRedraw
-- 发布时间：2015/10/16 11:57:00
--
老师还是不行，会不会是像上次一样，还是因为数据多 的原因
-- 发布时间：2015/10/16 11:58:00
--
例子发上来。
-- 发布时间：2015/10/16 13:30:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.foxdb |
-- 发布时间：2015/10/16 14:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.foxdb |