データに変数を代入する

Question

data（0）= X1であるかどうかを確認しようとしていますが、data（1）= Y1の値を文字列（MyString1）に代入したいと考えています。私は後でMyString1を呼び出すことができ、MyString1の値はY1に対応します。そして、私は彼の手順を繰り返すことができる必要があります：

データは（0）、次にX2をIF =（1）= Y2 MyString2にというように割り当てられるはずのデータ。

私は、彼らはX1とY1よりも固有のもので、データを単純化してきました。

以下に自分のコードを追加しました。

Dim cmd As Odbc.OdbcCommand = New Odbc.OdbcCommand(mystring, conn) 
Dim reader As Odbc.OdbcDataReader 
Dim columnCount As Integer 
Dim MyString1 As String 
Dim data As Object() = New Object(10) {} 
conn.Open() 
MsgBox("Connection Established!") 
reader = cmd.ExecuteReader() 
While reader.Read() 
    columnCount = reader.GetValues(data) 

    If data(0) = "X1" Then 
     MyString1 = data(1).ToString() 
    End If 

    Debug.WriteLine(data(0)) 
    Debug.WriteLine(data(1)) 
     My.Forms.Form2.TypeTextBox.Text = MyString1 
    End While 
    conn.Close() 

これは意味があると思います。

EDITは：私の問題は、私は30ブロックの場合のように持っているつもりだということです。このように：

If data(0) = "X1" Then 
     MyString1 = data(1).ToString() 
    End If 

私はこれをよりスマートに行うことが可能かどうか疑問に思っていましたか？私は完全にあなたが探しているものを理解し、単純な「If...Then...(Else)」のためのケースのように聞こえる場合

Answer 1

イムかなり確実ではありません。 あなたの説明から私は最初にY2をデータ（1）に保存する必要はないと思う。

If data(0) = X1 Then 
    myString = Y2 
End If 

EDIT： ... [OK]を、今私は理解して...あなたは、このようSTH行うことができますか？

Dim i As Integer 
Dim data As Object() = New Object(30) {} 
Dim myString As String() = New String(30) {} 
For i = 0 To 30 
    If data(i) = ("X" + &i+1) Then 
    myString(i) = data(i+1).ToString() 
    End If 
Next i