以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助:相同键的项  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172032)

--  作者:lovetoday
--  发布时间:2021/9/18 17:08:00
--  求助:相同键的项
以下代码
Dim yf As WinForm.ComBoBox = e.Form.Controls("ComboBox27")

If e.Form.Controls("RadioButton47").Checked = True
    Dim g1 As New GroupTableBuilder("统计表1", DataTables("btcbxm"))
    Dim dt1 As fxDataSource
    g1.Groups.AddDef("xmzx")
    g1.Groups.AddDef("xmxm")
    g1.Totals.AddDef("xmxm", AggregateEnum.Count, "分序")
    g1.Filter = "[xmzx] is not Null"
    dt1 = g1.BuildDataSource()
    
    Dim g2 As New GroupTableBuilder("统计表1", DataTables("btcbmx"))
    Dim dt2 As fxDataSource
    g2.Groups.AddDef("mxny")
    g2.Groups.AddDef("mxxm")
    g2.Groups.AddDef("mxbm")
    g2.Totals.AddDef("je","部门金额")
    g2.VerticalTotal = True
    g2.GrandProportion = True
    g2.Filter = "[mxny] = \'" & yf.text & "\' "
    dt2 = g2.BuildDataSource()
    
    Dim nms1 As String() = {"xmxm"}
    Dim nms2 As String() = {"mxxm"}
    
    dt1.Combine(nms1,dt2,nms2)
    
    Tables("统计总表_Table130").DataSource = dt1
    
    Tables("统计总表_Table130").Cols("分序").Visible = False
    Tables("统计总表_Table130").Cols("mxny").Visible = False
    
    Tables("统计总表_Table130").AutoSizeCols()
End If

运行后系统提示:已添加了具有相同键的项。

请问是哪个项,如何解决!

--  作者:有点蓝
--  发布时间:2021/9/18 17:12:00
--  
2个统计表的Groups分组数不一致的情况下,生成的统计表关联列不能有重复的数据