[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.Rows.Add(r("ItemCode"), r("ItemName"), r("ItemPrice"))
            
            dgv_data.FirstDisplayedScrollingRowIndex = dgv_data.Rows.Count - 1
            
            TextBox1.Clear()
            TextBox1.Select()

        End If
    End Using

End Sub