Protected Function Fld(ByVal pos As Integer, ByVal mfld As String) As String
Dim i, j, k As Integer
For i = 1 To pos
k = j + 1
j = InStr(k, mfld, Chr(13))
j = IIf(j = 0, Len(mfld) + 1, j)
Next
Return Mid(mfld, k, j - k)
End Function
Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Label1.Text = Fld(1, DropDownList1.SelectedItem.Value)
Label2.Text = Fld(2, DropDownList1.SelectedItem.Value)
End Sub
IEnumerableを、すなわちリスト(工assの)コレクションのいくつかの並べ替えとして、リストボックスにデータバインドされるだろうそれとも、使用することができます:
Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim Fld As Array
Fld = DropDownList1.SelectedItem.Value.Split(Chr(13))
Label1.Text = Fld(0)
Label2.Text = Fld(1)
End Sub
あなたはまた、DataValueFieldに多くの列を持つことができます。