Question

我正在尝试使用a for each语句迭代我创建的字典列表中的所有值。我希望能够打印出所有的价值观。以及调用个人价值观。

 Dim dblExpenses = New Dictionary(Of String, Double)
    dblExpenses.Add("Travel_Days", CDbl(txtTravelDays.Text))
    dblExpenses.Add("Private_Vehicle_Miles", CDbl(txtPrivateVehicleMiles.Text))
    dblExpenses.Add("Airfare", CDbl(txtAirfare.Text))
    dblExpenses.Add("Car_Rental_Fees", CDbl(txtCarRentalFees.Text))
    dblExpenses.Add("Parking_Fees", CDbl(txtParkingFees.Text))
    dblExpenses.Add("Taxi_Charges", CDbl(txtTaxiCharges.Text))
    dblExpenses.Add("Registration_Fees", CDbl(txtRegistationFees.Text))
    dblExpenses.Add("Lodging_Per_Night", CDbl(txtLodgingPerNight.Text))
    dblExpenses.Add("Meals", CDbl(txtMeals.Text))

    For Each item As Double In dblExpenses

    Next

提前感谢您的帮助。我做了一些搜索，但我找不到任何使用每个迭代字典的。

Answer 1

你应该使用

For Each item As KeyValuePair(Of String, Double) In dblExpenses
    'item.Key for key
    'item.Value for value
Next

或者你可以只尝试值。

For Each item As Double In dblExpenses.Values
    'item
Next

我怎样才能遍历字典

1 个答案: