naviguer dans un formulaire maitre/detail

Question

Bonjour tout le monde, 

je débute en Vb et je suis entraint de programmer une application 
parent/ enfant. 
En fait jŽai deux tables (region et office) 
chacunes dans un datagrid. 
seulement j`ai un souci sur lequel je bloque depuis plusieurs jours: 
lorsque je navigue sur la table region à l`aide de deux boutons de contrôle: suivant et précédent 

je voudrais voir les enregistrements correspondant dans la table office. 
voici le code: 

Imports System.Windows.Forms


Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Ds._REGION.Clear()
        REGIONTableAdapter.Fill(Ds._REGION)
        OFFICETableAdapter.Fill(Ds.OFFICE)
 
    End Sub
 
    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles btnNext.Click
 
        Me.BindingContext(Ds, "Region").Position = (Me.BindingContext(Ds, "Region").Position) + 1
        PositionChanged()
    End Sub
    Private Sub btnPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles btnPrev.Click
 
        Me.BindingContext(Ds, "Region").Position = (Me.BindingContext(Ds, "Region").Position) - 1
        PositionChanged()
    End Sub
 
    Sub PositionChanged()
        lblPos.Text = (((Me.BindingContext(Ds, "Region").Position.ToString _
                         + " / ") _
                      + (Me.BindingContext(Ds, "Region").Count.ToString)))
    End Sub



    Private Sub lblPos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblPos.Click
        Dim parentColumn As DataColumn = _
           Ds.Tables("Region").Columns("ID")
 
        Dim childColumn As DataColumn = Ds.Tables( _
            "Office").Columns("REGID")
 
        //créer la liaison
 
        Dim relation As DataRelation
        relation = New DataRelation("FK_OFFICE_REGID_ID ", parentColumn, childColumn)
 
        'remplissage du dataset
        Ds.Relations.Add(relation)
 
        Dim SelectedID As String
        SelectedID = lblPos.SelectedText
 
        Dim drReg As DataRow
        drReg = Ds._REGION.FindByID(SelectedID)
 
        Dim droff As DataRow
        Dim arroff() As DataRow
        For Each relation In Ds.Tables("Office").ChildRelations
 
            For Each droff In Ds.Tables("Region").Rows
                arroff = droff.GetChildRows("relation")
            Next droff
        Next relation
    End Sub
End Class

merci de me dire ce que je devrais améliorer dans mon code

Answer 1

Salut,

sur tes 3 dernières lignes au niveau du

fro each droff ...

j'ai comme l'impression que tu n'affiche pas les differentes information que tu récoltes dans aroff

---

la FOI déplace les montagnes et bien DOTNET les effaces complétement.

Answer 2

Merci infiniment pour ta réponse,

peux-tu stp me dire comment je dois les m' y prendre? comme je l´ai dit plus haut je débute juste en vb et j´ai essayé depuis 

une semaine des tas de choses qui n´ ont tjrs pas fonctionné.

merci encore 

---

SF

Answer 3

Bonjour, Sonia,

Est-ce que vous avez réussi résoudre votre problème ?  Sinon, pouvez-vous svp nous expliquer l’aperçu de votre application avec une capture d’écran ? En plus, il n’est pas très clair quel est le rôle de lblPos_Click dans votre application et comment le clic sur ce libelle influence les resultats.

Bonne journée,

Cipri

---

 

Ciprian DUDUIALA, MSFT  
•Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.

Answer 4

Bonjour Ciprian,

oui j´ai réussi à resoudre mon problème. Certes pas avec le code mais avec le Designer.

Merci

Sonia

---

SF