遇到难题了，请各位大侠帮帮忙啊。。。

系统说明：

一.基本资料：客户，产品

二.销售录入：销售明细，收款明细 （根据销售单进行收款，收款较复杂，也有可能送货时即收款，可能月结，半月结等）

三.统计查询：主要统计 1.本月销售量及利润 2.本月已收款 3.客户欠款

问题：
1. 统计查询-->客户产品统计查询（按客户和产品统计） 在统计结果最右列想加上此客户当月的回款额 （目前单独实现，从“资金报表”--本月回款额可查询，想整合在一起，不知如何处理？）
2. 统计查询-->汇总查询（产品统计查询） 想加上每个产品的成本，利润两列，即手工输入当月产品成本，自动算出利润，不知道如何设计、处理？
3. 统计查询时，统计结果为空的，如何显示为0 ，金额如何加上货币符号？

4.资金管理录入也觉得怪怪的，想不到更好的设计，有什么高见啊，呵呵

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

点击浏览该文件:复件 123.table

1、参考：

http://www.foxtable.com/help/topics/2305.htm

2、可以在生成统计表后，对此统计表动态增加列和表达式列，参考：

http://www.foxtable.com/help/topics/0365.htm

3、加上货币符号：

http://www.foxtable.com/help/topics/1659.htm

4、空值显示0，可以在生成统计代码之后加一段代码：

For Each dc As DataCol In DataTables("统计表名").DataCols
    If dc.IsNumeric Then
            For Each dr As DataRow In DataTables("统计表名").DataRows
                If dr.IsNull(dc.name) Then
                    dr(dc.name) = 0
                End If
            Next
    End If
Next

1. 统计查询-->客户产品统计查询（按客户和产品统计）

   1.1 显示的结果中，合计一行在中间，如何将合计一行移至最后

   1.2 如果合计一行后面的不显示，即只显示出两个表共同有的客户数据，应如何处理？

   1.3 提供的实例为TABLE控件显示，能否不用窗口_Table方式显示，即以普通的数据表方式进行显示？主要想实现EXCEL导出时，能手动选择保存至什么地方，如果直接点系统自带的EXCEL，保存的数据非 窗口_Table 的数据。

2. 统计查询-->汇总查询（产品统计查询）

   2.1 新增的列“单位成本”“生产销售费用”需手工输入数据，然后自动计算出利润，这三列最后一行想实现自动汇总

   2.2 【产品名称】一列相同的进行合并，但排序后，合计一行可能就不是显示在最后了，应如何处理

3.统计查询-->资金报表

  3.1 想用一个表显示，即显示本月销售额、本月回款、客户欠款三列，但本月销售额、本月回款只显示当月的，而客户欠款是最新的欠款状况

       目前是做成了两个表，想合在一起，而第二个表只需要客户欠款一列

4. 销售录入--销售录入

  4.1 如何实现增加条目后，动态显示‘合计金额’，已尝试在行值变更后进行处理，能动态显示了，但一点击‘已收款’文本框及‘未收款’文本框后，合计金额’的值就消失了

感觉问题多多，呵呵，不好意思，拜托了~

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

点击浏览该文件:复件 123.table

呵呵，你似乎在直接提出设计要求，交给我设计了。

你要明白，这是你在设计系统，不是我在设计系统。

问题要一个一个来，解决一个，学习一个，尝试下一个，不行再提问。

查询按钮的代码，这样设计，汇总行就在最后面了：

Dim Filter As String \'设置过滤条件查询
Filter="1=1"
With e.Form.Controls("开始日期")
    If .Value IsNot Nothing Then
        Filter =  Filter & "and 送货日期>= \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("结束日期")
    If .Value IsNot Nothing Then
        Filter = Filter &  "and 送货日期<= \'" & .Value & "\'"
        \' Else
       
    End If
End With

Dim g As New CrossTableBuilder("统计表1", DataTables("销售明细"))
Dim dt1 As fxDataSource

g.HGroups.AddDef("客户名称")
g.VGroups.AddDef("产品名称")
g.VGroups.AddDef("产品简称")
g.Totals.AddDef("重量")
g.Totals.AddDef("金额")
\'g.Totals.AddDef("已收款")
\'g.Totals.AddDef("未收款")

g.HorizontalTotal = True
g.OrderByTotal = e.Form.Controls("CheckBox1").Checked

直接用普通形式显示这种统计结果，目前还没有办法，下次更新会考虑。

关于这个问题：

新增的列“单位成本”“生产销售费用”需手工输入数据，然后自动计算出利润，这三列最后一行想实现自动汇总。

foxtable可以设置汇总模式，但是由于汇总模式下无法输入数据，所以我建议你在返回窗口加两个按钮，分别是:

汇总按钮：

With Tables("统计表1")
    Dim gp As New Subtotalgroup
    gp.Aggregate = AggregateEnum.Sum
    gp.GroupOn = "*" \'注意总计分组用符号*表示.
    gp.TotalOn = "生产销售费用,利润,单位成本"
    gp.Caption = "总计"
    .SubtotalGroups.Add(gp)
    .Subtotal() \'生成汇总模式
End With

取消汇总按钮：

Tables("统计表1").ClearSubtotal()

关于这个问题：

新增的列“单位成本”“生产销售费用”需手工输入数据，然后自动计算出利润，这三列最后一行想实现自动汇总。

foxtable可以设置汇总模式，但是由于汇总模式下无法输入数据，所以我建议你在返回窗口加两个按钮，分别是:

汇总按钮：

With Tables("统计表1")
    Dim gp As New Subtotalgroup
    gp.Aggregate = AggregateEnum.Sum
    gp.GroupOn = "*" \'注意总计分组用符号*表示.
    gp.TotalOn = "生产销售费用,利润,单位成本"
    gp.Caption = "总计"
    .SubtotalGroups.Add(gp)
    .Subtotal() \'生成汇总模式
End With

取消汇总按钮：

Tables("统计表1").ClearSubtotal()