主题：组合统计连接列问题

 三个表连接查询后，你可以取得任何一个表的任何列的内容

 

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

 

 或者贴出你写的统计的代码，改成 SqlGroupTableBuilder 也可以。

Dim   bd1 As  New  GroupTableBuilder("统计表1",DataTables("商品库存"))
Dim  dt1 As   fxDataSource
 bd1.Groups.AddDef("Item")  '根据型号分组
bd1.Totals.AddDef("EnglishDescription", AggregateEnum.max, "英文描述")  '根据型号分组
bd1.Totals.AddDef("ChineseDescription", AggregateEnum.max)  '根据型号分组
bd1.Totals.AddDef("EnglishBrand", AggregateEnum.max)  '根据型号分组
bd1.Totals.AddDef("ChineseBrand", AggregateEnum.max)  '根据型号分组
bd1.Totals.AddDef("ItemCategory", AggregateEnum.max)  '根据型号分组
dt1 =   bd1.BuildDataSource()

Dim  bd2 As  New   GroupTableBuilder("统计表2",DataTables("出入记录"))
bd2.Filter = "[作业时间] >= # " & lbl3.value & "# and [作业时间] <= # " & lbl4.value & " #  and 操作类型 = '入库'"
Dim  dt2  As   fxDataSource
 bd2.Groups.AddDef("货品编号")  '根据型号分组
bd2.Totals.AddDef("数量","入库_数量")  '对数量进行统计
dt2 =   bd2.BuildDataSource()

Dim  bd3 As  New   GroupTableBuilder("统计表3",DataTables("出入记录"))
bd3.Filter = "[作业时间] >= # " & lbl3.value & "# and [作业时间] <= # " & lbl4.value & " #  and 操作类型 = '出库'"
Dim  dt3  As   fxDataSource
bd3.Groups.AddDef("货品编号")  '根据型号分组
bd3.Totals.AddDef("数量","出库_数量")  '对数量进行统计
dt3 =   bd3.BuildDataSource()

dt1.Combine("Item",dt2,"货品编号")  '将销售统计数据组合到进货统计数据
dt1.Combine("Item",dt3,"货品编号")  '将退货统计数据组合到进货统计数据

Tables("报表统计_Table1").DataSource =   dt1  '将统计结果绑定到Table

Dim lbl3,lbl4 As WinForm.DateTimePicker
lbl3 = e.Form.Controls("DateTimePicker3")
lbl4 = e.Form.Controls("DateTimePicker4")
Dim g As New GroupTableBuilder("库位调整", DataTables("出入记录"))
g.Groups.AddDef("作业时间", DateGroupEnum.None)
g.Groups.AddDef("货品编号")
g.Groups.AddDef("中文描述")
g.Groups.AddDef("批号")
g.Groups.AddDef("状态")
g.Groups.AddDef("位置")
g.Groups.AddDef("箱含量")
g.Groups.AddDef("单位")
g.Groups.AddDef("中文名称")
g.Groups.AddDef("商品类型")
g.Groups.AddDef("操作类型")
g.Totals.AddDef("数量")
g.Totals.AddDef("体积")
g.Totals.AddDef("重量", AggregateEnum.Count)
g.Filter = "([操作类型] = '移出' or [操作类型] = '移入') and [作业时间] >= # " & lbl3.value & "# and [作业时间] <= # " & lbl4.value & " # "
Tables("报表统计_Table1").DataSource = g.BuildDataSource()
For Each r As Row In Tables("报表统计_Table1").Rows
    If r("操作类型") = "移出" Then
        r("数量") = -1 * r("数量")
    ElseIf r("操作类型") = "移入" Then
       
    End If
Next

 做个计划任务

 

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

 

static d1 As Date = Date.today.AddDays(-1)
If d1 <> Date.today AndAlso Date.Now.Hour=0 Then
    d1 = Date.today

    '执行你的代码 

end if

[此贴子已经被作者于2017/3/5 23:33:18编辑过]

 你可以弄一个客户端，在你的服务器那里运行。