01.Private Sub runreport()
02.
03.
04.
05. If cn.State = ConnectionState.Closed Then cn.Open()
06.
07.
08.
09. If Checkday.Checked Then
10. Dim sql As String = "SELECT * FROM F_ree WHERE redate between '" & Format(D1.Value, "yyyy/mm/dd") & "' and '" & Format(D2.Value, "yyyy/mm/dd") & " ORDER BY redate ASC'"
11. Else
12. allday.Checked = True
13.
14. End If
15.
16.
17. Dim adapter As New SqlDataAdapter()
18. Dim dataset As New DataSet()
19. adapter.Fill(dataset, "F_ree")
20. DR = cmd.ExecuteReader
21. Dataallbuy.Rows.Clear()
22.
23. While (DR.Read() = True)
24.
25. Dataallbuy.Rows.Add(DR(0), DR(1), DR(2), DR(3), DR(4))
26. End While
27. cn.Close()
28.
29.
30. End Sub
