Me.SqlConnection1.ConnectionString = dbconn.ConnectionString
Me.SqlDataAdapter1.SelectCommand.CommandText = "Select * From repSMI where Date Between '" & formSMI.DateTimePicker1.Value & "' and '" & formSMI.DateTimePicker2.Value & "'"
Dim DsetSMI1 As New DataSet
Me.DsetSMI1.Clear()
Me.SqlDataAdapter1.Fill(Me.DsetSMI1, "repSMI")
Dim x As New repSMI
x.SetDataSource(Me.DsetSMI1)
Me.CrystalReportViewer1.ReportSource = x
Me.CrystalReportViewer1.Refresh()
对此有什么可能的解决方法?谢谢!