TrueDBGridを使って階層表示するには？ (ID:112697)

名前

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

本文

ふむ〜。そうですねぇ(＾＾；)
>DataSouse プロパティとかを使って一気に表示するのではなく、
と書くと DataGrid とかを対象に話をしているように思えますかねぇ。
もともとが、使用するコントロールも仕様も曖昧な質問だから答えも
曖昧になっちゃいますねぇ。
なんのコントロールに1行ずつ追加しようとしたのかは分かりませんが、
最初の質問は『TrueDBGridを使って階層表示』ですし、…とりあえず
レコードセットが用意できれば何とかなりますか？
必要ならローカルで独自のレコードセットを作れば良いと思います。

[VB6.0(sp5)]
Option Explicit

Private Enum LocalRecordsetColumn
    ID
    Namex
    Text
End Enum
Private mLocalRs As ADODB.Recordset

Private Sub Form_Load()
    Dim i As Integer
    Set mLocalRs = New ADODB.Recordset
    
    With mLocalRs.Fields
        Call .Append(LocalRecordsetColumn.ID, adInteger, , adFldIsNullable)
        Call .Append(LocalRecordsetColumn.Namex, adVarChar, 10, adFldIsNullable)
        Call .Append(LocalRecordsetColumn.Text, adBSTR, , adFldIsNullable)
    End With
    
    With mLocalRs
        Call .Open
        For i = 1 To 5
            .AddNew
            .Fields(CStr(LocalRecordsetColumn.ID)) = i
            If i Mod 2 = 0 Then
                .Fields(CStr(LocalRecordsetColumn.Namex)) = "Name" & i \ 2
            End If
            .Fields(CStr(LocalRecordsetColumn.Text)) = "Text" & 2 - i Mod 2
'            .Update
        Next
    End With
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    mLocalRs.Close
    Set mLocalRs = Nothing
End Sub

まぁ、一つ一つ設定するならレコードセット＆グリッドを使う意味があるのか？
ってのはあります。ただ、レコードセットなら .Clone メソッドとかもありますし、
使い方によっては…うまい処理ができるかもしれません。

←解決時は質問者本人がここをチェックしてください。

戻る