SHAPE指令急

[festley]

在VB中，如何写SHAPE指令，它有COMPUTE命令，如何在DATAREPORT用这SHAPE指令？
有详细的资料，请说或TO：[e-mail]

[richard_1]

例子：
Sub datashape()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim rsChapter As Variant

cnn.Provider = "MSDataShape"
cnn.Open "Data Provider=MSDASQL;" & _
"DSN=vfox;uid=sa;pwd=vfox;database=pubs”
'步骤 1
rst.StayInSync = FALSE
rst.Open "SHAPE {select * from authors}
APPEND ({select * from titleauthor} AS chapter
RELATE au_id TO au_id)",
cnn
'步骤 2
While Not rst.EOF
Debug.Print rst("au_fname"), rst("au_lname"),
rst("state"), rst("au_id")
'步骤 3
Set rsChapter = rst("chapter")
'步骤 4
While Not rsChapter.EOF
Debug.Print rsChapter(0), rsChapter(1),
rsChapter(2), rsChapter(3)
rsChapter.MoveNext
Wend
rst.MoveNext
Wend
End Sub

[adafirst3219]

市面上有一本《Visual Basic 6.0 数据库开发指南》，

[cuiyxy]

看一看这个帮助
C:\WINNT\Help\ADO210.CHM

[playyuer]

关于数据构形的问题
http://www.csdn.net/oldexpert/TopicView.asp?id=121270&table=200101