В ListView, Как автоматически выбрать определенный элемент путем его автоматического поиска и увеличить количество его подэлементов - PullRequest
0 голосов
/ 17 февраля 2019

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

Windows 7, Visual Basic 2010. Я настраиваю программу меню еды, в которой пользователь выбирает свой заказ, и, если ему нужно несколько количеств, столбец количества увеличивается, но я не знаю, как конкретно и автоматически выбратьпункт и увеличить его количество и цену.Я пробовал этот код, но он слишком специфичен для своей команды, применяется только в одной строке, и в то же время не является точным в выборе правильного элемента, поскольку там много элементов.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
 System.EventArgs) Handles Button1.Click

    Dim lstAttItem As ListViewItem = New ListViewItem(Trim(BM1.Text))
    Dim lvDup As ListViewItem
    For Each lvDup In ListView1.Items
        If UCase(Trim(lvDup.Text)) = UCase(Trim(BM1.Text)) Then

            Dim total As Integer
            Dim finaltotal As Integer
            Dim price As Integer
            Dim totalquantity As Integer
            Dim lvi As New ListViewItem

            For Each lvi In ListView1.Items

                total = 1 + (lvi.SubItems(2).Text)

                price = Val(price1.Text) + (lvi.SubItems(1).Text)

                finaltotal = Val(price1.Text) + Val(amtdue.Text)

                totalquantity = totalquantity + total

                Convert.ToString(finaltotal)
                Convert.ToString(totalquantity)

            Next

            Convert.ToString(total)
            Convert.ToString(price)

            ListView1.Items(0).SubItems(2).Text = total
            ListView1.Items(0).SubItems(1).Text = price

            tq.Text = totalquantity
            amtdue.Text = finaltotal
            Label1.Text = finaltotal
            Exit Sub
        End If
    Next

    Dim sum As Integer
    sum = Val(price1.Text) + Val(amtdue.Text)
    amtdue.Text = sum
    Label1.Text = sum

    Dim lv As New ListViewItem
    lv = ListView1.Items.Add(BM1.Text)
    lv.SubItems.Add(price1.Text)
    lv.SubItems.Add(quantity1.Text)

    Dim lstAttItems As ListViewItem = New ListViewItem(Trim(BM1.Text))
    Dim lvDupe As ListViewItem
    Dim lvii As ListViewItem
    For Each lvDupe In ListView1.Items
        If UCase(Trim(lvDupe.Text)) = UCase(Trim(BM1.Text)) Then

            Dim totalquantity As Integer
            For Each lvii In ListView1.Items
                totalquantity = totalquantity + CStr(lvii.SubItems(2).Text)
            Next
            tq.Text = totalquantity
            Exit Sub
        End If
    Next

End Sub

Там3 столбца: Список заказов, Прайс-лист и Количество.Мне бы хотелось, чтобы команда автоматически искала и выбирала конкретный товар / текст, а также увеличивала свой прайс-лист и количество в зависимости от предпочтений клиентов.Я также хотел бы знать, как удалить заказ, который зависит от количества товаров, а не просто полностью удалить элемент списка.Заранее спасибо!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...