Dim d1 As Date = new date(Date.today.year, 1, 1)Dim g As New CrossTableBuilder("统计表1", DataTables("当年分月统计_Table1"), "[中标日期]>#" & d1 & "#")