Selet Case e.Path
Case "tongzhigonggao.htm"
Dim cmd As New SQLCommand
cmd.C '记得设置数据源名称
cmd.CommandText = "Selct Top 15 * Fro m {通知公告} Order By 日期"
Dim dt As DataTable = cmd.ExecuteReader
With wb.AddPanelGroup("","pg1","通知公告")
For Each r As DataRow In dt.DataRows
Dim s As String = r("已读")
' .Add("pn1",r("主题"),r("发送人") & " " & r("日期"), "./images/laba.png").Attribute= " & r("内容") & "')"""
With .Add("pn1",r("主题"),"","./images/laba.png")
If s.Contains(User.Name) = False Then
.Badge = "新"
.AddFoot(r("发送人") & " " & r("日期"))
.Attribute = " & r("内容") & "')"""
Else
.Badge = ""
.AddFoot(r("发送人") & " " & r("日期"))
.Attribute = " & r("内容") & "')"""
End If
End With
Next
End With
e.WriteString(wb.Build)
End Selet
加好友 
发短信
Post By：2020/4/4 1:00:00 [只看该作者]
此主题相关图片如下：微信图片_20200404005144.jpg