只要有用,立马给分!!!

Question

需要用到报表
给你举隔例子吧~~~现在窗体上画一个按钮~~名字为cmdFill~~~
窗体的代码为:Opintion Explicit
Dim cn as ADODB.Connection
Dim rs as ADODB.Recordsetprivate sub cmdfill_click()
set rs=cn.execute("select * from 表名 where 条件")
end subprivate sub form_load()set cn = new AODOB.Connection
cn.open "dsn=test"    '我使用了ODBC数据源
end subprivate sub form_unload ()
rs.close
cn.close
end sub接下来在工程中加入一个数据报表(DataReport1)~~~具体操作你自己翻资料吧~~我在这里不可能说的清楚~~~再往窗体上加一个按钮 cmdReport代码为:
private sub cmdReport_click()set dataReport1.Datasource =rs
DataReport1.Showend sub这样可以了吗?