1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Sub RG_SelAction_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RG_SelAction.SelectedIndexChanged
'affichage table1
If Me.RG_SelAction.SelectedIndex = 0 Then
Me.Grid_SelGamme.DataSource = Me.GammesEnEditionBindingSource
Me.GammesEnEditionTableAdapter.Fill(Me.BLOOMINGDataSet.GammesEnEdition)
Me.Refresh()
Me.Grid_SelGamme.RefreshDataSource()
'affichage table2
ElseIf Me.RG_SelAction.SelectedIndex = 1 Then
Me.Grid_SelGamme.DataSource = Me.GammeEnModificationNonApprouveeBindingSource
Me.GammeEnModificationNonApprouveeTableAdapter.Fill(Me.BLOOMINGDataSet.GammeEnModificationNonApprouvee)
Me.Refresh()
Me.Grid_SelGamme.RefreshDataSource()
'affichage table3
ElseIf Me.RG_SelAction.SelectedIndex = 2 Then
Me.Grid_SelGamme.DataSource = Me.GammesEnModificationApprouveesBindingSource
Me.GammesEnModificationApprouveesTableAdapter.Fill(Me.BLOOMINGDataSet.GammesEnModificationApprouvees)
Me.Refresh()
Me.Grid_SelGamme.RefreshDataSource()
End If
End Sub |
Partager