QueryThisYear.CommandText :=
    'SELECT SUM(VOUCHER.JJE),SUM(VOUCHER.DJE),(SUM(VOUCHER.JJE)-SUM(VOUCHER.DJE)) as BeginBalance,VOUCHER_HEAD.DAY, VOUCHER.KMDM FROM VOUCHER, VOUCHER_HEAD WHERE (VOUCHER.PZ_ID = VOUCHER_HEAD.PZ_ID) and (VOUCHER_HEAD.DAY >='''+lStartOfYear+'''and VOUCHER_HEAD.DAY <= '''+lEndOfMonth+'''''GROUP BY VOUCHER.KMDM, VOUCHER_HEAD.DAY';lStartOfYear为double型,取的是当年第一天
lEndOfMonth同上,取的是当月的最后一天请求,匹配一下字符串,使得where条件为(VOUCHER.PZ_ID = VOUCHER_HEAD.PZ_ID)and VOUCHER_HEAD.DAY 大于当年年第一天,小于当月最后一天。谢谢