salut je sui entraine de faire un programme ki contient "rechercher " button voi la procedure ke jai fé
Private
Sub Button4_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Button4.Click
Dim i
As
Integer
For i = rownumber
To Otable.Rows.Count - 1
If TextBox1.Text = Otable.Rows(i).Item(
"N_intervention")
ThenRemplirchamps(i)
Oligne = Odataset.Tables(0).NewRow
btnnew.Enabled
TrueButton1.Enabled
Truemodification.Enabled
TrueButton3.Enabled
TrueButton4.Enabled
FalseButton2.Enabled
TrueTextBox1.Focus()
Exit
For
ElseIf i = Otable.Rows.Count - 1
ThenMsgBox(
"Pas d'adhérant avec ce code la !§!", MsgBoxStyle.Information,
"dsl")
End
If
Next
End
Sub
mé il marche pa
can you help me