Блог

https://i.stack.imgur.com/NTZa5.jpg

мой код в кнопке добавления

 Dim item() As String = {"Hardisk", "Pen Drive", "Mouse", "Memory", "Keyboard"}
        Dim price() As Decimal = {200.0, 57.0, 45.0, 130.0, 58.0}
        Dim counter As Integer
        Dim items As String
        Dim quantity As String
        Dim findItem As String
        Dim find As Boolean = False

        lblOut.Text = "ITEM" amp; vbTab amp; "QTY" amp; vbTab amp; "PRICE" amp; vbTab amp; "SUBTOTAL" amp; vbNewLine

        items = txtItem.Text
        quantity = txtQuantity.Text
        findItem = items
        itemPrice = subtotal

        For counter = 0 To 4
            If findItem = lblOut.Text(counter) Then
                find = True
            End If
        Next

        lblOut.Text = lblOut.Text amp; items amp; vbTab amp; quantity amp; vbTab amp; itemPrice amp; vbTab amp; subtotal amp; vbNewLine
    End Sub
  

когда я ввожу свой товар в поле «Товар», он должен искать цену в массиве цен и отображаться в области текстового поля для ЦЕНЫ и * с количеством.
затем я могу добавить следующий элемент для новой строки.

проблема, с которой я сталкиваюсь, заключается в том, как получить цену товара, когда я вставляю товар в область товара, система проверяет значение, установленное в коде.

и как перейти к следующей строке, когда я хочу добавить значение now в текстовое поле.