此主题相关图片如下:1.png


此主题相关图片如下:2.png

老师 现在能变色 但是这个徽章的位置 跟原来的有点不一样
If cc="制单" Then
'' .Add("pn" & cc,cc,"操作员:" & pr(cc & "人") & ";" & "时间:" & pr(cc & "日期"),"./images/" & cc & ".png","").Badge = iif(pr.isnull(cc & "人"),"未完成","完成")
.Add("pn" & cc,cc,"操作员:" & pr(cc & "人") & ";" & "时间:" & pr(cc & "日期") & "<span class=""weui-badge"" style=""background-color:" & iif(pr.isnull(cc & "人"),"red","green") & """>" & iif(pr.isnull(cc & "人"),"未完成","完成") & "</span>","./images/" & cc & ".png","")
Else
'' .Add("pn" & cc,cc,"操作员:" & pr(cc & "人") & ";" & "时间:" & pr(cc & "时间"),"./images/" & cc & ".png","").Badge = iif(pr.isnull(cc & "人"),"未完成","完成")
.Add("pn" & cc,cc,"操作员:" & pr(cc & "人") & ";" & "时间:" & pr(cc & "时间") & "<span class=""weui-badge"" style=""background-color:" & iif(pr.isnull(cc & "人"),"red","green") & """>" & iif(pr.isnull(cc & "人"),"未完成","完成") & "</span>","./images/" & cc & ".png","")
End If