Dim wb As New WeUI '定义一个基于weui框架的网页生成器
wb.AppendHT ML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
Dim cnt As Integer
With ExWeUI.WebUI.AddStep Group("","step1","",True)
'For Each dr As DataRow In DataT ables("客户_客服备忘录").Dataows
For Each dr As DataRow In DataT ables("客户_客服备忘录").sql Slct("时间<> ''","","时间 Desc")
cnt = cnt + 1
With .AddStep("st01",cnt,dr("时间"))
.IsCurrent = True
.color = ExWeUI.ExWeuiColor.default
.Description = dr("沟通方式")& "_" & dr("编辑者")&dr("参与人员") & "_" &dr("沟通内容")
End With
Next
wb.InsertHTML(.BuildHtml)
End With
e.WriteString(wb.Build) '生成网页
如果有图片内容就出现图片标志 点击获取详情
此主题相关图片如下:2022.03.15_16.10.59.jpg
[此贴子已经被作者于2022/3/15 16:14:12编辑过]