[king2512010]

(09-06-14, 02:46 PM)vbnet كتب : .....

منقول من جزء من برنامج مع تعديل بسيط ليناسب طلبك

كود :

Private Sub Command1_Click()
    With MSFlexGrid1
        Dim row As Integer: For row = 1 To .Rows - 1
            If InStr(.TextMatrix(row, 1), Me.Text1.Text) > 0 Then
                .FocusRect = flexFocusNone
                .SelectionMode = flexSelectionByRow
                .row = row
                .Col = .Cols - 1
                .ColSel = 1
                .TopRow = IIf(row > 1, row - 1, row)
                Exit For
            End If
        Next
    End With
End Sub

.....

الله اكبر ... ماشاء الله
ربنا يزيدك من علمه يارب
ويجعله فى ميزان حسناتك
بصراحة انته إنسان محترم جدا ... الله يخليك
جزاك الله كل الخير