With wb.AddPanelGroup("","pg2","文字组合列表")
.Add("pn1","标题一",txt)
.Add("pn1","标题二",txt,"","http://www.foxtable.com").Badge="新"
With .Add("pn2","标题三",txt)
.Badge = "New"
.AddFoot("文字来源")
.AddFoot("时间")
.AddFoot("|其他信息","http://www.foxtable.com")
End With
End With
e.WriteString(wb.Build) '生成网页需要 根据表的行 自动增加
类似下面的做法
For Each dr As DataRow In DataTables("网页表").Select("版面 = '轻奢系列'")
.Add(dr("名称"),dr("标题"), dr("图标"), dr("网页链接"))
Next
[此贴子已经被作者于2018/3/21 11:45:53编辑过]