主题：窗口代码

你好，我做了一个入库窗口，有几个代码不会了，请求帮助，谢谢

我还做了一个毛利查询表，

Dim g As New GroupTableBuilder("统计表1", DataTables("销售明细表"))
Dim gg As fxDataSource
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Totals.AddDef("数量","销售_数量")
g.Totals.AddDef("金额","销售_金额")
g.VerticalTotal = True
gg = g.BuildDataSource()

Dim a As New GroupTableBuilder("统计表2", DataTables("采购明细表"))
Dim aa As fxDataSource
a.Groups.AddDef("日期", DateGroupEnum.Year, "年")
a.Groups.AddDef("日期", "月")
a.Totals.AddDef("数量")
a.Totals.AddDef("金额")
a.VerticalTotal = True
aa = a.BuildDataSource()

Tables("利润报表_Table1").DataSource = aa '将统计结果绑定到Table
'With DataTables("利润报表_Table1").DataCols  '用表达式列计算库存数据
       '.Add("平均销售毛利",Gettype(Double), " [金额] /[数量] * [销售_数量]")
'End With

 

想分月计算毛利，单位成本取最近一年度的“采购价格/采购数量”执行不了，求解决

谢谢，还有个问题，我在明细表里面设置了一个库房列，怎么实现查询库存余数，然后双击某一行，可以查到某一货品在一段时间内的进出库明细，怎么实现