以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  div背景色问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191908)

--  作者:ycs5801
--  发布时间:2024/5/15 10:59:00
--  div背景色问题

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20240401092854.png
图片点击可在新窗口打开查看


下边这两个绿色块,怎样可以像上边红色块那样横向填满?

代码如下:
  With ExWeUI.WebUI.AddListGroup("page1", "lst01", 1)
        Dim color1 As String = "style=\'background-color:#f69797;width:100%\'" \'暗红色,已超期
        Dim color2 As String = "style=\'background-color:#d9a738;width:100%\'" \'淡黄色,正在进行
        Dim color3 As String = "style=\'background-color:#198d65;width:100%\'" \'淡绿色,已完成
        Dim color As String
        For Each dr As DataRow In drs
            If dr("是否完成") = True Then \'已完成
                color = color3
            ElseIf dr("是否完成") <> True And dr("完成时限") >= Date.Today() Then \'正在进行
                color = color2
            ElseIf dr("是否完成") <> True And dr("完成时限") < Date.Today() Then \'已超期
                color = color1 
            End If 
            Dim txt As String = "<p " & color & ">发布日期:" & dr("发布日期")  & "<br/>"
            
            txt = txt & "发布人:" & dr("用户姓名") & "<br/>"
            txt = txt & "完成时限:" & dr("完成时限") & "<br/>"
            txt = txt & "责任人:" & dr("责任人") & "</p>"
            
            Dim s As String = dr("信息内容")
            If s.length > 10 Then
                txt = txt & "<p>具体内容:" & s.substring(0, 10) & "......" & "</p>"
            Else
                txt = txt & "<p>具体内容:" & dr("信息内容") & "</p>"
            End If
....

--  作者:有点蓝
--  发布时间:2024/5/15 11:05:00
--  
这种自己使用开发者工具,调试查看是什么样式影响的,在开发者工具里调整找到合适的设置
--  作者:ycs5801
--  发布时间:2024/5/15 11:21:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20240401092854.png
图片点击可在新窗口打开查看
调试是这样,应该怎么改呢?

--  作者:有点蓝
--  发布时间:2024/5/15 11:27:00
--  
https://www.baidu.com/s?wd=%E6%B5%8F%E8%A7%88%E5%99%A8%E5%BC%80%E5%8F%91%E8%80%85%E5%B7%A5%E5%85%B7%20%E8%B0%83%E8%AF%95%E6%A0%B7%E5%BC%8F
--  作者:ycs5801
--  发布时间:2024/5/15 14:47:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20240401092854.png
图片点击可在新窗口打开查看

With .AddList("主题:" & dr("信息主题"),"", "renamecx_name.htm?name=" & dr("_Identify"))
                .TextStyle = "color:red;font-size:15px" \'字体颜色,字体大小
                .ImageWidth = 2 \'图片大小
                With .LeftFooter
                    .AddFoot(txt).Attribute = "style=\'background-color:#198d65;font-size:17px\'"                             
                End With              
            End With

我直接在改这个addfoot里边的属性,为什么没有背景色呢?

--  作者:有点蓝
--  发布时间:2024/5/15 15:06:00
--  
请上传实例测试
--  作者:ycs5801
--  发布时间:2024/5/15 15:11:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:renamecxtq.rar


--  作者:有点蓝
--  发布时间:2024/5/15 15:38:00
--  
请做个可以测试的项目实例发上来。或者提供外网可以打开的网页的测试地址看看
--  作者:ycs5801
--  发布时间:2024/5/15 15:55:00
--  附件

以下内容是专门发给有点蓝浏览


已上传

--  作者:有点蓝
--  发布时间:2024/5/15 16:15:00
--  
连接不到数据库,另外怎么测试,哪个页面?哪个函数