1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim STRING01 As String = Convert.ToString(DataGridView1.CurrentRow.Cells(0).Value)
Dim STRING02 As String = Convert.ToString(DataGridView1.CurrentRow.Cells(1).Value)
Dim NBINTERV As String = Form2.TextBox5.Text
Dim QTTE As Integer = 1
Dim LIGNE As DataRow
LIGNE = DBGMAODataSet.InterventionConso.NewRow
LIGNE(0) = NBINTERV
LIGNE(1) = STRING01
LIGNE(2) = STRING02
LIGNE(3) = QTTE
DBGMAODataSet.InterventionConso.Rows.Add(LIGNE)
InterventionConsoTableAdapter.Update(DBGMAODataSet)
DBGMAODataSet.InterventionConso.AcceptChanges()
End Sub |
Partager