1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| RowNumber = 0
While Not ObjetDataTable.Rows(RowNumber).Item("Mec") = mec
RowNumber = RowNumber + 1
End While
ObjetDataRow = ObjetDataSet.Tables("T_calendrier").Rows(RowNumber)
ObjetDataRow("Organisme") = orgNum
If Me.cbFormateurModif.Visible = True Then ObjetDataRow("Formateur") = Me.cbFormateurModif.Text.Substring(0, 6)
If Me.cbJour1Modif.Checked = True Then ObjetDataRow("Date") = Me.dt1Modif.Text
ObjetDataRow("Nombre_jours") = Me.txtNombreJoursModif.Text
ObjetDataRow("Periode") = Me.cbPeriodeModif.Text
ObjetDataRow("Duree") = Me.txtDureeModif.Text
ObjetDataRow("Duree_ht") = Me.txtDureeHTModif.Text
ObjetDataRow("Prix") = Me.txtCoutModif.Text
ObjetDataRow("Frais") = Me.txtFraisModif.Text
ObjetDataRow("Accordee") = Me.cbEtatModif.Text
ObjetDataRow("Annulee") = Me.cbAnnuleeModif.CheckState
If Me.cbEngageeModif.Checked = True Then ObjetDataRow("Engagee") = Date.Today
ObjetDataRow("Faite") = Me.cbFaiteModif.CheckState
ObjetDataRow("DIF") = Me.cbDIFModif.Text
ObjetDataRow("Deductible") = Me.cbDeductibleModif.CheckState
ObjetDataRow("Categorie") = Me.cbCategorieModif.Text
ObjetDataRow("Collaborateur_modif") = Me.lblMec.Text
ObjetDataRow("Time_modif") = Date.Now
ObjetCommandBuilder = New SqlCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Update(ObjetDataSet, "T_calendrier")
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "T_calendrier")
ObjetDataTable = ObjetDataSet.Tables("T_calendrier") |
Partager