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

Question

'=========================================================================================
' 郎    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

Answer 1

'=========================================================================================
' 郎    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

Answer 2

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