1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_csg_Weight.SelectedIndexChanged
'-------------------------------Work on Casing ----------------------------
Call Module_bd_csg.db_csg()
' on recupere les données depuis la Gridbox dans des textbox
vol_int = DataGridView1.Rows(vol_int).Cells(1).Value.ToString
vol_ext = DataGridView1.Rows(vol_ext).Cells(0).Value.ToString
vol_acier = DataGridView1.Rows(vol_acier).Cells(2).Value.ToString
' on affiche les données dans des textboxs et on met la gridbox en visible "false"
TextBox_int_vol_csg.Text = Format((vol_int), ("#.###"))
TextBox_ext_vol_csg.Text = vol_ext
TextBox_steel_vol_csg.Text = vol_acier
End Sub |
Partager