主题：系统要怎么才实现各客户端修改数据后，其它客户端即时看得见？？

      我想请教大家一个问题，一个系统用外部数据源，有多个客户端，我想让每个客户端的数据改后，其它客户端用计载管理的追载方式得到最近的修改，请问用什么方案和思路？说明一下，要即时更的的显示在客户端上的表是一个窗口副表。

    昨天跟狐表的宠工讨论了一下，他做了一个列子，有些还不太理解，也不能真正的实现，发上来求解，今天他不在，而我只有周未空些，只有先贴在论里让大家思考？求解。

   我相信这种需求有很多系统都要要，而且代码有些类通，请各位多出思路，有完整的例子就更好。！！！！！谢谢了！我做的系统要完了，有很多都是大家的思路！！代码如下：：

项目事件

 

LoadUserSetting

 

Forms("窗口1").Open()

 

计划管理

 

计划1

 

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "Select top 1 * From {操作记录} Where [更新时间] > '" & GXTime & "'"

dt = cmd.ExecuteReader

If dt.DataRows.Count = 1 Then

    GXTime =  dt.DataRows(0)("更新时间")

    DataTables(dt.DataRows(0)("表名")).Load()  这里不理解！！！！ 可否改成行加载，或者追载

    DataTables("操作记录").Load()    这里不理解！！！！应该可以改成行加载，或者追载，这样可以减小带宽和计算时间，另外可以不影响光标移动。。

    StatusBar.Message2 = dt.DataRows(0)("表名") & dt.DataRows(0)("更新时间")

End If

StatusBar.Message3 = GXTime

 

计划2

 

StatusBar.Message1= Date.Now()

 

表事件

 

表A_DataColChanged

 

If e.DataCol.Name <>"更新时间" Then

    Dim r As Row = Tables("操作记录").AddNew

    r("表名") = e.DataTable.Name

    r("字段") = e.DataCol.Name

    r("更新时间") = Date.Now() 为啥用系统时间？不用服务器时间？

    r.Save()

End If

 

窗口表事件

 

窗口与控件事件

 

自定义函数

 

全局代码

 

Public GXTime As String = Date.Now().Tostring()  为啥用系统时间？不用服务器时间？

 

 

菜单事件