→→→DataGridの特定の行にマークをつける

商品コード　単価　チェック
A001           150     ○
B001           100     ○
C001           500

Dim dCol As DataColumn

Dim dSet As DataSet = New DataSet

Dim dAdp As OleDbDataAdapter

Dim ocn As OleDbConnection = New OleDbConnection

ocn.ConnectionString = "Provider～"

dAdp = New OleDbDataAdapter ("SELECT * FROM テスト" , ocn)

dAdp.Fill( dSet, "t_テスト")

dCol = dSet.Tables("t_テスト").Columns.Add("チェック")

dCol.Expression = "IIF(単価<200 , '○' , ' ' )"

DataGrid1.SetDataBinding( dSet , "t_テスト")