21-11-17, 07:17 AM
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
