xiaowei4220
2013-7-19 12:30 PM
我是用 2个dtpicker 和 1个command button ,以日期来显示报告
例如 ：from 1/7/2013 to 2/7/2013 然后按 show button ,可是出现错误
错误时：run-time error '13':
type mismatch
code:
Private Sub cmdshow_Click()
Dim start1 As Date
Dim start2 As Date
Dim lvSQL As String
start1 = Format(DTPickerStart.Value, "dd MMM yyyy")
start2 = Format(DTPickerEnd.Value, "dd MMM yyyy")
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
lvSQL = "SELECT * FROM CustomerData where Date BETWEEN "" & start1 &" And " & start2 & "
rs.Open lvSQL
Set AllCusRpt.DataSource = rs
AllCusRpt.Show
End Sub
红色字那排debug
帮帮忙~~~感激不尽！！
例如 ：from 1/7/2013 to 2/7/2013 然后按 show button ,可是出现错误
错误时：run-time error '13':
type mismatch
code:
Private Sub cmdshow_Click()
Dim start1 As Date
Dim start2 As Date
Dim lvSQL As String
start1 = Format(DTPickerStart.Value, "dd MMM yyyy")
start2 = Format(DTPickerEnd.Value, "dd MMM yyyy")
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
lvSQL = "SELECT * FROM CustomerData where Date BETWEEN "" & start1 &" And " & start2 & "
rs.Open lvSQL
Set AllCusRpt.DataSource = rs
AllCusRpt.Show
End Sub
红色字那排debug
帮帮忙~~~感激不尽！！
