JustAnswer のしくみ:
  • 専門家に質問
    知識豊富な専門家があらゆる質問にお答えするために常に待機しています。
  • 専門家が丁寧に対応
    E メールやサイト内オンラインメッセージなど、さまざまな手段で回答を通知。必要に応じてフォローアップの質問をすることもできます。
  • 満足度 100% 保証
    専門家からの回答を確認し評価をすることで、支払うかどうかを決めます。
rushqkに今すぐ質問する
rushqk
rushqk, システムエンジニア
カテゴリ: データベース
満足したユーザー: 1
経験:  AV機器開発設計
60440014
ここに データベース に関する質問を入力してください。
rushqkがオンラインで質問受付中

RSはADODBのレコードセットです。   第1階層 strKey1 = "" strKey2

質問者の質問

'RSはADODBのレコードセットです。

  '第1階層
strKey1 = ""
strKey2 = Rs(0).Value
strText = Rs(1).Value
If Rs(3).Value = 1 Then strText = strconMark & strText
Set nodX = .Nodes.Add(, , "r" & strKey2, strText)←ここのテキストを赤にしたい

  第2階層
  '第2階層用のTableのレコードセット=Rs2としてください。
strKey1 = Rs(0).Value
strKey2 = Rs2(0).Value
strText = rs2(2).Value
If Com_CnvZeroVal(rs2(3).Value) = 1 Then strText = strconMark & strText
Set nodX = .Nodes.Add("r" & strKey1, tvwChild, "r" & strKey2, strText)
                                             ↑
                                 ここのテキストを赤にしたい
投稿: 3 年 前.
カテゴリ: データベース

データベース についての関連する質問