主题：请教个实时更新的问题

如题 

如何在系统中实现实时更新数据呢

比如有多个操作员同时在某个数据表中添加数据 添加的数据能实时更新到其他客户端

我现在做了个计划 间隔2秒 代码如下  发现个问题  关联表的子表数据无法实时更新  而且系统速度很慢

For Each dt As DataTable In DataTables
    Dim id As Integer = dt.Compute("Max(_Identify)")
    Dim Filter As String = "[_Identify] > " & id
    dt.AppendLoad(Filter, False)
Next

现在还没想到好的办法呀 现在系统已经卡的不行了