1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| rivate Sub DTG_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DTG.MouseUp
Dim RéférenceActive As Integer
RéférenceActive = DTG.CurrentRow.Cells(0).Value 'Valeur du champ Référence dans la ligne active
Me.TXT_champ1.DataBindings.Clear()
Me.TXT_champ2.DataBindings.Clear()
'...idem pour tous les champs de T1
Me.TXT_Mets.DataBindings.Add("text", dtv_T1, "champ1")
Me.TXT_Mets.DataBindings.Add("text", dtv_T1, "champ2")
'...idem pour tous les champs de T1
MonCm = CType(Me.BindingContext(Me.dtv_T1), CurrencyManager) |
Partager