主题：追载数据

判断表类型

For Each dt As DataTable In DataTables '保存时,追载所有表的新数据
    If dt.Type = 1 OrElse dt.Type = 3 Then
        Dim id As Integer = dt.Compute("Max(_Identify)")
        Dim Filter As String = "[_Identify] > " & id
        dt.AppendLoad(Filter, True)
    End If
Next