主题：[原创]一个省事的办法

用户间通讯，教程是指定用户设置，如果新增用户，就不方便了，得修改代码。

 

试着把代码改成： 

Dim Filter As String

Select Case User.Name

    Case "管理员","开发者"

        Filter = ""  '指定用户加载所有行

    Case (User.Name)

        Filter = "接收者 = '" & User.Name & "' Or 发送者 = '" & User.Name & "'"

End Select

DataTables("信息表").LoadFilter = Filter

DataTables("信息表").Load()

Dim drs As List(of DataRow) = DataTables("信息表").Select("接收者 = '" & User.Name & "' And 接收时间 Is Null")

If drs.Count > 0 Then

    For Each dr As DataRow In drs

        dr("接收时间") = Date.Now

    Next

    DataTables("信息表").Save()

End If

 

通过！新增用户不需再改代码了

Case (User.Name) 改成 Case Else  结果也一样。

如果你使用的Foxtable开发版，可以用AppendLoadAsync代替代替上述代码中的AppendLoad，这样效果会更好。

怎么用AppendLoadAsync代替代替上述代码中的AppendLoad？

 

 

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

把drs = DataTables("信息表").AppendLoad(flt, False)改成drs = DataTables("信息表").AppendLoadAsync(flt, False)报错呢！