VB6数据报表与使用ADO形状的数据源不匹配

Question

我正在尝试让datareport工作，因为dataflexgrid已经在工作了，虽然我很难将值传递给datareport，但我甚至不能传递一个，请帮帮忙谢谢。

PS。它们都是以一种形式存在的

Set mRS = New ADODB.Recordset
mRS.CursorLocation = adUseClient
mRS.CursorType = adOpenForwardOnly
mRS.LockType = adLockReadOnly

If mRS.State = 1 Then mRS.Close

mRS.Open "SHAPE {" & _
        "SELECT " & _
        "space(memberstree.level*6) + customer.description, " & _
        "customer.customercode, " & _
        "customer.remarks, " & _
        "customer.membersince " & _
    "From CUSTOMER " & _
        "INNER JOIN memberstree on customer.customercode = memberstree.customercode " & xRootNode & " " & _
        "ORDER by memberstree.pedigree + ltrim(str(memberstree.node,6,0))} AS rsCustomer " & _
        "APPEND (( SHAPE {SELECT transactionNo, logdate, customercode, GrandTotal " & _
    "From FinishedTransaction where " & xCriteria & "} AS rsTransaction " & _
        "APPEND ({SELECT TransactionNo, Description, Qty From FinishedSales} As rsSales " & _
        "RELATE TransactionNo TO TransactionNo))" & _
        " RELATE customercode TO customercode)", gCNMark
 mRS.Requery

Set MSHFlexGrid1.DataSource = mRS

我认为这就是不能工作的代码

With rptShape
Set .DataSource = mRS
.DataMember = ""


    With .Sections("FinishedSales_Detail").Controls
    .Item("txtDescription").DataMember = "rsSales"
    .Item("txtDescription").DataField = "Description"
    End With

.Show 1

Answer 1

现在还好，我有3个表和2个SHAPE命令，但在数据报告中，我有3个组标题，也应该是2个。