If r("单据状态") = "审核" Then
With .Body.AddRow()
.Primarykey = r("单据编号") '设置主键
.AddCell(r("序号"))
.AddCell(r("单据编号"))
.AddCell(r("供应商"))
.AddCell (r("单据状态"),"class='mark'")
.AddCell(r("制单时间"))
.AddCell(r("物料名称"))
.AddCell(r("制单人"))
.AddCell(r("审核时间"))
End With
Else
With .Body.AddRow()
.AddCell(r("序号"))
.AddCell(r("单据编号"))
.AddCell(r("供应商"))
.AddCell (r("单据状态"))
.AddCell(r("制单时间"))
.AddCell(r("物料名称"))
.AddCell(r("制单人")).Attribute = "on dbl click='c g m x()'"
.AddCell(r("审核时间"))
加上红色字体代码,提示表达式不产生值
[此贴子已经被作者于2019/7/2 13:12:44编辑过]