)
В одной форме требуется сделать учет общей цены заказа.
Так как мне надо чтобы продавец в списке видел наименование товара+ его цену, я искал подходящий контрол долго и упорно. Но нифига мне нужного не нашел
Плюнул и решил заюзать обычный листбокс.
Вышеупомянутые поля разделил в нем табуляцией
- Код: Выделить всё
Chr(9)
Так вот насчет расчета цены:
- Код: Выделить всё
With lstOrderProducts
last_row = .ListIndex
.ListIndex = -1
For i = 0 To i = .ListCount
.ListIndex = .ListIndex + 1
aP = Split(.Text, Chr(9))
count = count + Int(aP(2))
Next i
.ListIndex = last_row
End With
txtTotalPrice.Text = count
txtPQuantity.Text = lstOrderProducts.ListCount
Набросал примерный код, но он зараза не пашет
Цикл For крутится только один раз, хоть убей. У меня уже мозги забуксовали
Ткниите пальцем в ошибку, пожалуйста
, объясни, плиз, как добавлять, удалять записи, вытаскивать по индеску содержимое колонок 
не выходит 