关于DataReport的高分题！如何不用数据环境而只用ADODB.Recordset而做出Group效果？

[BenBenBoy]

我现在直接在GroupSection里面挂上rptTextBox，其DataSource为空，DataField为我的Recordset的一个字段

可是老是出错，说 ReportSection和Datasource不一致！

救命呀。。。。。

[BenBenBoy]

UP!

[BenBenBoy]

UP!

[qiaol_mail]

我帮你up!

[Hobbytp]

和我一样命苦的人，我帮你up

[BenBenBoy]

我找到了一个极笨的方法，真是苦死了。。。。

[KillLostHeart]

'=========================================================================================
' 郎 frmDataEnv.frm
'
' 舦戈癟 ⊿Τ舦度ㄑ把σノ硚
'
' ミら戳 2001/06/12
'
'    Spencer Yang
'
' ヘ 礚 Data Environment ぇ顶糷Α厨
'
' 秈  翴 Sub Form_Load()
'
' ㄌ ぃ続ノ
'
' 拜肈 ぃ続ノ
'
' ㄏノよ猭 ぃ続ノ
'
' 把σゅ膍
'
'-ず场ゅン ぃ続ノ
'
'-MSDNゅン ぃ続ノ
'
'-呼隔ゅン ぃ続ノ
'
'* 爹 瓃夹肈爹秆兜ヘ種竡叫把綷ゅ㎝呼VB呼ぇ阑瘆虫じ
' 393 夹肈爹秆(Header-style Comment)
'=========================================================================================

Option Explicit

'=========================================================================================
' ヘ 厨箇凝
'
' ら 戳 By COMMENT
' ---------- ---- -------
' 2001/06/12 SY ミ
'=========================================================================================
Private Sub cmdShow_Click()

Dim objCon As ADODB.Connection
Dim objRst As ADODB.Recordset
Dim strShape As String

' 砞﹚ Shape 
strShape = "SHAPE {SELECT GRPID, GRPNAME, MRKTYPENAME FROM qryStockGroup} " & _
"APPEND ({SELECT * FROM STKNAME} " & _
"RELATE GRPID TO GRPID) AS cmmStockDetail"

' ン跑计--ADODB
Set objCon = New ADODB.Connection
Set objRst = New ADODB.Recordset

' 矗ㄑ砞﹚
With objCon
.Provider = "MSDataShape"
.Open gstrConn_Shape
End With

' 戈ㄓ方砞﹚
With objRst
.CursorLocation = adUseClient
.Open strShape, objCon
End With

' 厨戈ㄓ方砞﹚
Set rptDataRpt7.DataSource = objRst

' 竤舱琿
With rptDataRpt7.Sections("StockGroup")
.Controls("txtGRPID").DataField = "GRPID"
.Controls("txtGRPNAME").DataField = "GRPNAME"
.Controls("txtMRKTYPE").DataField = "MRKTYPENAME"
End With

' 冈灿戈琿
With rptDataRpt7.Sections("StockDetail")
.Controls("txtSTKID").DataMember = "cmmStockDetail"
.Controls("txtSTKID").DataField = "STKID"

.Controls("txtSTKNAME").DataMember = "cmmStockDetail"
.Controls("txtSTKNAME").DataField = "STKNAME"

.Controls("txtLASTUPD").DataMember = "cmmStockDetail"
.Controls("txtLASTUPD").DataField = "LASTUPD"

.Controls("txtLASTPRICE").DataMember = "cmmStockDetail"
.Controls("txtLASTPRICE").DataField = "LASTPRICE"
End With

' 陪ボ厨
rptDataRpt7.Show vbModal

End Sub

[KillLostHeart]

'=========================================================================================
' 郎 basPath.bas
'
' 舦戈癟 ⊿Τ舦度ㄑ把σノ硚
'
' ミら戳 2001/06/12
'
'    Spencer Yang
'
' ヘ 俱盡隔畖ぇ砞﹚
'
' 秈  翴 gstrConnectionString
'
' ㄌ ぃ続ノ
'
' 拜肈 ぃ続ノ
'
' ㄏノよ猭  gstrDBFile_Test 祘砞﹚戈畐 Test.mdb
'
' 把σゅ膍
'
'-ず场ゅン 眏絪帝Visual Basic 6 戈畐秨祇竧竒ISBN 957-8471-34-3
'
'-MSDNゅン ぃ続ノ
'
'-呼隔ゅン ぃ続ノ
'
'=========================================================================================

Option Explicit

'=========================================================================================
' ヘ : 砞﹚硈絬
'
' ら 戳: BY COMMENT
' ---------- ---- -------
' 2001/06/12 SY ミ
'=========================================================================================
Public Function gstrDBFile_Test() As String

gstrDBFile_Test = App.Path & "\DataRpt7.mdb"

End Function

'=========================================================================================
' ヘ : 砞﹚戈畐隔畖
'
' ら 戳: BY COMMENT
' ---------- ---- -------
' 2001/06/12 SY ミ
'=========================================================================================
Public Function gstrConn_Test()

gstrConn_Test = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gstrDBFile_Test

End Function

'=========================================================================================
' ヘ : 砞﹚戈畐隔畖--Data Shapeぇノ
'
' ら 戳: BY COMMENT
' ---------- ---- -------
' 2001/06/12 SY ミ
'=========================================================================================
Public Function gstrConn_Shape()

gstrConn_Shape = "Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gstrDBFile_Test

End Function

[KillLostHeart]

吐血，这论坛不支持繁体中文。上面的那些注释也许你要开个内码转换软件来看了。
最上面的是一个窗体的所有代码，中间的那个是一个模块的代码。
完全可以实现直接将记录集中的内容传递到数据报表中，而不用数据环境。而且可以实现分组的效果。

[BenBenBoy]

啊？得自己写SHAPE吗？

[BenBenBoy]

真是命苦！开了南极星也不管用！

楼上的大哥，能否把地址给我？多谢了！

[wdwd05]

是啊是啊，直接的地址~~~急需~~~~~~

[BenBenBoy]

谢谢了，这位大哥！快给地址吧？

[BenBenBoy]

up!

[KillLostHeart]

具体在哪里我是忘了，是台湾的一个网站。其实做这种报表的精华就是SHAPE，你就按照上面的代码自己写个shape就完全可以了。你自己试试，挺简单的。

[KillLostHeart]

而且那些繁体字都是一些版权和注释，没什么用途的，直接看代码就好了。