[king2512010]

ده الكود المستخدم للبحث

PHP كود :

Private Sub cmdSearch_Click()
Dim target_name As String
Dim r As Integer

    ' Get the name.
    target_name = InputBox("Name", "Name", "")
    If Len(target_name) = 0 Then Exit Sub

    ' Search for the name, skipping the column heading row.
    target_name = LCase$(target_name)
    For r = 1 To Grid.Rows - 1
        If LCase$(Grid.TextMatrix(r, 0)) = _
            target_name Then
            ' We found the target. Select this row.
            Grid.Row = r
            Grid.RowSel = r
            Grid.Col = 0
            Grid.ColSel = Grid.Cols - 1

            ' Make the row visible.
            Grid.TopRow = r
            Exit Sub
        End If
    Next r

    ' We didn't find it.
    Beep
End Sub

لا ادرى اين المشكلة !!!!!!!!!