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

名前

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

本文

環境：Visual Basic 2008

以下のように画面のLoad時にデータテーブルをバインドし、それを表示させるような
事をしていますが、その際に、データベースから読み出してきたデータの内容によって、
表示させたテキストの背景の色を変化させたいと考えています。

尚、DataRepeterを使う為にバインドさせています。

単純にテキストの背景の色を変更する事は簡単ですが、読み込んだデータをバインドさせた
後に条件を付けるという事は可能なのでしょうか？

やりたい事としては、読み込んだ管理番号が、0001番だったら、表示させているテキスト
の色を青くしたい  という事です。

何度も質問して申し訳ありません。

教えて頂きたいと思います。

よろしくお願いします。

《現在の記述内容》

画面Load時の処理

'データセットにテーブルを追加する
dtTable = dtSet.Tables.Add("仕様書_T")

'テーブルにフィールドを追加する
'.Add("フィールド名", フィールドの型)で追加します
dtTable.Columns.Add("管理番号", Type.GetType("System.String"))
dtTable.Columns.Add("受付日チェック", Type.GetType("System.Boolean"))
dtTable.Columns.Add("返却日チェック", Type.GetType("System.Boolean"))

Dim Connection As New OracleConnection
Dim Command As New OracleCommand

Try

'Oracleへのコネクションの確立
    Connection.ConnectionString = "User Id=XXXXXX; Password=999999; Data Source=XE"

'オープン  
    'Connection.Open()

'コマンド作成  
    Command.Connection = Connection

Try

Dim Select_SQL As String

'SQL文作成
        Select_SQL = "select 管理番号,受付日チェック,返却日チェック from T_仕様書"
 
       Dim adp As New OracleDataAdapter(Select_SQL, Connection)

dtSet.Clear()

adp.Fill(dtSet, "仕様書_T")

TXT_管理番号.DataBindings.Add("Text", "仕様書_T", "管理番号")
 
        CHK_G受取日.DataBindings.Add("Checked", "仕様書_T", "受付日チェック")
        CHK_G返却日.DataBindings.Add("Checked", "仕様書_T", "返却日チェック")

'データソースを連結する
        BindingSource1.DataSource = dtSet
        BindingSource1.DataMember = "仕様書_T"

DP_仕様書.DataMember = BindingSource1.DataMember
        DP_仕様書.DataSource = BindingSource1.DataSource

Catch ex As Exception
        ' 例外が発生した時の処理
        MsgBox(ex.Message)
    End Try
Catch ex As Exception
  ' 例外が発生した時の処理
  MsgBox(ex.Message)
End Try

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

戻る