指定した列の値が同じ行の2行目以降を空欄にしてDataReportで表示する

解決

みみ 2006-09-05 01:59:59 No: 96482

はじめまして。
指定した列の値が同じ行の2行目以降を空欄にしてDataReportで表示する方法で悩んでいます。
以下のようにするとDBのデータが書き換わってしまいます。
DBのデータを変えずに帳票に表示するときだけ変更したいのですが、ご存知の方はいらっしゃいませんか？よろしくお願いします。
（ADOデータコントロールを使っています）

Dim mID As String
    mID = "**"

    'レコードセットを取得する
    Dim rs As Recordset
    Set rs = Adodc.Recordset

    'レコードを加工しながら最後までループする
    rs.MoveFirst
    Do While Not rs.EOF

        If mID <> Trim(rs.Fields(1).Value) Then
            mID = Trim(rs.Fields(1).Value)
        Else
            rs.Fields(1).Value = " "
        End If

        '次のレコード
        rs.MoveNext

    Loop

Dental 2006-09-05 10:33:20 No: 96483

切断型 Recordset を使うとか。

みみ 2006-09-05 20:43:07 No: 96484

Dentalさん、ありがとうございます。
下記のページを参考にさせていただき、無事データが更新されることなくDataReportの表示を変えることができました。
http://www7.big.or.jp/~pinball/discus/vb/58413.html