vb.net 在枚举数据表时使用字符串访问 Dim

问题描述

我试图在遍历数据表时更新变量 如果我想更新标签，我可以使用 Findcontrol，但如何为 Dim 更新？

    Dim test1 As String = ""
    Dim test2 As String = ""
    Dim test3 As String = ""

    Dim int As Integer = 1

    Do Until int = 4
          "Test" & int = "Value"

           int += 1
    Loop

解决方法

只需使用像 array 或列表这样的集合：

Dim testCollection(3) As String
For i As Int32 = 0 To 3
    testCollection(i) = "Value" & i
Next

现在您有一个 String()，其中包含 4 个可以通过索引访问的元素，例如：

Dim test1 As String = testCollection(0) ' "Value0"

如果您实际上不想通过数字而是通过名称访问它们，则应将它们存储在 Dictionary(Of String,String) 中。以下是带有您评论姓名的示例：

Dim dict = New Dictionary(Of String,String) From {{"db_ma_vsYear",""},{"db_en_vsYear",""}}

现在您可以按名称访问和修改它：

dict("db_ma_vsYear") = "New Value"
Dim db_ma_vsYear As String = dict("db_ma_vsYear") ' New Value