主题：大师们，求教！

Tables("当前库存状态窗口_库存明细2013年").DataTable.LoadFilter = Filter '设置加载条件
Tables("当前库存状态窗口_库存明细2013年").DateTable.Load() '加载数据

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 & "#"

Dim b As New CrossTableBuilder("本月库存",DataTables("本月库存_本月库存"))
b.Filter = filter
b.FromServer = True
b.HGroups.AddDef("产品名称") '添加客户列用于水平分组
b.VGroups.AddDef("日期","{0}月") '添加日期列用于垂直分组
b.Totals.AddDef("入库数量") '添加数量列用于统计
b.Totals.AddDef("出库数量")
b.Build '生成统计表
MainTable = Tables("本月库存") '打开生成的统计表

 

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 & "#"

Dim b As New SQLCrossTableBuilder("本月库存","本月库存_本月库存")
b.Filter = filter
b.HGroups.AddDef("产品名称") '添加客户列用于水平分组
b.VGroups.AddDef("日期","{0}月") '添加日期列用于垂直分组
b.Totals.AddDef("入库数量") '添加数量列用于统计
b.Totals.AddDef("出库数量")
b.Build '生成统计表
MainTable = Tables("本月库存") '打开生成的统计表

 报什么错吗？什么问题也不说明。

 

 上传例子。

 改成这样

 

Dim su As Double = Tables("库存明细2013年").compute("Sum(入库数量)","[产品名称] = '" & je ("产品名称") & "' and 日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#")
Dim yf As Double = Tables("库存明细2013年").compute("Sum(出库数量)","[产品名称] = '" & je ("产品名称") & "' and 日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#")

思路变一下，期初数应该自己去获取上个月的数据。通过查找、统计获取得到。

 回复17楼，只能是在生成汇总表之后，才能一个一个添加表达式列。

 

 具体问题，请上传例子。

 

建立的统计表，无法变成固定的表，不过你可以在afteropenproject的时候，把所有的统计表重新生成一次。