DataReport动态创建报表的问题,请教~~~给分~~!!

wdwd05 wdwd05 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我在程序中没有用Environment设计器,用的SQL语句创建的动态报表,那么我想问一下,动态创建报表可以用2个数据源吗? 例如:
Sql = "select *,sf_ff + sf_dhf + sf_cf + sf_scf + sf_ylf + sf_qtf - sf_yff as sf_hj from 客人收费表 where sf_sj='" & Data_Consume.Value & "'"
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open ConnectString
rs.Open Sql, conn, adOpenStatic
If rs.RecordCount < 1 Then
MsgBox "没有这一天的报表!", 48, "提示:"
rs.Close
conn.Close
Exit Sub
End If
rs.Close
conn.Close
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open ConnectString
rs.Open Sql, conn, adOpenDynamic, adLockReadOnly
Set DataReport2.DataSource = rs
DataReport2.Sections(2).Controls(1).Caption = Data_Consume.Value
DataReport2.Show (vbModal)
rs.Close
conn.Close

以上这样只是让第2个数据源 Set DataReport2.DataSource = rs
起作用,我想问能不能让这2个都有用,而且不能用临时表,也就是说不可以写在同一个表中,必须要有2个表来解决,这样可以吗?
...全文
评论 1
收藏 已收藏
分享
返回顶部
wdwd05
多媒体 807 成员 8,274 内容