Wie man Gruppenheader Werte jedes Mal in Datenreport in vb6.0 ändert

Question

Ich entwickle Anwendung in vb6.0 Hier verwende ich Datareport für die Anzeige von Bericht Ich möchte Werte für jede Gruppenkopf RptLabel zur Laufzeit ohne Verwendung der Datenumgebung bitte raten Sie mir, dies zu erreichen

Answer 1

Sie müssen eine hierarchical recordset für den Datenreport erstellen, um als Datenquelle zu verwenden.

Zunächst einmal müssen Sie das Re-Cord Active Eigenschaft auf MSDataShape einzustellen:

rsDataSource.ActiveConnection = "Provider=MsDataShape;Data Provider=None;" 

Hier ist ein Beispiel dafür, wie Sie die Struktur des Record definieren:

rsDatasouce.Source = "SHAPE APPEND NEW adInteger As ParentId, " & _ 
    "New adVarChar(100) As HeaderValue1, " & _ 
    "New adVarChar(100) As HeaderValue2, " & _ 
    "((SHAPE APPEND New adInteger As ParentGroupId, " & _ 
        "New adInteger As ChildGroupId, " & _ 
        "New adVarChar(25) As ChildValue1, " & _ 
        "New adVarChar(25) As ChildValue2, " & _ 
        "((SHAPE APPEND New adInteger As ChildId, " & _ 
            "New adVarChar(8) As SubChildValue1, " & _ 
            "New adVarChar(100) As Description " & _ 
        "RELATE ChildGroupId To ChildId) AS ChildDetail) " & _ 
     "RELATE ParentId To ParentGroupId) AS GroupDetail" 

dies getan zu haben Sie müssen das hierarchische Recordset auffüllen.