Question

我有一个问题，我正在制作我的项目，我的问题是如果我在不同的时间订购它，我不能让我的同一订单在同一条线上。例如我订购了一个汉堡和奶酪，然后我再次订购它，我想在我的清单中发生的是他们只是添加我订购的数量而不是再次写下来。我不知道我应该写什么代码，我尝试了不同的代码，但它不起作用所以我删除它。原谅我的英语。谢谢。

These is what i want to avoid.

Answer 1

你没有发布任何代码!!!

Option Explicit

Sub UpdateProduct(sProduct As String, ByVal Qty As Long, ByVal Amnt As Currency)
Dim i As Long
i = GetStringIndex(List1, sProduct)

If (i = -1) Then ' there is no match?
  List1.AddItem sProduct
  List2.AddItem Str(Qty)
  List3.AddItem Str(Amnt)
Else
  List2.List(i) = Val(List2.List(i)) + Qty
  List3.List(i) = Val(List3.List(i)) + Amnt
End If
End Sub
Function GetStringIndex(lst As ListBox, ByVal sItem As String) As Long
    For GetStringIndex = 0 To lst.ListCount - 1
        If lst.List(GetStringIndex) = sItem Then Exit Function
    Next
    GetStringIndex = -1
End Function

VB 6列表框添加相同的数据

1 个答案: