'------------------------------------------------------------------------------------------------------------------------------
For Each dr As DataRow In DataTables("报价申请").SqlSelect("[申请人] = '" & name & "'", "","申请日期 Desc")
With wb.AddPreview("","pv" & dr("_Identify"),"PDCA",dr("楼盘")&":"&dr("单元房号"))
.AddItem("报价ID", dr("报价ID"))
.AddItem("申请人", dr("申请人"))
.AddItem("客户电话", dr("客户电话")) 希望调用直接拨打电话
.AddItem("申请日期", dr("申请日期"))
.AddItem("预算价格",dr("预算价格"))
.AddItem("报价金额",dr("报价金额"))
.AddItem("用料说明",dr("用料说明"))
.AddItem("基材要求", dr("基材要求"))
.AddItem("油漆说明", dr("油漆说明"))
.AddItem("报价人", dr("报价人"))
.AddItem("计划时间", dr("计划时间"))
.AddItem("完成时间", dr("完成时间"))
.Addbutton("点赞", "", 1, "") 希望在点赞列积累数量
.Addbutton("<a href='tel:" & r("业务电话") & "'>" & r("业务电话") & "</a>") 希望调用直接拨打电话
End With
wb.AppendHTML("<br/>")
Next
e.WriteString(wb.Build)
'-----------------------------------------------------------------------------------
End If
End If
End Select
[此贴子已经被作者于2018/3/25 10:26:46编辑过]