主题：[求助]组合两个统计表时出问题

我在组合两个统计报表时出现如下问题，请大侠给点帮助，谢谢！！

 

If s > ""  And  s1 > ""   Then
   
    Dim d1 As Date =Forms("月报表2").Controls("DateTimePicker1").value
    Dim d2 As Date =Forms("月报表2").Controls("DateTimePicker2").value
    Dim sql0 As String = "Select  * FROM {日常废品录入} where {日常废品录入}.录入时间 between '"  & d1  & "' and '" & d2 & "' and {日常废品录入}.生产线f in (" & s & ") and substring({日常废品录入}.材质规格f,1,2) in (" & s1 & ") and {日常废品录入}.发生工序 <> '成工退废' and {日常废品录入}.发生工序 <> '长征退废' "
   
    Dim b As New CrossTableBuilder("统计表1",sql0, "yun")
    b.HGroups.AddDef("货品编号")
    b.VGroups.AddDef("废品原因","内废原因_{0}")
    b.Totals.AddDef("废品数量")
    b.HorizontalTotal = True
    b.VerticalTotal = True
    b.Filter = "[废品原因]<> '回用'"
    Dim dt As fxDataSource
    b.FromServer = True
    dt=b.BuildDataSource()
    MessageBox.Show("1")
    Dim sql2 As String = "Select  * FROM {日常废品录入} where {日常废品录入}.录入时间 between '"  & d1  & "' and '" & d2 & "' and {日常废品录入}.生产线f in (" & s & ") and substring({日常废品录入}.材质规格f,1,2) in (" & s1 & ") and {日常废品录入}.发生工序 = '成工退废' or {日常废品录入}.发生工序 = '长征退废' "
    Dim e11 As New CrossTableBuilder("统计表5",sql2, "yun")
    e11.HGroups.AddDef("货品编号")
    e11.VGroups.AddDef("废品原因","外废原因_{0}")
    e11.Totals.AddDef("废品数量")
    e11.HorizontalTotal = True
    e11.VerticalTotal = True
    e11.Filter = "[废品原因] <> '回用'"
    Dim dt3 As fxDataSource
    e11.FromServer = True
    dt3=e11.BuildDataSource()
    MessageBox.Show("2")
  dt2.Combine("货品编号",dt3,"货品编号")

此主题相关图片如下：未命名.jpg

提示说是，列名重复，但是，我没有废品数量的列啊！

你有两个：

 

   b.Totals.AddDef("废品数量")

 

其中一个改为：

 

   b.Totals.AddDef("废品数量2")

 

或其他名称

我这是都同一个表按不同条件做的两个不同的统计，统计的都是废品数量一列

可以改名：

 

 b.Totals.AddDef("废品数量","废品数量_A")

 

 

 b.Totals.AddDef("废品数量","废品数量_B")

已经如你所说，进行修改，依然出错

更改如下

e11.Totals.AddDef("废品数量","外废合计")

b.Totals.AddDef("废品数量","内废合计")

以下是帮助文件的说明，这样改只能改标题，没有改列名啊

添加统计列到Totals集合中的语法是：　

Totals.AddDef(Name)
Totals.AddDef(Name, Caption)
Totals.AddDef(Name, Aggregate)
Totals.AddDef(Name, Aggregate,Caption)

参数说明

Name:      字符型，指定统计列
Caption：  字符型，指定统计列的标题
Aggregate: AggregateEnum枚举型，用于指定统计类型，默认是求和。

 

并不是所有时候都出现，只在某些时候出现！

此主题相关图片如下：未命名1.jpg

换统计工具，用这个：

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

 

用表达式的形式加入例如：

 

VGroups.AddExp(Name, Expression)

 

例如：

 

b.Totals.AddDef("废品数量_A"，"废品数量")

这样就基本不用改代码：

Dim sql0 As String = "Select  *, 废品数量As 废品数量1 FROM {日常废品录入} where {日常废品录入}.录入时间 between '"  & d1  & "' and '" & d2 & "' and {日常废品录入}.生产线f in (" & s & ") and substring({日常废品录入}.材质规格f,1,2) in (" & s1 & ") and {日常废品录入}.发生工序 <> '成工退废' and {日常废品录入}.发生工序 <> '长征退废' "
   
    Dim b As New CrossTableBuilder("统计表1",sql0, "yun")
    b.HGroups.AddDef("货品编号")
    b.VGroups.AddDef("废品原因","内废原因_{0}")
    b.Totals.AddDef("废品数量1")
    b.HorizontalTotal = True
    b.VerticalTotal = True
    b.Filter = "[废品原因]<> '回用'"
    Dim dt As fxDataSource
    b.FromServer = True
    dt=b.BuildDataSource()

 

另一个改为2或其他名称