如何在组合框中使用价格执行总计计算？

2024-05-18 • 问答

我正在尝试在Visual Studio上制作项目。

我在组合框中有以下数据，我想知道如何将价格（CStr）乘以用户选择的天数，从而在另一个文本框中显示总数使用计算按钮

{cmbPedigreeDog.Items.Add("African Hairless" & CStr(1.14))
        cmbPedigreeDog.Items.Add("Boxer" & CStr(0.86))
        cmbPedigreeDog.Items.Add("Chihuahua" & CStr(1.83))
        cmbPedigreeDog.Items.Add("Dalmation" & CStr(0.65))
        cmbPedigreeDog.Items.Add("Eskimo Dog" & CStr(1.14))
        cmbPedigreeDog.Items.Add("Farm Collie" & CStr(0.95))
        cmbPedigreeDog.Items.Add("GreyHound" & CStr(1.99))
        cmbPedigreeDog.Items.Add("Husky" & CStr(1.85))
        cmbPedigreeDog.Items.Add("Irish Setter" & CStr(0.65))
        cmbPedigreeDog.Items.Add("Jack Russell Terrier" & CStr(1.77))
        cmbPedigreeDog.Items.Add("King Charles Spaniel" & CStr(1.02))
        cmbPedigreeDog.Items.Add("Labrador Retreiver" & CStr(1.74))
        cmbPedigreeDog.Items.Add("Maltese" & CStr(1.47))
        cmbPedigreeDog.Items.Add("Pug" & CStr(1.31))
        cmbPedigreeDog.Items.Add("Rottweiler" & CStr(2.17))
        cmbPedigreeDog.Items.Add("St bernard" & CStr(1.63))
        cmbPedigreeDog.Items.Add("Tibetan Mastiff" & CStr(1.15))
        cmbPedigreeDog.Items.Add("Working Sheep Dog" & CStr(0.75))
        cmbPedigreeDog.Items.Add("Yorkshire Terrier" & CStr(0.88))
        cmbPedigreeDog.Items.Add("Other" & CStr(1.22))}

这不是最好的方法，它要求组合框中的所有字符串都具有相同的模式，并且分隔符的数量相同。

示例：如果您使用"Boxer" & CStr(0.86)之类的符号代替"Boxer|" & CStr(0.86)（仅添加一个|符号），则可以像这样将字符串拆分回去。

line = cmbPedigreeDog.Value
price = CDbl(Split(line,"|")(1))

以及一些说明：

每行文本都是一个符号容器。每个都可以使用一些定界符拆分为数组。因此，行price = CDbl(Split(line,"|")(1))也可以这样写：

Dim someArray()
line = "Boxer|" & CStr(0.86)

someArray = Split(line,"|")

' after splitting you have two items in array one is "Boxer" and another is "0.86" (which is text)
' if you follow the pattern in each of your combobox options the price always will be the second one
' so you may refer to second item in array,which is number 1

Price = CDbl(someArray(1))

更新

另一种方式，根据注释中的请求。使用两列组合框。要填充组合框，您必须执行以下操作

1-转到ComboBox的属性，并将“ ColumnCount”值设置为2（请参见here的用法）。

2-这取决于您-您可以在工作表上使用价格绑定，就像主题我在p.1中给出了链接一样，或将代码中的每一行更改为此模式：

With cmbPedigreeDog
    .AddItem ("Boxer")
    .column(1,cbx.ListCount - 1) = 0.86
    .AddItem ("Chihuahua")
    .column(1,cbx.ListCount - 1) = 1.83
    ' and so on
End With

3-要获取所选商品的价格，请使用以下代码

If cmbPedigreeDog.ListIndex >= 0 Then 
    price = cmbPedigreeDog.List(cbx.ListIndex,1) 
Else
    MsgBox "item is not chosen"
End If

更新1

此答案适用于VBA，不适用于Visual Basic WinForm应用程序。为此，请尝试寻找“多列组合框”之类的解决方案

如何在组合框中使用价格执行总计计算？

boycool2009 回答：如何在组合框中使用价格执行总计计算？

大家都在问