内部通讯再升级---显示不同文字格式及加上头像. 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=31845&authorid=0&page=0&star=1

错误1:只算出一位用户发送的未读消息,且没有分开接收用户统计.

错误2:用户"贺辉"头像离线没有变化,一直保持彩色.

此主题相关图片如下：qq截图20150805112253.png


此主题相关图片如下：qq截图20150805112417.png


此主题相关图片如下：qq截图20150805112342.png

代码:

..............

该如何完善?不会啊,晕啊

Dim s1 As String
Dim v1 As String()
Dim cmd1 As New SQLCommand
Dim TpB1 As WinForm.TopicBar = Forms("内部通讯").Controls("TopicBar1")
Dim Page As WinForm.TopicPage
tpb1.Pages.Clear
Page =TpB1.Pages.Add("通訊列表","通訊列表")

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "SELECT DISTINCT * Fro m {Users}"
_dt3 = cmd.ExecuteReader()

If  _dt3.Datarows.count > 1 Then
    For Each dr1 As DataRow In _dt3.Datarows
        If dr1("Name") <>  _UserName Then  \' 不加载登录用户列表
            If dr1("Avatar") IsNot Nothing AndAlso dr1("Avatar").Contains(vbcrlf) Then
                cmd1 = New SQLCommand
                cmd1.C
                cmd1.CommandText = "Select Count(发送者) Fro m {内部通讯} Where [发送者] = \'" & dr1("Name") & "\' And [接收时间] Is NULL"
               
                v1 = dr1("Avatar").Replace(vbcrlf,"@").split("@")
                If dr1("Online") = -1 Then
                    s1 =v1(0)
                ElseIf v1.length > 0 Then
                    s1 =v1(1)
                End If
            Else
                s1 =dr1("Avatar")
            End If
           
            Page.Links.Add(dr1("Name") ,dr1("Name") & "(" & cmd1.ExecuteScalar & ")", s1)
        End If
    Next
   
End If

这句"Select Count(发送者) Fro m {内部通讯} Where [发送者] = \'" & dr1("Name") & "\' And [接收时间] Is NULL"

也改为"Select Count(发送者) Fro m {内部通讯} Where [发送者] = \'" & dr1("Name") & "\' And [接收者] = \'" & _UserName & "\'And [接收时间] Is NULL"

只算对一个,我再看看代码还有哪里不一样

原来奥妙是这:

此主题相关图片如下：未命名.jpg

作个标记备查.