Foxtable(狐表)用户栏目专家坐堂 → 未阅读的数量


  共有3662人关注过本帖树形打印复制链接

主题:未阅读的数量

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
未阅读的数量  发帖心情 Post By:2022/4/20 11:49:00 [显示全部帖子]

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/4/20 12:33:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/4/20 12:44:00 [显示全部帖子]

这样可以了

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

msgbox(drs.count)

[此贴子已经被作者于2022/4/20 12:51:52编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/4/20 16:09:00 [显示全部帖子]

请教老师,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


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/4/20 16:34:00 [显示全部帖子]

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

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

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


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20220420163221.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/4/20 16:45:00 [显示全部帖子]

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

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

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20220420164413.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/4/20 16:47:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/4/20 17:20:00 [显示全部帖子]

老师,这个页面还有个问题需要指教一下,default.htm这个页面的page2是这样的,

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20220420171622.jpg
图片点击可在新窗口打开查看

 

点击查看详情,跳转到notice_page2页面,notice_page2页面我增加一个返回按钮,还是想跳转到default.htm的page2页面,这个该怎么写?返回首页是直接跳转到default.htm的page3页面的

  

这样写返回不了:

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20220420172552.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/4/20 17:26:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/4/21 8:51:00 [显示全部帖子]

我今天有测试了,就这样就可以了,昨天测试报错,应该是网页没刷新的问题


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20220420172552.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/4/21 8:51:14编辑过]

 回到顶部