- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 时间轴步骤怎么加入图片 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175691)
-- 发布时间：2022/3/15 16:13:00
-- 时间轴步骤怎么加入图片
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
此主题相关图片如下：2022.03.15_16.10.59.jpg
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编辑过]
-- 发布时间：2022/3/15 16:48:00
--
加不了