![](images/userface/image1.gif)
加好友 发短信
等级:狐神
帖子:6849
积分:43345
威望:0
精华:0
注册:2009/3/2 14:07:00
|
如果列名称是动态的,数组怎么写? Post By: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
如果列名称是动态的,这段代码如何写?
|
|