JBTALKS.CC

标题: 会vb6 的高手，来帮忙下~~~ [打印本页]

作者: xiaowei4220 时间: 2013-7-19 12:30 PM
标题: 会vb6 的高手，来帮忙下~~~
我是用 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

帮帮忙~~~感激不尽！！

作者: angwh 时间: 2013-7-19 02:13 PM
好像是这个"放错位罢了

欢迎光临 JBTALKS.CC (https://www.jbtalks.cc/)