| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 某字段中内容不为空，如何让LIST中该记录字体变红？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161623) |
| -- 作者：wh420 -- 发布时间：2021/3/24 16:30:00 -- 某字段中内容不为空，如何让LIST中该记录字体变红？ 假设：备注段中内容不为空，如何让LIST列表中对应的该记录所在的行字体变红？ .Head.AddRow("日期","场地费","球费","人均","手续费","提现") .Attribute = "class=\'tablehead\'" Dim drs As List(Of DataRow) = dt.Select("","日期 desc") If drs.Count > 0 Then Dim y,m As Integer Dim dt1,dt2 As Date Dim r As DataRow = drs(0) With .Body.AddRow(r("日期"),r("场地费"),r("球费"),r("人均"),r("手续费"),r("提现")) .Primarykey = r("memid") \'设置主键 .Attribute = "class=\'mark\'" End With |
| -- 作者：有点蓝 -- 发布时间：2021/3/24 16:36:00 -- With .Body.AddRow(r("日期"),r("场地费"),r("球费"),r("人均"),r("手续费"),r("提现")) .Primarykey = r("memid") \'设置主键 .Attribute = "class=\'mark\'" endif End With
|