主题：用AppendLoad追载数据后再用点”同步当前表“会卸载已加载的数据

为了避免不同用户同时添加供应商时的冲突，我想采用如下办法。

做一个按钮叫“新增供应商”，代码如下：

Dim id As Integer = DataTables("供应商").Compute("Max(_Identify)")

Dim Filter As String = "[_Identify] > " & id

DataTables("供应商").AppendLoad(Filter, False)

Tables("供应商").AddNew()

Tables("供应商").Save()

我的想法是：

先追载新数据，如果其他用户已经新增了行，就会出现在Table中

然后在新增行

然后立刻保存新增的行，让别的用户可以追载到这一个新增的行

运行之后其他都好，但是发现一个问题，不能去点系统菜单自带的”同步当前表“，否则表中已经加载的数据会被卸载掉，只剩下刚刚新增的行。

百思不得其解，所以发帖求助。

谢谢！

表属性的 BeforeLoad 和 AfterLoad 事件是否写了代码。

msgbox(DataTables("供应商").LoadFilter) 看看

Dim id As Integer = DataTables("供应商").Compute("Max(_Identify)")

Dim Filter As String = "[_Identify] > " & id

DataTables("供应商").AppendLoad(Filter, False)

Tables("供应商").AddNew()

Tables("供应商").Save()