麻烦以后发代码不要发带行号的,像下面这样直接发即可。
无法直接统计,要另外使用代码处理:
Dim g As New CrossTableBuilder("统计表1", DataTables("库存变化表"))
g.HGroups.AddDef("物资编码")
g.VGroups.AddDef("仓库名称")
g.Totals.AddDef("入库数量", "入库数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Filter = "[仓库名称] <> '购入'"
g.Build()
MainTable = Tables("统计表1")
DataTables("统计表1").DataCols.Add("最近库存变化时刻", Gettype(Date))
For Each r As Row In Tables("统计表1").Rows
If r("物资编码") <> "合计" Then
r("最近库存变化时刻") = DataTables("库存变化表").Compute("max(库存变化时刻)","物资编码='" & r("物资编码") & "'")
End If
Next