①Hashテーブル(dictionary型)を.Addではなく1文で宣言する方法。
Private等の共通定義で使える。
'-----------------------------------
Private dicstrKbn As New System.Collections.Generic.Dictionary(Of String, String)() From {
{"社員1", "Aさん"},
{"社員2", "Bさん"},
{"社員3", "Cさん"},
{"社員4", "Dさん"}
}
'-----------------------------------
'-----------------------------------
Dim dicstrKbn As New System.Collections.Generic.Dictionary(Of String, String)
For i As Integer = 0 To res.MainTable.Rows.Count - 1
dicstrKbn.Add("社員1","Aさん") '←ここを動的に
Next
'-----------------------------------
③使い方は↓
'-----------------------------------
If dicstrKbn.ContainsKey("社員1") Then
messagebox.show(dicstrKbn("社員1").ToString.Trim)
End If
'-----------------------------------
0 件のコメント:
コメントを投稿