21-11-17, 07:44 AM
PHP كود :
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
dgv_data.AllowUserToAddRows = False
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress
Select Case e.KeyChar
Case ChrW(Keys.Enter)
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 - 1
dgv_data.Rows(dgv_data.Rows.Count - 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
Case "+"
Dim dgvRow As DataGridViewRow = (From x In Me.dgv_data.Rows).LastOrDefault
If Not IsNothing(dgvRow) Then
dgvRow.Cells(3).Value += 1
End If
e.Handled = True
Case "-"
Dim dgvRow As DataGridViewRow = (From x In Me.dgv_data.Rows).LastOrDefault
If Not IsNothing(dgvRow) Then
dgvRow.Cells(3).Value -= 1
If dgvRow.Cells(3).Value = 0 Then Me.dgv_data.Rows.RemoveAt(dgvRow.Index)
End If
e.Handled = True
End Select
End Sub
