- 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=122233)
-- 发布时间：2018/7/21 10:35:00
-- 追载后保存
我在AfterSaveProject写了下面的代码:(我设置了初始不加载和加载树),我没有所有表加载,觉得太慢了,改成这段代码出现错误
For Each dt As DataTable In DataTables
Dim id As Integer = dt.sqlCompute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
dt.AppendLoad(Filter, False)
Next
此主题相关图片如下：追载问题1.png
此主题相关图片如下：追载问题2.png
-- 发布时间：2018/7/21 10:43:00
--
For Each dt As DataTable In DataTables
Dim id As Integer = dt.Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
If dt.Find(Filter) Is Nothing then
dt.AppendLoad(Filter, False)
End If
Next