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
[此贴子已经被作者于2021/2/4 17:34:18编辑过]
加好友 
发短信
Post By：2021/2/4 17:32:00 [显示全部帖子]
