Dim drs = DataTables("产品库").Select("")
For i As Integer = 0 To drs.count-1
Dim dr = drs(i)
If i > 0 Then
wb.AddPage("","page" & i, False) '增加两个page
Else
wb.AddPage("","page" & i) '增加两个page
End If
With wb.AddArticle("page" & i, "ar" & i)
.AddTitle("h" & i, "<b>" & "产品系列:" & dr("缘起项目") & "</b>")
.AddContent("<b>" & "产品名称:" & dr("产品名称") & "</b>")
.AddContent("<b>" & "产品分类:" & dr("产品分类") & "</b>")
.AddContent("<b>" & "产品单价:" & dr("单价") & "</b>")
.AddContent(dr("主材工艺"))
图片的读取路径哪里不对
.AddImage("1.艾迪尔报价库" & "/" & dr("缘起项目") & "/" & dr("产品分类") &"/" & dr("产品名称")&"/" & dr("产品分类") & dr("产品名称") & dr("单位") &".png")
http://www.ICWD.TOP:8080/1.艾迪尔报价库/经典系列/收纳柜类/装饰板/收纳柜类装饰板块.png 这段地址可以在游览器可以正常读出
End With
If i < drs.count-1 Then
With wb.AddButtonGroup("page" & i,"btg1" & i)
.Add("btn1_" & i, "下一页", "button").Attribute=" & i & "');show('page" & i+1 & "')"""
End With
End If
If i > 0 Then
With wb.AddButtonGroup("page" & i,"btg2" & i)
.Add("btn2_" & i, "上一页", "button").Attribute=" & i & "');show('page" & i-1 & "')"""
End With
End If
Next
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2018/3/25 18:09:00 [显示全部帖子]
