如何在Access中生成订单时间分段（time phased）表

你可以根据自身使用场景选择两种实现路径，不需要硬套复杂逻辑：

方案1：纯查询实现（无VBA，适合固定周数展示场景） #

逻辑和你熟悉的MySQL行转列思路一致，只是Access不支持递归CTE生成序列，用一张一次性建好的辅助表就能替代，全程不用写代码：

• 先建一张永久辅助表tblWeekSeq，只保留一个数字类型字段WeekNum，手动填入1到你需要展示的最大周数（比如填1-52覆盖全年，建一次以后所有类似需求都能复用）。
• 新建选择查询，把你存产品、订货量、补货间隔的原始查询和tblWeekSeq做无关联笛卡尔积，加计算字段判断当前周是否为下单节点：

  SELECT 
    原始查询.Product,
    tblWeekSeq.WeekNum,
    IIf(([WeekNum]-1) Mod [Order Interval (wks)] = 0, [Order Qty (pallets)], Null) AS 下单量
  FROM 原始查询, tblWeekSeq
  WHERE tblWeekSeq.WeekNum <= [你要展示的最大周数];
  

  判断逻辑很简单：第1周固定下单，之后每间隔对应周数（即周数-1能被补货间隔整除）就返回订货量，非下单周返回空值。
• 最后用Access自带的交叉表查询向导，选Product作为行标题、WeekNum作为列标题、下单量作为值，向导会自动生成Wk1/Wk2...格式的横向列，直接输出你要的表格样式。

这个方案不需要处理VBA的宏信任问题，查询是动态更新的，原始数据改了刷新就能出结果。

方案2：VBA动态生成表（适合需要灵活调整周数的场景） #

如果需要经常切换展示的周数范围、不想维护辅助表，可以写个简单的VBA子程序自动生成结果表，核心逻辑是先建对应周数的空表，再逐产品填充下单节点的订货量，核心可运行代码如下：

Sub 生成周维度订单表()
    Dim rs As DAO.Recordset, tdf As DAO.TableDef
    Dim db As DAO.Database
    Dim i As Long, currentWk As Long
    ' 按需修改下面的常量，调整要展示的总周数
    Const TOTAL_SHOW_WEEKS As Long = 12
    
    Set db = CurrentDb()
    ' 先删除之前生成的旧结果表，避免重名报错
    On Error Resume Next
    db.TableDefs.Delete "tbl周维度订单结果"
    On Error GoTo 0
    
    ' 初始化结果表结构
    Set tdf = db.CreateTableDef("tbl周维度订单结果")
    ' 产品字段如果是文本类型，把下面的dbLong改成dbText，后面加长度参数比如, 50
    tdf.Fields.Append tdf.CreateField("Product", dbLong)
    For i = 1 To TOTAL_SHOW_WEEKS
        tdf.Fields.Append tdf.CreateField("Wk" & i, dbDouble)
    Next
    db.TableDefs.Append tdf
    
    ' 遍历原始订单数据填充结果
    Set rs = db.OpenRecordset("SELECT Product, [Order Qty (pallets)], [Order Interval (wks)] FROM 你的原始查询名")
    Do While Not rs.EOF
        ' 插入当前产品的行
        db.Execute "INSERT INTO tbl周维度订单结果(Product) VALUES(" & rs!Product & ")"
        ' 逐次计算所有下单周，填充对应订货量
        currentWk = 1
        Do While currentWk <= TOTAL_SHOW_WEEKS
            db.Execute "UPDATE tbl周维度订单结果 SET Wk" & currentWk & " = " & rs![Order Qty (pallets)] & _
                       " WHERE Product = " & rs!Product
            currentWk = currentWk + rs![Order Interval (wks)]
        Loop
        rs.MoveNext
    Loop
    
    ' 释放对象
    rs.Close
    Set rs = Nothing
    Set tdf = Nothing
    Set db = Nothing
    
    ' 直接打开生成好的结果表
    DoCmd.OpenTable "tbl周维度订单结果"
End Sub

代码注意事项 #

• 首次运行前要在VBA编辑器的「工具-引用」里勾选Microsoft DAO 3.6 Object Library（或更高版本），否则会报类型定义错误。
• 如果你的Product编码是文本格式，所有SQL语句里涉及Product值的位置要加单引号，比如把VALUES(" & rs!Product & ")改成VALUES('" & rs!Product & "')。
• 只需要修改TOTAL_SHOW_WEEKS常量的值就能调整展示的周数，不需要改动其他逻辑。

内容的提问来源于stack exchange，提问作者user1461521