Я настраиваю программу меню еды.У меня есть кнопка, которая отображает свой собственный порядок в виде списка, но так как заказов много, я не знаю, как конкретно выбрать определенный элемент автоматически и выполнять операции с одной и той же кнопкой.
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 столбца: Список заказов, Прайс-лист и Количество.Мне бы хотелось, чтобы команда автоматически искала и выбирала конкретный товар / текст, а также увеличивала свой прайс-лист и количество в зависимости от предпочтений клиентов.Я также хотел бы знать, как удалить заказ, который зависит от количества товаров, а не просто полностью удалить элемент списка.Заранее спасибо!