主题：用户通讯问题请教老师

上传项目先,项目采用的是外部数据,项目代码输入以下:

Dim Filter As String
Select Case _UserName
    Case "张三","李四", "老六"
        Filter = "接收者 = '" &  _UserName & "' Or 发送者 = '" & _UserName & "'"
    Case Else
        Filter = ""  '其他用户记载所有行
End Select
DataTables("信息表").LoadFilter = Filter
DataTables("信息表").Load()
Dim drs As List(of DataRow) = DataTables("信息表").Select("接收者 = '" & _UserName  & "' And 接收时间 Is Null")
If drs.Count > 0 Then
    For Each dr As DataRow In drs
        dr("接收时间") = Date.Now
    Next
    DataTables("信息表").Save()
End If

换成老六登录的话信息表还是全部加载,搞不懂哪里出问题了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目13.zip