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

项目事件

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()  为啥用系统时间？不用服务器时间？

菜单事件