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
运行后系统提示：已添加了具有相同键的项。
请问是哪个项，如何解决！
加好友 
发短信
Post By：2021/9/18 17:08:00 [只看该作者]
