条件指定に関して (ID:148012)

名前

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

本文 shu様、ご回答ありがとうございます。 教えて頂いた内容で、まずは簡単なロジックで動くように以下のように記述しました。 しかし、色の変化が見られず、、、、 私の記述がおかしいかと思われますが、何が間違っているでしょうか、、、 教えて下さい。 《記述内容》 dtTable.Columns.Add("背景色", GetType(Color)) adp.Fill(dtSet, "仕様書_T") Dim ZZ_FLAG As Integer ZZ_FLAG = 0 For Each row As DataRow In dtTable.Rows Select Case True Case ZZ_FLAG = 0 row("背景色") = Color.Red ← 全ての行で色が変わるように設定 End Select Next TXT_TEST.DataBindings.Add("BackColor", "仕様書_T", "背景色") ← TESTテキストの色を変えたい よろしくお願いします。