Arrays 将二维数组中的数据显示到组合框和文本框中
我在vb.net中有一个二维项目和价格数组:Arrays 将二维数组中的数据显示到组合框和文本框中,arrays,vb.net,combobox,Arrays,Vb.net,Combobox,我在vb.net中有一个二维项目和价格数组: Dim items(,) As String = {{"Chicken Sand", "9000"}, {"Roast Beef Sand", "13500"}, {"Salmon Sand", "13500"}, {"Tuna Sand", "11000"}, {"Halloumi Sandwich", "7000"}, {"Ham & Cheese Sand", "80
Dim items(,) As String = {{"Chicken Sand", "9000"}, {"Roast Beef Sand", "13500"},
{"Salmon Sand", "13500"}, {"Tuna Sand", "11000"},
{"Halloumi Sandwich", "7000"}, {"Ham & Cheese Sand", "8000"},
{"Water", "1500"}, {"Soft Drink", "2500"},
{"Fresh Lemonade", "3000"}, {"Fresh Orange", "3500"}}
我想用这个数组中的项目填充一个组合框
当选择组合框中的每个项目时,我希望价格将显示在特定于价格的文本框中。
我达到:
For row = 0 To items.GetUpperBound(0)
cbitem.Items.Add(items(row, 0))
Next`
这是一个家庭作业,我们被要求用二维数组填充组合框中的项目
与使用数据源相比,这不是一个好方法:
实际上,您不能将数组放入组合框
,因为项
是一个集合,而不是多维数组。但您可以将其用作查找所选内容。确保阵列具有窗体级别的作用域:
Option Strict On
Public Class MenuFrm
Private items(,) As String = {{"Chicken Sand", "9000"}, {"Roast Beef Sand", "13500"},
{"Salmon Sand", "13500"}, {"Tuna Sand", "11000"},
{"Halloumi Sandwich", "7000"}, {"Ham & Cheese Sand", "8000"},
{"Water", "1500"}, {"Soft Drink", "2500"},
{"Fresh Lemonade", "3000"}, {"Fresh Orange", "3500"}}
稍后,可能在表单加载中,用以下名称填写cbo:
For row = 0 To items.GetUpperBound(0)
cbox1.Items.Add(items(row, 0))
Next
现在,当他们挑选某样东西时,查看字符串价格:
Private Sub cbox1_SelectedIndexChanged1(sender As Object,
e As EventArgs) Handles cbox1.SelectedIndexChanged
If cbox1.SelectedIndex < 0 Then Return
Dim price = Convert.ToDecimal(items(cbox1.SelectedIndex, 1))
End Sub
Private Sub cbox1\u选择了dexchanged1(发送方作为对象,
e作为EventArgs)处理cbox1.SelectedIndexChanged
如果cbox1.SelectedIndex<0,则返回
Dim price=Convert.ToDecimal(项目(cbox1.SelectedIndex,1))
端接头
一个合适的数据源
会将价格存储为一个数字,将价格与菜单项一起保存,并使其在SelectedValueChanged
中可用
这是一个家庭作业,我们被要求用二维数组用项目填充组合框
与使用数据源相比,这不是一个好方法:
实际上,您不能将数组放入组合框
,因为项
是一个集合,而不是多维数组。但您可以将其用作查找所选内容。确保阵列具有窗体级别的作用域:
Option Strict On
Public Class MenuFrm
Private items(,) As String = {{"Chicken Sand", "9000"}, {"Roast Beef Sand", "13500"},
{"Salmon Sand", "13500"}, {"Tuna Sand", "11000"},
{"Halloumi Sandwich", "7000"}, {"Ham & Cheese Sand", "8000"},
{"Water", "1500"}, {"Soft Drink", "2500"},
{"Fresh Lemonade", "3000"}, {"Fresh Orange", "3500"}}
稍后,可能在表单加载中,用以下名称填写cbo:
For row = 0 To items.GetUpperBound(0)
cbox1.Items.Add(items(row, 0))
Next
现在,当他们挑选某样东西时,查看字符串价格:
Private Sub cbox1_SelectedIndexChanged1(sender As Object,
e As EventArgs) Handles cbox1.SelectedIndexChanged
If cbox1.SelectedIndex < 0 Then Return
Dim price = Convert.ToDecimal(items(cbox1.SelectedIndex, 1))
End Sub
Private Sub cbox1\u选择了dexchanged1(发送方作为对象,
e作为EventArgs)处理cbox1.SelectedIndexChanged
如果cbox1.SelectedIndex<0,则返回
Dim price=Convert.ToDecimal(项目(cbox1.SelectedIndex,1))
端接头
一个合适的数据源
会将价格存储为一个数字,将价格与菜单项一起保存,并使其在SelectedValueChanged
中可用