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

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

 

试着把代码改成： 

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

 

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