此主题相关图片如下：微信截图_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
....
加好友 
发短信
Post By：2024/5/15 10:59:00 [只看该作者]
