'northwindDataSet.Customers' のテーブルにデータをロードします。 Me.customersTableAdapter.Fill(Me.northwindDataSet.Customers) For i As Integer = 0 To Me.northwindDataSet.Tables("Customers").Rows.Count- 1 Dim row As DataRow = Me.northwindDataSet.Tables("Customers").Rows(i) ' この行のフィールド値を個別に処理します。 Dim customerID As String = TryCast(row("CustomerID"), String) Dim companyName As String = TryCast(row("CompanyName"), String) ' 項目を ultraListView に追加します Me.ultraListView1.Items.Add(customerID, companyName) ' 項目の拡張選択を許可します Me.ultraListView1.ItemSettings.SelectionType = SelectionType.Extended '投げ縄選択を実行するために LeftMouseButton を設定します ultraListView1.ItemSettings.LassoSelectMode= LassoSelectMode.LeftMouseButton Next