主题：如何隐藏列？

去掉，不就行了？

Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            '按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列
            .CreateFromDataTable(DataTables("订单"),False,"客户='CS01'","日期 desc","产品","单价","数量","日期")
        End With
        e.WriteString(wb.Build)
End Select

js

alert(123);
var trs = table1.rows;
for(var i = 0, len = trs.length; i < len; i++){
    var cell = trs[i].cells[1];
    cell.style.display = 'none';
}
alert(44);

代码

Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            '按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列
            .CreateFromDataTable(DataTables("表A"),False,"","","第一列","第二列")
        End With
        wb.AppendHTML("<script src='./lib/test.js'></script>") '引入脚本文件
        e.WriteString(wb.Build)
End Select