主题：AppendLoad报错

今天在一个表中使用AppendLoad报错,提示框如下(使用Load时候正常)

 

此主题相关图片如下：appendload报错.png

把AppendLoad整段代码贴出来看看！

Dim Dt1 As Date = DataTables(e.Form.Name & "_Tbl_Main").Compute("Max(时间)")

Dim Filter As String = "时间 > '" & Dt1 & "'"
msgbox(filter)
DataTables(e.Form.Name & "_Tbl_Main").AppendLoad(Filter ,False)

这样试一试：

 

Dim Dt1 As Date = DataTables(e.Form.Name & "_Tbl_Main").Compute("Max(时间)")

Dim Filter As String = "[时间] > '" & Dt1 & "'"
msgbox(filter)
DataTables(e.Form.Name & "_Tbl_Main").AppendLoad(Filter ,False)

或者这样：

 

Dim Dt1 As Date = DataTables(e.Form.Name & "_Tbl_Main").Compute("Max(时间)")

Dim Filter As String = "[时间] > '" & Dt1 & "'"
Dim drs As List(Of DataRow)
drs = DataTables(e.Form.Name & "_Tbl_Main").Select（Filter）

if drs.Count > 0

   Messagebox.Show("数据已经存在于表中，不能追加！")

else

    DataTables(e.Form.Name & "_Tbl_Main").AppendLoad(Filter ,False)

end if

必须把握一条原则： 新追载的数据在不存在于已经加载的数据中，才能追载。

哈哈，我好不容易抢一次先！

不过，建议贺老师改进，AppendLoad中自动判断这些符合条件的行是否已经存在于datatable中（存在不追载，均不存在则加载，部分存在，则忽略追载已经存在的行）！

 

由此可见，5楼的代码还不严谨，最好是先移除符合条件的行再追载，这样避免只存在部分行而不能追载的情况！

这样不是不可以，但是效率比较差，所以还是自己编程的时候，做得严谨一点比较好。

找到原因了,原本是SQLQuery型Table不能使用AppendLoad,改成SQLTable就正常了