comment changer les valeurs d'en-tête de groupe chaque fois dans le port de données en vb6.0

Question

Je développe l'application en vb6.0 ici j'utilise le port de données pour l'affichage du rapport je veux assigner des valeurs pour chaque en-tête de groupe RptLabel au moment de l'exécution sans utiliser dataenvironment Me conseiller pour réaliser ceci

Answer 1

Vous devez créer un hierarchical recordset pour le port de données à utiliser comme source de données.

Tout d'abord, vous devez définir la propriété ActiveConnection de recordset à MSDataShape:

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

Voici un exemple de la façon dont vous pouvez définir la structure du jeu d'enregistrements:

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" 

Après avoir fait cela vous devez remplir le jeu d'enregistrements hiérarchique.