度々の質問で 申し訳ないのですが 宜しくお願いします。
VB2008 Express Edition、Access2007を使っています
Form1にButtonを１つ、DateTimePickerを２つ、CheckBox1(魚）、
CheckBox2（卵）、DataGridViewを配置しまして
データベースの内容がこのような時に
日付 魚 卵
2008/11/18 100 50
2008/11/19 120 60
2008/11/20 130 70
2008/11/21 140 80
日付を選んだ後に、表示させたい項目のCheckBoxに印を付け、ボタンを押すとDataGridViewに内容を表示させようとしてるのですが、1つだけチェックを入れて表示する事は出来たのですが、２つチェックを入れた時のDataGridViewへの表示の仕方が解りません。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Private Table As New DataTable
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:¥a.mdb")
Dim time As String
Dim time1 As String
Dim Adapter As New OleDbDataAdapter(tb)
Table.Clear()
If CheckBox1.Checked = True Then
Dim pp As OleDbCommand = cn.CreateCommand
Dim oo As OleDbCommand = cn.CreateCommand
time1 = DateTimePicker2.Value.Date.ToShortDateString
time = DateTimePicker1.Value.Date.ToShortDateString
pp.CommandText = "SELECT main_id FROM Main WHERE 日時=#" & time & "#"
oo.CommandText = "SELECT main_id FROM Main WHERE 日時=#" & time1 & "#"
Dim pp1 As Integer
Dim oo1 As Integer
cn.Open()
pp1 = pp.ExecuteScalar
oo1 = oo.ExecuteScalar
cn.Close()
For o As Integer = pp1 To oo1
tb.CommandText = "SELECT 日時,魚 FROM Main WHERE main_id= " & o & ""
Adapter.Fill(Table)
DataGridView1.DataSource = Table
Next o
End If
End Sub
このような感じでCheckBox1にチェックをして、ボタンを押すと選んだ日付と魚の数が表示されたのですが、２つ同時にチェックを入れた時のプログラムの書き方が解りません。
どうかご教授のほど宜しくお願いします。