主题：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 & "'"
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楼的代码还不严谨，最好是先移除符合条件的行再追载，这样避免只存在部分行而不能追载的情况！