With wb.AddTable("","Table1")
.Alternate = 3
Dim nms() As String = {"产品","客户","图片"}
.Head.AddRow(nms)
For Each r As DataRow In DataTables("订单").Datarows
With .Body.AddRow(r("产品"),r("客户"))
.AddCell("<img src = " & r("图片") & " style=\'width:40px;height:40px\'></img>")
End With
Next
End With