主题：求根据参数生成表的代码

分类码	分类名称	2010-05-01	2010-05-02	2010-05-03	2010-05-04	2010-05-05	2010-05-06	2010-05-07	2010-05-08	2010-05-09	2010-05-10	合计

 

 

 

假定给了两个时间参数：2010-05-01和2010-05-10能否生成介于两个日期参数之间的表（临时表也可）如上表。

老大，我说的不是这个意思，这个表是后来生成的，只是先给了两个日期，然后才生成的这个表，先不涉及到表中的数据，先说结构

我还走弯路考虑问题呢

 

 

Dim da As date
dim db as date
dim dc as date
dim s as integer
Dim i As Integer
da=Date.Today
db=#06/10/2010#
s=DateDiff("d",da,db)
For i = 0 to s
    dc=DateAdd("d",i,da)
    Output.Show(dc)
Next

老大，我原来的窗口表是这样写的按钮代码：

    Dim b As New SQLCrossTableBuilder("a","aec00000")
    b.c  ' 注：此处是数据源erp不知何故不能保存

    b.AddTable("aec00000","itemcode","aaa00000","code") '添加统计表
    b.AddTable("aec00000","id_contract","eba00000","id_contract") '添加统计表
    b.AddTable("aaa00000","classcode","aam00000","classcode") '添加统计 表
    b.AddCols("aam00000","classcode") '指定列来源
    b.AddCols("aam00000","classname") '指定列来源
    b.AddCols("eba00000","sellunit") '指定列来源
    b.HGroups.AddDef("classcode","分类码") '添加水平分组
    b.HGroups.AddDef("classname","分类名称") '添加水平分组
    b.VGroups.AddDef("requiredate",DateGroupEnum.none) '添加垂直分组
    b.Totals.AddDef("plannum") '添加数量列用于统计
    b.VerticalTotal=true
    b.Build(true) '生成统计表

 

 

 

现在根据这两天您的启发，数据表越发规范、经典了

按照您提供的代码，如何将数据写入生成的表中呢，您能指点一二吗

老大，瞒不过您的法眼，

 

我是想设置一段代码，然后在窗口的数据表中展现出结果来的，

老大您帮我出个思路好不好，我想做交叉分析表如1楼的样式，根据给定的两个日期生成，，然后数据由后台填充，最后将周六周日用颜色标记，这个表是在窗口中的表

 

哪个方式最简洁，老大能告诉我吗

老大，这个我能懂，但是我有个疑问，示例文件"统计演示.Table"中的“订单表”，因为没有1999年1月5日和6日的数据，所以统计表中没有出现此列数据，我要求的是即使没有这天的数据，也要统计显示出来