VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2004/10/21(Thu) 17:58
投稿者： NM
ＵＲＬ：
タイトル： ListViewのデータ表示について

こんにちは。
お世話になります。

既存のエクセルファイルを開いてデータを読み出し、ListViewに表示する時に
文字列のセルで[NULL]が返ってくるので、表示されません。
表示したい内容に数値データや文字列データなどが混在する場合、
どうしたらよいでしょうか？ご存知の方いらっしゃいましたら、ご教授願います。
よろしくお願いします。

↓行っている処理です。
Public Sub data_display()
    Dim DB As Database
    Dim RS As Recordset
    Dim FILE As String
    Dim i As Integer

    FILE = "Excel 8.0;DATABASE=" & "C:\test\sample.xls"
    Set DB = OpenDatabase("C:\test\sample.xls", False, False, FILE)
    Set RS = DB.OpenRecordset("Sheet1$", dbOpenTable)

    ListView1.ListItems.Clear
    ListView1.ColumnHeaders(1).Width = 0
    ListView1.ColumnHeaders(2).Width = 700
    ListView1.ColumnHeaders(3).Width = 4500
    ListView1.ColumnHeaders(4).Width = 1500
    ListView1.ColumnHeaders(5).Width = 1500
    
    i = 1
    Do While Not RS.EOF
        ListView1.ListItems.Add , , Str(i)
        ListView1.ListItems(i).SubItems(1) = RS![no]
        ListView1.ListItems(i).SubItems(2) = RS![name]
        ListView1.ListItems(i).SubItems(3) = RS![value]
        ListView1.ListItems(i).SubItems(4) = RS![remark]
        RS.MoveNext
        i = i + 1
    Loop

    RS.Close
    DB.Close
    Set DB = Nothing
    Set RS = Nothing
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -