以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如果列名称是动态的，数组怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127071)
--  作者：lihe60
--  发布时间：2018/11/4 21:13:00
--  如果列名称是动态的，数组怎么写？
        \'根据此页数据生成网页
        With wb.AddTable("","Table1")
            .PageNumber = page \'设置页码
            .ActiveSheet = "menu"
             Dim nms() As String = {"NO.","产品","客户","数量","单价","日期"}
            .Head.AddRow(nms)
             For Each r As DataRow In dt.DataRows
                With .Body.AddRow(r("NO."),r("产品"),r("客户"),r("数量"))
                    .Primarykey = r("_Identify") \'设置主键
                    .AddCell(Format(r("单价"),"#0.00"))
                    .AddCell(Format(r("日期"),"MM月dd日"))
                End With
            Next
        End With


如果列名称是动态的，这段代码如何写？
--  作者：有点甜
--  发布时间：2018/11/4 22:07:00
--  

用集合然后转为数组 http://www.foxtable.com/webhelp/scr/0217.htm

 

如果是字符串，直接用split转换成数组
--  作者：lihe60
--  发布时间：2018/11/5 7:06:00
--  

[此贴子已经被作者于2018/11/5 7:07:33编辑过]
--  作者：有点甜
--  发布时间：2018/11/5 8:34:00
--  
以下是引用lihe60在2018/11/5 7:06:00的发言：

[此贴子已经被作者于2018/11/5 7:07:33编辑过]

 

如果还有问题，请贴出具体代码说明。