主题：汇总

单独导出部分表和数据到一个新的项目上传

表格导出来了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.rar

做个交叉统计即可

但是这个统计出来的是临时表，我想把统计表作为主表，用按钮通过代码实现，应该怎么搞？

 

生成的后的表格数据，你填充过去你的主表，不就好了？

 

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

 

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

 

5555 我还是不会，求大侠指教

参考代码

 

Dim Cols1() As String = {"业务","分组","品牌","一月_数量","一月_金额","四月_数量","四月_金额"}
Dim Cols2() As String = {"业务","分组","品牌","1月_数量","1月_金额","4月_数量","4月_金额"}

Dim dic As new Dictionary(Of String, String)
For Each c As Col In Tables("统计表1").Cols
    dic.Add(c.Caption, c.name)
Next

For Each dr1 As DataRow In DataTables("统计表1").Select("")
    Dim dr2 As DataRow = DataTables("订单汇总").AddNew()
    For i As Integer = 0 To Cols2.Length -1
        If dic.ContainsKey(Cols2(i)) Then
            dr2(Cols1(i)) = dr1(dic(Cols2(i)))
        End If
    Next
Next

代码我试了，有两个问题再请教下：

1、订单表更新后，统计的数据没有自动更新，所以订单汇总表也没有更新

2、按钮如果重新点击的话，汇总的数据是在下面继续增加的，而不是覆盖之前的

 

另外能不能不通过填充，而是直接从订单表统计到订单汇总表里？

 参考设计

 

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

 

 Select Case e.DataCol.name
    Case "业务","分组", "年度"
        If e.DataRow.IsNull("年度") = False Then
            Dim filter As String = "1=1 "
            If e.DataRow.IsNull("业务") = False Then
                filter &= " and 业务 = '" & e.DataRow("业务") & "'"
            End If
            If e.DataRow.IsNull("分组") = False Then
                filter &= " and 分组 = '" & e.DataRow("分组") & "'"
            End If
            Dim d As Date = new Date(val(e.DataRow("年度")), 1, 1)
            Dim cs() As String = {"一", "二", "三","四","五"}
            For i As Integer = 0 To cs.length-1
                e.DataRow(cs(i) & "月_数量") = DataTables("订单表1").Compute("sum(数量)", filter & " and 客户交期 >= #" & d.AddMonths(i) & "# and 客户交期 < #" & d.AddMonths(i+1) & "#")
                e.DataRow(cs(i) & "月_金额") = DataTables("订单表1").Compute("sum(金额)", filter & " and 客户交期 >= #" & d.AddMonths(i) & "# and 客户交期 < #" & d.AddMonths(i+1) & "#")
            Next
        End If
End Select