Synchronisation de position Dataview-Dataset

Version imprimable

Bonjour,
J'ai un Dataview qui alimentent en données un Datagrid et quelques Textbox.
Si je respecte le tri d'origine du Dataview (donc également Dataset), pas de problème, Edit et Delete se font correctement.
Par contre, et uniquement sur les TextBox associés, si je clique sur un en-tête de colonne pour faire un tri différent, les modifications sont effectuées sur la ligne correspondante aux tri de départ.
Ex : Si, après un tri manuel, je fais une modif sur les TextBox associés à l'avant-dernière ligne, la modif se fera, après l'update, sur les TextBox associés à l'avant-dernière ligne du tri d'origine.
J'ai un évènement Validating sur ces TextBox qui crée certainement le problème mais je ne vois pas comment l'exprimer autrement :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub TbCode2_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TbCode2.Validating Try If TbCode2.TextLength = 0 Then Me.DataSet31.Tables("Films").Rows(Me.BindingContext(DtvFilms).Position).Item("Code2") = DBNull.Value Else Me.DataSet31.Tables("Films").Rows(Me.BindingContext(DtvFilms).Position).Item("Code2") = TbCode2.Text End If Catch Ex As Exception MessageBox.Show("Error: Code 2", "", MessageBoxButtons.OK, MessageBoxIcon.Stop) End Try End Sub
Merci d'avance pour votre aide toujours très précieuse pour un vieux débutant...

24/08/2007, 19h55
Pol63

pas tout compris
mais au moment ou l'utilisateur change le tri, t'as ptete le temps de faire l'update ou de lancer la sub du validating tout simplement

non ?
24/08/2007, 20h47
Zinneke

Bon, tu as raison, mon exposé manque de clarté et est incomplet.

Ce qui me fait penser que le problème est lié à une absence de synchronisation de position entre le Dataview et le Dataset (Datagrid) est que cette anomalie est visible déjà avant l'Update.
Je m'explique :
1/ Je charge le Datagrid et les Textbox
2/ Je modifie le tri en cliquant sur un autre en-tête de colonne que celui du tri d'origine
3/ Je modifie le texte de Tbcode2 (Textbox lié) : enregistrement X (par exemple position : avant-dernière ligne dans la grille)
4/ Je reviens au tri d'origine en cliquant sur l'en-tête de colonne correspondant
5/ La modification s'est faite sur l'enregistrement Y qui correspond à la ligne qui à la même position dans la grille mais dans le tri d'origine ! Soit dans ce cas : l'avant-dernière ligne dans la grille

Au moment de l'Update c'est la mauvaise ligne qui est modifiée.
J'ai essayé bien entendu de lancer un évènement Click sur l'en-tête de colonne :

Code:

HTI.Type = DataGrid1.HitTestType.ColumnHeader

mais je n'ai sans doute pas trouvé la bonne instruction car rien n'y a fait, c'est toujours le même problème...

J'ai été plus clair ? Merci de toute façon de t'intéresser à mon cas.

Bonjour,
Le tri du datagridview ne se fait pas dans la table du dataset mais dans une dataview sousjacente.
Utilise un bindingsource pour lier le dataview et les textbox.
Code:

1 2 3 4 5 6 7 8 Dim WithEvents BS As BindingSource Dim OBind As Binding BS = New BindingSource BS.DataSource = Dataview DGV.DataSource = BS 'lier les textbox OBind = New Binding("Text", Me.BS, "NomCol") TextBox.DataBindings.Add(OBind)
De cette façon les textbox et le DGV sont synchronisés lors d'un tri
Pour récupérer l'enregistrement courant :
Code:

1 2 Dim DTARV As DataRowView DTARV = CType(BS.Current, DataRowView)
Pour modifier les champs de l'enregistrement courant, modifie le DataRowview et BS.endEdit enregistre les modifs dans la table du dataset.
Utilise les méthodes du bindingsource pour les mises à jour(.addnew, .canceledit, endedit ...).
Bon boulot8-) Jean

24/08/2007, 21h09
Zinneke

Merci pour ta réponse qui me parait parfaitement correspondre à la situation. J'essaye de mettre tout cela en pratique et je re-poste pour te tenir au courant.
Une bonne soirée, Guy
25/08/2007, 11h41
Zinneke

Bonjour,
J'avais omis de préciser que je travaille sous VB.Net 2003 (Framework 1.1), donc pas de BindingSource, j'essaye d'adapter avec BindingContext...

Bon c'était pas très compliqué, mais sans votre aide je serais toujours dans le brouillard.
Code transformé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TbCode2_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TbCode2.Validating
        Try
            Dim DTARV As DataRowView
            DTARV = CType(BindingContext(Me.DtvFilms).Current, DataRowView)
            If Me.TbCode2.TextLength = 0 Then
                DTARV("Code2") = DBNull.Value
            Else
                DTARV("Code2") = TbCode2.Text
            End If
        Catch Ex As Exception
            MessageBox.Show("Error: Code 2", "", MessageBoxButtons.OK, MessageBoxIcon.Stop)
        End Try
    End Sub

Un grand merci.:lol: