1 2 3 4 5 6 7
| Dim b As Integer
Dim i As Integer = Me.DataGridView1.Rows.Count - 2
For b = 0 To i
cmd1 = New SqlCommand("update DET_DEVIS set DET_DEV_REF='" & Me.DataGridView1.Rows(b).Cells("DET_DEV_REF").Value & "',DET_DEV_DESG='" & DataGridView1.Rows(b).Cells("DET_DEV_DESG").Value & "',DET_DEV_QTE=" & Val(DataGridView1.Rows(b).Cells("DET_DEV_QTE").Value) & ",DET_DEV_PUHT=" & Val(DataGridView1.Rows(b).Cells("DET_DEV_PUHT").Value) & ",DET_DEV_REMISE='" & DataGridView1.Rows(b).Cells("DET_DEV_REMISE").Value & "',DET_DEV_PUNET=" & Val(DataGridView1.Rows(b).Cells("DET_DEV_PUNET").Value) & ",DET_DEV_MONT=" & Val(DataGridView1.Rows(b).Cells("DET_DEV_MONT").Value) & ",DET_DEV_DEL=" & Val(DataGridView1.Rows(b).Cells("DET_DEV_DEL").Value) & " where DEV_NUM=" & Me.TXT_NUMDEVIS.Text & "", con)
cmd1.ExecuteNonQuery()
Next |