此主题相关图片如下：未命名1.jpg


此主题相关图片如下：未命名2.jpg

各位 请看 图

我生成了 交叉统计的 临时表

然后导出临时表   ,但发现 第一行的内容发生了变化,不显示日期,  另外  也没了统计的作用 求帮助.

代码如下

Dim dtp As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dt As Date = dtp.Value
If dt > # 3/1/2013# Then
Dim d1 = New Date(dt.Year, dt.Month, 1) \'取得该月的第一天
Dim d2 = new Date(dt.Year, dt.Month, Date.DaysInMonth(dt.Year,dt.Month))
Dim g As New CrossTableBuilder("统计", DataTables("订单明细"), "[出货日期]> #1/1/2011#")
g.HGroups.AddDef("货号")
g.HGroups.AddDef("客户品番")
g.VGroups.AddDef("出货日期", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Filter = "[出货日期] >=  #" & d1 & "#  And  [出货日期] <=   #" & d2 & "#"
g.Subtotal = True
g.Build()
Dim ex As New Exporter
ex.SourceTableName = "统计" \'指定导出表
Dim filename As String = "C:\\Documents And Settings\\user\\桌面\\" &  dt.year & "年" & dt.month & "月" & ".xls" 
   ex.FilePath = filename

ex.Format = "Excel"

ex.Export() \'开始导出

end if

老师,你看下 .

我上传了 附件.   如何修改?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.table

没看到附件

老师 ,这个操作 不怎么好!,  还要人去选择  ,  excel 的表名 也不能 按规定设定,   要人工录入.

能否 通过代码  判断  导出的模式?