报表的记录源是
SELECT 金蝶导出科目余额表.科目代码, 金蝶导出科目余额表.科目名称
FROM 金蝶导出科目余额表
GROUP BY 金蝶导出科目余额表.科目代码, 金蝶导出科目余额表.科目名称
HAVING (((金蝶导出科目余额表.科目代码) Is Not Null));
报表的数据源都都为空
分别为每个月建立8个文字框,命名为
期初余额贷方1, 期初余额借方1, 本期发生额贷方1, 本年累计发生额借方1, 本年累计发生额贷方1, 期末余额借方1, 期末余额贷方1,
期初余额贷方2, 期初余额借方2, 本期发生额贷方2, 本年累计发生额借方2, 本年累计发生额贷方2, 期末余额借方2, 期末余额贷方2,
....
期初余额贷方12, 期初余额借方12, 本期发生额贷方12, 本年累计发生额借方12, 本年累计发生额贷方12, 期末余额借方12, 期末余额贷方12
Dim rs as recordset '一定要在代码最前面,这是模块变量,下面所有程序都可以调用
Sub Report_Open 里面
set rs = currentdb().openrecordset( “select * from 金蝶导出科目余额表 查询 order by 科目代码,期间
End SUb
Sub Report_Format
if formatCount=1 Then
do while rs!科目代码 = me!科目代码 Then
me(" 期初余额贷方" & rs!期间) = rs("期初余额(贷方)")
me(" 期初余额借方" & rs!期间) = rs("期初余额(借方)")
... ' 8个字段的赋值
rs.movenext
loop
end if
End Sub
Sub Report_Close
rs.close
set rs=null
eND SUB