江湖救急，在线急等

wxhfi 2003-10-22 04:54:56

请帮看下面的代码，为什么单击该按钮后显示“未找到datafield '2003-10-22'(查询的最后日期)”的错误信息？？
Private Sub Command2_Click()
Dim k As Integer
Dim i As Integer
Dim j As Integer
Dim n As String '年
Dim y As String '月
Dim r As String '日
Dim rq As String '日期

n = CStr(Year(Date))
y = CStr(Month(Date))
y = IIf(Len(y) <> 2, "0" & y, y)
j = CInt(Day(DTPicker1.Value))
k = CInt(Day(DTPicker2.Value))
For i = j To k
r = CStr(i)
r = IIf(Len(r) <> 2, "0" & r, r)
rq = n & "-" & y & "-" & r
Set rs = New ADODB.Recordset
sql = "select * from jsb where rtrim(dh)='" & Text1.Text & "' and krq = '" & rq & "'"
rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly
Set DR.DataSource = rs
If rs.BOF = True Or rs.EOF = True Then
With DR.Sections("Section1")
.Controls("Text1").DataField = rq
.Controls("Text2").DataField = "0"
.Controls("Text3").DataField = "0"
.Controls("Text4").DataField = "0"
.Controls("Text5").DataField = "0"
.Controls("Text6").DataField = "0"
.Controls("Text7").DataField = "0"
End With
Else
With DR.Sections("Section1")
.Controls("Text1").DataField = rq
.Controls("Text2").DataField = rs.Fields("zyye")
.Controls("Text3").DataField = rs.Fields("sl")
.Controls("Text4").DataField = rs.Fields("sj")
.Controls("Text5").DataField = rs.Fields("zjhs")
If rs.Fields("sl") = rs.Fields("zjhs") Then
.Controls("Text6").DataField = "0"
Else
.Controls("Text6").DataField = rs.Fields("zyye") - rs.Fields("sj")
End If
.Controls("Text7").DataField = rs.Fields("sl") - rs.Fields("zjhs")
End With
End If
Next i

With DR.Sections("Section4")
.Controls("Label2").Caption = "业务员代号:" & Text1.Text
.Controls("Label3").Caption = "从:" & DTPicker1.Value
.Controls("Label4").Caption = "到:" & DTPicker1.Value
End With
DR.Show vbModal
End Sub
快来救救我吧！

...全文