Visual Basic

Andraw Tang wrote:

These terms are very confused confusing.

Private Sub searchForm_FindNext(ByVal SearchText As String, ByVal MatchCase As Boolean, ByVal MatchExact As Boolean) Handles searchForm.FindNext
        If (DataResults.RowCount > 0) AndAlso (SearchText.Length > 0) Then
            Dim offset As Integer = 1           'Use 1 for when searching next, or set to 0 when wrapping to first row
            Dim rowIndex As Integer

            If DataResults.CurrentRow.Index = DataResults.Rows.Count - 1 Then
                'You are on the last row
                If MessageBox.Show("You are on the last row, go back to the start?", "Find In Results", MessageBoxButtons.YesNo) = vbYes Then
                    DataResults.Rows.Item(0).Selected = True
                    BindingNavigatorMoveFirstItem.PerformClick()
                    offset = 0
                Else
                    Exit Sub
                End If
            End If

            For rowIndex = DataResults.CurrentRow.Index + offset To DataResults.Rows.Count - 1

                For Each cell As DataGridViewCell In DataResults.Rows.Item(rowIndex).Cells
                    If cell.ValueType.Equals(GetType(String)) Then

                        If MatchCase AndAlso MatchExact Then
                            If cell.Value.ToString.Equals(SearchText) Then
                                FindNextMatched(rowIndex)
                                Exit Sub
                            End If
                        ElseIf MatchCase Then
                            If cell.Value.ToString.Contains(SearchText) Then
                                FindNextMatched(rowIndex)
                                Exit Sub
                            End If

                        ElseIf MatchExact Then
                            If cell.Value.ToString.ToUpper.Equals(SearchText.ToUpper) Then
                                FindNextMatched(rowIndex)
                                Exit Sub
                            End If
                        Else
                            If cell.Value.ToString.ToUpper.Contains(SearchText.ToUpper) Then
                                FindNextMatched(rowIndex)
                                Exit Sub
                            End If
                        End If

                    End If
                Next

                If rowIndex = DataResults.Rows.Count - 1 Then
                    If MessageBox.Show("End of results reached, do you want to search from the start again?", "End of Results Reached", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                        rowIndex = 0
                    End If
                End If
            Next
        End If
    End Sub

Public Class Form1

    Private _ProductList As List(Of Product) = New List(Of Product)

    Private Class Products
        Private _ProductList As List(Of Product)

        Public Sub AddProduct(ByVal NewProduct As Product)
            _ProductList.Add(NewProduct)
        End Sub

    End Class

    Private Class Product
        Private _ProductID As String
        Private _Price As Double

        Public Sub New(ByVal ProductID As String, ByVal Price As Double)
            _ProductID = ProductID
            _Price = Price
        End Sub

        Public ReadOnly Property ProductID() As String
            Get
                Return _ProductID
            End Get
        End Property

        Public ReadOnly Property Price() As Double
            Get
                Return _Price
            End Get
        End Property

    End Class

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        _ProductList.Add(New Product("Product1", 100))
        _ProductList.Add(New Product("Product2", 200))
        _ProductList.Add(New Product("Product3", 300))
        _ProductList.Add(New Product("Product4", 400))
        _ProductList.Add(New Product("Product5", 500))

        TheDGV.DataSource = _ProductList

    End Sub

    Private Sub TheDGV_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles TheDGV.CellClick
        'Use this if you just want to transfer the value when the cell is clicked
        TextBox1.Text = TheDGV.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString()
    End Sub

    Private Sub TheDGV_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles TheDGV.CellContentClick
        'Use this if you want it to transfer the value when the actual text within the cell is clicked
        TextBox1.Text = TheDGV.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString()

    End Sub
End Class

For v = 0 To DataGridView1.Rows.Count - 1
   id = DataGridView1.Rows(v).Cells(0).value
   'Do your thing'
Next v

zafax_ wrote:

the code is working fine