Adodc1.RecordSource = "SELECT 车号 as 车号sum(当日销售合计) as 累计销售合计,sum(当日销售金额) as 累计销售金额,sum(当日运费收入) as 累计运费收入 FROM dangribiao  where 日期 <= " & Str(DTPicker1.Value) & " group by 车号 "

    Adodc1.Refresh