Dim sql命令 As New SQLCommand
sql命令.CommandText = "s e lect max([_Identify]) as ID from {验收记录} group by 工程编号"
Dim g As New GroupTableBuilder("施工费用", DataTables("验收记录"))
g.Groups.AddDef("施工单位")
g.Totals.AddDef("施工费")
g.Filter = "_Identify in(" & String.Join(",", sql命令.ExecuteReader.datarows.Select(Function(行) CInt(行("ID")))) & ")"
g.Build()
MainTable = Tables("施工费用")