DataReport动态创建报表的问题,请教~~~给分~~!!
我在程序中没有用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个表来解决,这样可以吗?
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个表来解决,这样可以吗?
...全文
相关推荐
VB利用DataReport做报表详
VB利用DataReport做报表详解在VB中,DataReport是一个功能强大的报表工具,通过其可以快速生成各种格式的报表。下面将详细介绍DataReport的使用方法和相关知识点。
DataReport报表分页
**DataReport报表基础** DataReport是VB6时期的报表组件,它允许开发者创建基于数据库的数据报表,通过拖放控件,如文本框、标签、表格等,来设计报表布局。
VB数据报表datareport[整理].pdf
在VB6中,DataReport是用于创建数据报表的重要工具,尤其适合那些不熟悉高级报表解决方案如Crystal Report或Excel的开发者。
VB+SQL+Datareport的查询
**DataReport控件**:DataReport是VB中的一个报表控件,可以用来设计和显示数据源中的数据。开发者可以通过设置其字段、细节、页脚等部分,来自定义报表的布局和样式。
DataReport
在"DataReport"中,我们首先需要使用Pandas的`read_csv()`函数加载CSV文件到DataFrame中。这个函数可以处理大部分CSV文件的格式问题,包括分隔符、编码等。


多媒体
