主题：大师们，求教！

窗口设计，表类型为 SQLTable ； Select 语句为： Select * From {库存明细2013年} Where [_Identify] Is Null

 

窗口事件Afterload

 

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
DataTables("当前库存状态窗口_库存明细2013年").LoadFilter = Filter '设置加载条件
DataTables("当前库存状态窗口_库存明细2013年").Load() '加载数据

 

为什么我打开后是一张空表，提示：不存在 “当前库存状态窗口_库存明细2013年”的DATATABLE？

  多谢大师们的热心指教，终于得到了表格内容。

看到表格后我发现 无限接近我的设想，但还没达到我的目标，老师们，能帮我把这两张表 合二为一 吗？

 

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
DataTables("本月库存_本月库存").LoadFilter = Filter '设置加载条件
DataTables("本月库存_本月库存").Load() '加载数据
'----------------------------------------------------------------
Dim b As New CrossTableBuilder("本月库存",DataTables("本月库存_本月库存"))

b.HGroups.AddDef("产品名称") '添加客户列用于水平分组

b.VGroups.AddDef("日期","{0}月") '添加日期列用于垂直分组

b.Totals.AddDef("入库数量") '添加数量列用于统计
b.Totals.AddDef("出库数量")

b.Build '生成统计表
MainTable = Tables("本月库存") '打开生成的统计表

甜老师总是能点石成金哪！您做的完全符合题意，可我还是没达到目标，我想清楚了再向您请教。

甜老师，我想要一个这样的动态的汇总表，随着“库存明细2013年”的明细表变动而 时实 汇总，下面的代码，我估计哪个地方写错了，所以汇总出不来，请您帮我改改吧。

 

 

Dim y As Integer = Date.Today.year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim je As DataRow  = e.DataRow
Dim su As Double = Tables("库存明细2013年").compute("Sum(入库数量)","[产品名称] = '" & je ("产品名称") & "',"日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#")
Dim yf As Double = Tables("库存明细2013年").compute("Sum(出库数量)","[产品名称] = '" & je ("产品名称") & "',"日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"))
je("本月入库数量KG") = su
je("本月出库数量KG")=yf
Select Case e.DataCol.name
    Case "期初数量KG","本月出库数量KG","本月入库数量KG","当前库存数量KG","实际可用数量KG","已预订数量KG"
        je("当前库存数量KG") = je("期初数量KG") + je ("本月入库数量KG") - je("本月出库数量KG")
        je("实际可用数量KG") =je("当前库存数量KG") - je("已预订数量KG")
End Select
'--------------------------

此主题相关图片如下：aaa.png

此主题相关图片如下：zz.png

这个问题，我不知怎么改。

只瞄一眼，神速！我试试。

。。。。呵呵，甜老师，解决了我一个大问题，真开心！     让我再得寸进尺一下， ：） 我用什么方法能把在月底那天关账的“当前库存数量KG” 数据给保存下来，作为下期的期初数，可以循环，我没经验，想不出办法，您有办法吗？

我想了一下，是否可以通过对 数据明细表 进行交叉统计，再增加一个 期末库存列 的表达式，去建立，试了一下，被卡住了。请老师帮我看看，这个方式是否可变通。

 

Dim g As New CrossTableBuilder("汇总表", DataTables("库存明细2013年"))
g.HGroups.AddDef("产品名称")
g.VGroups.AddDef("日期", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("日期", "{0}月")

g.Totals.AddDef("入库数量", "入库数量")
g.Totals.AddDef("出库数量", "出库数量")
g.Exprs.AddDef("{0}月期末库存","[{0-1}月期末库存]+[入库数量]-[出库数量]")

g.Build()
MainTable = Tables("汇总表")

老师，这个建立的统计表，能有办法变成固定的表吗？如不能的话，我只能试用保存每期 期末库存数的方法去生成了。