[a.ahmed]

PHP كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress
    If e.KeyChar <> ChrW(Keys.Enter) Then Return

    Using dp As New OleDb.OleDbDataAdapter("SELECT * FROM [Items] WHERE [ItemCode] = @code", con)
        dp.SelectCommand.Parameters.AddWithValue("@code", TextBox1.Text)
        Dim dt_itm As New DataTable
        If dp.Fill(dt_itm) > 0 Then
            Dim r As DataRow = dt_itm.Rows(0)

            dgv_data.ClearSelection()

            Dim dgvRow As DataGridViewRow = (From x In Me.dgv_data.Rows Where x.Cells(0).Value = r("ItemCode")).SingleOrDefault
            If IsNothing(dgvRow) Then

                dgv_data.Rows.Add(r("ItemCode"), r("ItemName"), r("ItemPrice"), 1)

                dgv_data.FirstDisplayedScrollingRowIndex = dgv_data.Rows.Count - If(dgv_data.AllowUserToAddRows, 2, 1)
                dgv_data.Rows(dgv_data.Rows.Count - If(dgv_data.AllowUserToAddRows, 2, 1)).Selected = True

            Else

                dgvRow.Cells(3).Value += 1

                dgv_data.FirstDisplayedScrollingRowIndex = dgvRow.Index
                dgv_data.Rows(dgvRow.Index).Selected = True

            End If

            TextBox1.Clear()
            TextBox1.Select()

        End If
    End Using

End Sub