Dim flt As String 
Dim drs As List(Of DataRow)
flt = "接收者 = \'" & User.Name & "\' And 接收时间 Is Null"
drs = DataTables("信息表").AppendLoad(flt, False)
For Each dr As DataRow In drs
dr("接收时间") = Date.Now()
dr.Save()
Next

为什么上述代码中，我用AppendLoadAsync代替AppendLoad提示出错。出错信息是：

表达式drs = DataTables("信息表").AppendLoadAsync(flt, False)不产生值。

我查帮助里也没有关于AppendLoadAsync的用法介绍

如果用了 Async，那下面，就不能再写代码了，因为这个时候drs还没有取出来。

异步加载有问题，暂时不公开。