专家坐堂-【求助】已添加了具有相同键的项Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim bd1 As New GroupTableBuilder("统计表1", DataTables("ER_SCJH"))

Dim dt1 As fxDataSource

bd1.Groups.AddDef("BM")

bd1.Groups.AddDef("DATE", "月")

bd1.Totals.AddDef("完成情况_欠交金额", AggregateEnum.Count, "合同欠交_项数")

bd1.Totals.AddDef("完成情况_欠交金额", "合同欠交_当月")

bd1.Totals.AddDef("完成情况_欠交金额", "合同欠交_累计",True)

bd1.VerticalTotal = True

bd1.Filter = "[是否完成] = \'否\'"

dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("ER_SCJH"))

Dim dt2 As fxDataSource

bd2.Groups.AddDef("BM")

bd2.Groups.AddDef("DATE", "月")

bd2.Totals.AddDef("BFPTjine", AggregateEnum.Count, "已配套合同_项数")

bd2.Totals.AddDef("BFPTjine", "已配套合同_当月")

bd2.Totals.AddDef("BFPTjine", "已配套合同_累计",True)

bd2.VerticalTotal = True

bd2.Filter = "[是否完成] = \'否\'and [PT] = \'是\'"

dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("ER_SCJH"))

Dim dt3 As fxDataSource

bd3.Groups.AddDef("BM")

bd3.Groups.AddDef("DATE", "月")

bd3.Totals.AddDef("完成情况_欠交金额", AggregateEnum.Count, "未配套合同_项数")

bd3.Totals.AddDef("完成情况_欠交金额", "未配套合同_当月")

bd3.Totals.AddDef("完成情况_欠交金额", "未配套合同_累计",True)

bd3.VerticalTotal = True

bd3.Filter = "[是否完成] = \'否\' and [PT] <> \'是\'"

dt3 = bd3.BuildDataSource()

dt1.Combine("bm",dt2,"bm")

dt1.Combine("BM",dt3,"BM")

Tables("统计_Table1").DataSource = dt1

测试报错项是红字部分，请问应该怎么改