以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]外部数据源更新问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73956)
--  作者：happy_gile
--  发布时间：2015/8/30 1:57:00
--  [求助]外部数据源更新问题
将内部数据源转成外部数据源（SQL），多个人同时使用，可当一个人对数据源内数据进行编辑后，其他人迟迟看不到更新，退出重新进入后方可显示更新内容，这是什么原因呢？
--  作者：新福星
--  发布时间：2015/8/30 5:29:00
--  
其它人在查看数据时，要先更新数据。用load语句重新加载数据
--  作者：happy_gile
--  发布时间：2015/8/30 8:07:00
--  
可以设置自动更新吗？
--  作者：大红袍
--  发布时间：2015/8/30 9:48:00
--  
以下是引用happy_gile在2015/8/30 8:07:00的发言：
可以设置自动更新吗？

 

你可以做一个计时器，定时更新其内容

 

For Each dt As DataTable In DataTables
    dt.Load
Next

 

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

 
--  作者：happy_gile
--  发布时间：2015/8/30 13:08:00
--  
问题解决，可每次更新后光标都会变到第一行，可不可以锁定光标不动
--  作者：大红袍
--  发布时间：2015/8/30 15:01:00
--  
以下是引用happy_gile在2015/8/30 13:08:00的发言：
问题解决，可每次更新后光标都会变到第一行，可不可以锁定光标不动

 

For Each t As Table In Tables
    If t.Current IsNot Nothing Then
        t.Current.Save
        Dim zj As String = t.Current("_Identify")
        t.DataTable.Load
        Dim idx = t.FindRow("_Identify = " & zj)
        If idx >= 0 Then
            t.Position = idx
        End If
    End If
Next