以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何隐藏列？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97949)
--  作者：lihe60
--  发布时间：2017/3/21 15:20:00
--  如何隐藏列？
Select Case e.Path
    Case "table.  htm"
        Dim wb As New WeUI
        With wb. AddTable("","Table1")
            \'按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列
            .CreateFro  mDataTable(DataTables("订单"),False,"客户=\'CS01\'","日期 desc","产品","单价","数量","日期","审核")
        End With
        e.Wr  iteString(wb.Build)
End Select


生成的网页中，如何隐藏“审核”列？
--  作者：有点色
--  发布时间：2017/3/21 15:42:00
--  

去掉，不就行了？

 

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
--  作者：lihe60
--  发布时间：2017/3/21 15:54:00
--  
只是要隐藏，而不是不加载。
--  作者：有点色
--  发布时间：2017/3/21 16:21:00
--  

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