If Check1.Value = 1 And Check2.Value = 0 Then
Adodc1.RecordSource = "select * from 综合查询表1 where 综合查询表1.日期 between'" + Str(DTP1.Value) + "'AND'" + Str(DTP2.Value) + "'" '错误代码
Adodc1.Refresh
Adodc2.RecordSource = "select count(*)as pz,sum(数量)as 数量1,sum(金额)as 金额1 from 综合查询表1 where 综合查询表1.日期 between'" + Str(DTP1.Value) + "'AND'" + Str(DTP2.Value) + "'"
Adodc2.Refresh