主题：未阅读的数量

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

        '为第二个页面增加内容-通知
        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

那要增加一个表，专门记录。记录用户、通知id等，如果点击了查看详情，查看详情页面就把用户、通知id存到表里。通过查表确定还有哪些通知没有看过

是存到表里面的，查看记录里面是存放了用户信息的，用户点击了，就会把用户名存放进去，按照张三,李四,王五这样存放的，If Str1.Contains(_UserXingMing) Then，这个就是判断，记录里面有这个人的名字就不增加徽章，已做好，现在就是差一个统计没有阅读的数量条数。用于在首页页面徽章显示未读的条数

这样可以了

        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

把代码里的换行符vbcrlf替换为网页使用的换行符<br/>

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

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

 

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

替换换行后，1、2、前面能怎么增加空格呢？