Discussion :

[Invité]

Bonsoir à toutes et tous !

Je crée actuellement un formulaire qui permet de visualiser un listing clients par liaison simple grâce au DataBinding. Aucun problème pour l'affichage et le passage d'un client à l'autre mais voilà ce que je voudrais faire et qui bien évidement ne fonctionne pas.

J'ai ajouté un bouton "Nouveau client", et j'aimerais voir un formulaire vierge apparaître à la dernière position + 1 afin d'entrer de nouvelles données pour un nouveau client. Pour ce faire, lors de l'ajout je crée une nouvelle ligne dans la table du DataSet que je pré-remplis avec des données standards et je demande au DataBindingContext de se rendre à la nouvelle position. La ligne de la table est bien créée puisque un client supplémentaire apparaît quand j'affiche client xxx sur xxx. En "montant" unité par unité, j'arrive toujours à n-1 mais jamais à la dernière ligne nouvellement créée.

Y a-t-il une astuce que je n'aurais pas trouvée ?

Merci d'avance pour vos réponses !

webrider

[infosam76]

Une portion de code pourrait nous aider

[Rainui]

Bonsoir,

Si votre soucis est que vous ne voyez pas le nouveau client dans votre DataGridView après l'avoir créé, il vous faut réaffecter le DataSource du DataGridView en fessant appel à la méthode .Fill du DataAdapter concerné lors de la fermeture du formulaire de saisie.

Dis autrement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MonDataAdapter.Fill(MaDataTable)
MonDataGridView.DataSource=MaDataTable

L'idée reste la même pour un DataSet ou un BindingSource.

[Invité]

Bonjour et merci pour vos réponses.

Je me suis mal exprimé, je n'utilise pas un DataGridView mais un formulaire personnel (voir pièces jointes).

Voici le code qui ajoute une ligne au DataSet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub NouveauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NouveauToolStripMenuItem.Click
        Try
            With Me.BindingContext(XXXDataset, "Clients")
                Dim LigneVierge As DataRow = XXXDataset.Tables("Clients").NewRow ' Création d'une nouvelle ligne dans la table clients
                Dim NumDernierClient As Integer = XXXDataset.Tables("Clients").Rows(.Count - 1).Item(0) ' Récupération du numéro de client du dernier client pour la clé primaire
                With LigneVierge
                    .Item(0) = NumDernierClient + 1
                    .Item(1) = "Mr."
                    .Item(2) = "Nom"
                    .Item(3) = "Prénom"
                    .Item(4) = "Rue & numéro"
                    .Item(6) = "1000"
                    .Item(7) = "Bruxelles"
                End With
                XXXDataset.Tables("Clients").Rows.Add(LigneVierge)
                .Position = .Count - 1
                lblNbreClients.Text = "Client " & .Position + 1 & " sur " & .Count
                CreateBindingContext()
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Sur la première miniature on voit bien qu'il y a 3 clients au total et grâce aux boutons je sais passer au client 1/3, 2/3 puis 3/3. Une fois l'ajout demandé, j'ai bien l'affichage client 3/4 mais quand je clique sur le bouton pour passer à 4/4 ça reste bloqué sur 3/4.

Merci.

webrider

[infosam76]

Je vois rien d'anomal dans votre code. J'aurais eu tendance à dire qu'il manquait un AcceptChange sur la table, mais je pense que cette fonction doit être appelée après l'Update sur le DataSet pour sauver les données dans la base de données.

Il faudrait peut-être voir au niveau du code de votre bouton "Suivant".

Sinon vous pouvez regarder du coté du composant "BindingNavigator" qui crée en bas de votre fenêtre (ou au dessus) le même genre de barre de navigation que sous Access

[Invité]

Oui c'est étrange surtout qu'il n'y a aucune exception qui est levée et je peux récupérer les informations du nouveau client via le code directement dans le DataSet.

Pour info voici le code des boutons :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub btnDebut_Click(sender As Object, e As EventArgs) Handles btnDebut.Click, btnPrecedent.Click, btnSuivant.Click, btnFin.Click
        Try
            With Me.BindingContext(XXXDataset, "Clients")
                If sender.Equals(btnDebut) Then
                    .Position = 0
                ElseIf sender.Equals(btnPrecedent) Then
                    .Position -= 1
                ElseIf sender.Equals(btnSuivant) Then
                    .Position += 1
                ElseIf sender.Equals(btnFin) Then
                    .Position = .Count - 1
                End If
                lblNbreClients.Text = "Client " & .Position + 1 & " sur " & .Count
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

De plus le BindingContext m'informe bien qu'il y a 4 lignes dans le DataSet puisqu'il met bien à jour le nombre total de clients. Une fois ma ligne ajoutée au DataSet devrais-je d'abord sauvegarder dans la base de données puis recharger mon DataSet ?

Je sèche complètement là.

webrider