请教一下老师，怎么统计没有阅读的通知数量

        \'为第二个页面增加内容-通知
        Dim drs2 As  List(of  DataRow) = DataTables("通知公告").SQLSelect("通知部门 like \'%项目部%\'","","_Identify Desc")
        If drs2.Count > 0 Then
            For Each dr2 As DataRow In drs2
                Dim Str1 As String = dr2("查看记录")
                If Str1.Contains(_UserXingMing) Then
                    With wb.AddPanelGroup("page2",dr2("_Identify"),"")            \'ParentID 父容器的ID,如果是顶层对象,设置为""即可. ID 分组ID. Text 可选参数,用于指定分组标题.
                        With .Add("pn1",dr2("标题"),dr2("内容"))                  \'ID 列表ID. Text 列表标题. Content 列表内容 Image 可选参数,列表图片. Href 可选参数,单击列表要跳转到的目标URL.
                            .AddFoot(dr2("发布日期"))                             \'Text 脚注内容. Href 可选参数,单击脚注要跳转到的目标URL.
                            .AddFoot("|查看详情","http://www.foxtable.com")
                        End With
                    End With
                Else
                    With wb.AddPanelGroup("page2",dr2("_Identify"),"")
                        With .Add("pn1",dr2("标题"),dr2("内容"))
                            .Badge="new"                                          \'没有阅读的添加徽章标识
                            .AddFoot(dr2("发布日期"))
                            .AddFoot("|查看详情","http://www.foxtable.com")
                        End With
                    End With
                End If
            Next
        End If

这样可以了

        Dim drs As  List(of  DataRow) = DataTables("通知公告").SQLSelect("通知部门 like \'%项目部%\' and 查看记录 not like \'%" & _UserXingMing & "%\'","","_Identify Desc")

msgbox（drs.count）

请教老师，AddContent，用于增加文本段落，我内容列存入的内容是分段了，在页面怎么让它分段显示

    With wb.AddArticle("page1","ar1")   \'ParentID 父容器的ID,如果是顶层对象,设置为""即可. ID 分组ID.
        .AddTitle("h1",dr("主题"))        \'Level 标题层级,有6个可选值,分别为:h1?h2?h3?h4?h5?h6.Text 标题内容. Attribute 可选值,标题属性.
        .AddTitle("h2",dr("通知部门"))
        .AddContent("  " & dr("内容"))
    End With

我数据表中是这样存放的： 

根据国家法定节假日放假时间的安排，2019年元旦节放假时间为安排如下：
1、2018年12月29日（周六）正常上班；
2、2018年12月30日-2019年1月1日放假，2019年1月2日开始上班。

 但是现在的网页效果是这样的，1、2、位置没有分段出来

此主题相关图片如下：qq截图20220420163221.jpg

那靠右显示的样式是怎么设置呢？调试里面没有啊

        .AddContent(Format(dr("发布日期"), "yyyy年MM月dd日"),"style=\'font-size:15px\'