- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 移动开发中怎么指定其中行的颜色？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160505)
-- 发布时间：2021/2/4 17:32:00
-- 移动开发中怎么指定其中行的颜色？
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<style>.mark{background-color:red; color:white;}</style>", True) \'添加样式
\'订单编辑
Dim pr As DataRow \'订单
pr = DataTables("wage").SQLFind("姓名=\'xt\'")
wb.AddPageTitle("","pageheader","","(保密资料,禁止外泄)")
With wb.AddPreview("","pv1",pr("月份") & "工资实发合计:" ,"￥" & pr("工资2"))
.AddItem("姓名",pr("姓名"))
.AddItem("工号",pr("工号"))
.AddItem("部门",pr("部门"))
.AddItem("职位",pr("职位"))
End With
‘----------------------------------------------------------------------
With wb.AddPreview("","pv2","缺勤时数",".")
.AddItem("事假",pr("事假"),"class=\'mark\'")
.AddItem("病假",pr("病假"),"class=\'mark\'")
.AddItem("有薪假",pr("有薪假"),"class=\'mark\'")
End With
’---------------------------------------------------这个字段变色
With wb.AddPreview("","pv3","加班时数",".")
.AddItem("平时加班",pr("平时加班"))
.AddItem("周末加班",pr("周末加班"))
.AddItem("节假加班",pr("节假加班"))
End With
With wb.AddPreview("","pv6","应付工资","￥" & pr("工资2"))
End With
e.WriteString(wb.Build) \'生成网页
e.Handled = True
此主题相关图片如下：wage.png
此主题相关图片如下：wage.png[此贴子已经被作者于2021/2/4 17:34:18编辑过]
-- 发布时间：2021/2/4 17:42:00
--
.AddItem("项目2","内容2","style=\'background-color:gray;color:red\'")
-- 发布时间：2021/2/4 17:46:00
--
收到，谢谢蓝版