Select Case e.Path

    Case "table.htm"

        Dim wb As New WeUI

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

            .Alternate = 3

            Dim nms() As String = {"产品","客户","数量","单价","日期"}

            .Head.AddRow(nms)    \'这里能冻结嘛？

            For Each r As DataRow In DataTables("订单").Select("数量 > 100", "日期 Desc")

                With .Body.AddRow(r("产品"),r("客户"),r("数量"))

                    .AddCell(Format(r("单价"),"#0.00"))   ’某一列能冻结嘛？  这样显示的东西会多点

                    .AddCell(Format(r("日期"),"MM月dd日"))

                End With

            Next

        End With

        e.WriteString(wb.Build)

End Select