步骤要添加到同一个组里Dim cnt As Integer With ExWeUI.WebUI.AddStepGroup("","step1","",True)
For Each dr As DataRow In DataTables("客户_客服备忘录").DataRows
'Output.Show(dr("时间"))
'ExWeUI.WebUI.AddStepGroup(ParentID, ID, Text, IsVertical, Size)
cnt = cnt + 1
With .AddStep("st01",cnt,dr("时间"))
.IsCurrent = True
.color = ExWeUI.ExWeuiColor.default
.Description = dr("沟通内容")
End With
Next
wb1.InsertHTML(.BuildHtml) End Withe.WriteString(wb1.Build) '生成网页