listviewに追加した項目を表示するには？ (ID:116139)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 どらえも〜ん… というわけでお初です。よろしくお願いします。 DBの内容をlistview(.View = Details)を使って、表示しようとしているのですが、現在は空欄の行が追加した項目の個数だけ表示されてしまいます。 ただ、listview自体を変数として宣言し、同じようにlistviewにlistviewitemを追加して、これをformに貼り付けると、ちゃんとDBの内容が表示されていることから、listviewへの項目の追加についてはちゃんとできているような気がします。 一応ソースをのっけておきます。 Private Sub btnSqlSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSqlSelect.Click Dim rdr As OleDbDataReader Dim lsv_item As New ListViewItem Dim i, j As Long 'formに既にlsv_1というlistviewが用意してあります。 me.lsv_1.Items.Clear() 'sql文を実行して、結果を第二引数の「OleDbDataReader」に格納する関数です。 Sql_Exec("select * from Company",rdr) If rdr.HasRows Then rdr.Read() me.lsv_1.Columns.Add("項番", -2, HorizontalAlignment.Left) For i = 0 To rdr.FieldCount - 1 me.lsv_1.Columns.Add(rdr.GetName(i).ToString(), -2, HorizontalAlignment.Left) Next i Do lsv_item = New ListViewItem("item" & CStr(j), 0) For i = 0 To rdr.FieldCount - 1 If IsDBNull(rdr.GetValue(i)) Then lsv_item.SubItems.Add("NULL") Else lsv_item.SubItems.Add(CStr(rdr.GetValue(i))) End If Next i me.lsv_1.Items.Add(lsv_item) j = j + 1 Loop While rdr.Read() Else MsgBox("レコードが選択されませんでした。") End If rdr.Close() End Sub どうか、よろしくお願いします。