Me.TextBox4.Text = Me.DateTimePicker1.Value.ToShortDateString Dim Source As New BindingSource() Source.DataSource = Me.DataGridView1.DataSource Source.Filter "Date '" & TextBox4.Text & "'"
For Each row As DataGridViewRow In DataGridView1.SelectedRows DataGridView1.Rows.Remove(row) Me.TableAdapter1.Update(BasededonnéDataSet.table) Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiontexte = Me.DateTimePicker1.Value.ToShortDateString
Source.Filter "Date '" & Texte & "'"
Source.Filter "Date 'Me.DateTimePicker1.Value.ToShortDateString'"
strR = InputBox("entrer votre valeur:") If (strR <> Valeur) Then For Each row As DataGridViewRow In DataGridView.Rows Valeur = CStr(row.Cells(0).Value) Next MsgBox("cette valeur n'existe pas")