主题：窗口代码

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

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

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

 

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

1、去掉关联表设置里面的“同步删除关联行”的勾选：http://www.foxtable.com/webhelp/scr/1644.htm

1、http://www.foxtable.com/webhelp/scr/0633.htm

 

2、比如

 

With Tables("采购主表")
     If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        .Position = .Position - 1 

    Else

        msgbox("请先保存当前行")
    End If
End With

 

3、

 

if tables("采购主表").current("供应商") = nothing Then

    msgbox("请先输入供应商")

    return

End If

 

4、

 

For Each r As Row In Tables("采购主表.采购明细表").rows    
    If r("名称") = Nothing Then        
        msgbox("请先输入名称")        
        Return        
    End If   
Next

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

Dim nms As String() = {"年","月"} '指定连接列
gg.Combine(nms,aa,nms) '将销售统计数据组合到进货统计数据
gg.show("统计表")
With DataTables("统计表").DataCols  '用表达式列计算库存数据
    .Add("平均销售毛利",Gettype(Double), " [金额] /[数量] * [销售_数量]")
End With 

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

参考

 

http://www.foxtable.com/webhelp/scr/2359.htm