以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求助:相同键的项 (http://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分组数不一致的情况下,生成的统计表关联列不能有重复的数据 |