主题：逐行添加

        wb.AppendHTML("<style>#table2 td{width:100px;word-break: break-all;} #table2 thead{display:none}</style>",True)

        With wb.AddTable("","Table1")

            .ColWidth = "100px,100px,100px,100px,100px,100px,100px,100px" '设置列宽

            Dim nms() As String = {"商品代码","颜色","尺码","助记符","大类","售价","横调数","图片"}

            .Head.AddRow(nms)

        End With

        wb.InsertHTML("","<div id='div' style='overflow-y:auto;height:500px'>")

        With wb.AddTable("","Table2")

            .Alternate = 2

            For Each r As DataRow In dt.DataRows 

                With .Body.AddRow(r("商品代码"),r("颜色"),r("尺码"),r("助记符"),r("大类"))

                    .AddCell(Format(r("售价"),"#0"))

                    .AddCell(Format(r("补货数"),"#0"))

                    Dim s As String =  r("图片")

                    .AddCell("<img src = " & s & " style='width:100px;height:100px'></img>")

                End With

            Next

        End With

        wb.InsertHTML("","</div>")

        e.WriteString(wb.Build)

因为加入了图片，列就对不上了，列宽都是100px也没有用，该怎么调整呢

        wb.AppendHTML("<style>.td1 .td1{width: 70px;}</style>",True)

        With wb.AddTable("","Table1")

            .ColWidth = "100px,100px,100px,100px,100px,100px,100px,100px" '设置列宽

            Dim nms() As String = {"商品代码","颜色","尺码","助记符","大类","售价","横调数","图片"}

            .Head.AddRow(nms)

        End With

        wb.InsertHTML("","<div id='div1' style='overflow-y:auto;height:500px'>")'这里为内容表格尺寸

        With wb.AddTable("","Table2")

            .Alternate = 2

            For Each r As DataRow In dt.DataRows

                Dim s1 As String =  r("商品代码")

                Dim s2 As String =  r("颜色")

                Dim s3 As String =  r("尺码")

                Dim s4 As String =  r("助记符")

                Dim s5 As String =  r("大类")

                Dim s6 As String =  r("售价")

                Dim s7 As String =  r("补货数")

                With .Body.AddRow()

                    .AddCell("" & s1 & "","class=""td1""")

                    .AddCell("" & s2 & "","class=""td1""")

                    .AddCell("" & s3 & "","class=""td1""")

                    .AddCell("" & s4 & "","class=""td1""")

                    .AddCell("" & s5 & "","class=""td1""")

                    .AddCell("" & s6 & "","class=""td1""")

                    .AddCell("" & s7 & "","class=""td1""")

                    Dim s As String =  r("图片")

                    .AddCell("<img src = " & s & " style='width:100px;height:100px'></img>")

                End With

            Next

        End With

        wb.InsertHTML("","</div>")