多步操作产生错误,应该怎么改?
Private Sub cmdSave_Click()strSql = "SELECT distinct 本厂编号 FROM 记录卡 where format(检定日期,'yyyy-m')='" & Form12.Combo2.Text & "-" & Form12.Combo1.Text & "'order by 本厂编号"
If rsTemp.State = adStateOpen Then rsTemp.Close
rsTemp.CursorLocation = adUseClient
rsTemp.Open strSql, cnnfile, adOpenKeyset, adLockOptimistic
For I = 1 To rsTemp.RecordCount
With jianding(MSHFlexGrid)
sql1 = "SELECT 实际完成日期 FROM 记录卡 where 本厂编号='" + rsTemp.Fields(0) + "' and format(检定日期,'yyyy-m')='" & Form12.Combo2.Text & "-" & Form12.Combo1.Text & "' order by 检定日期 desc "
If rsJlkhz.State = adStateOpen Then rsJlkhz.Close
rsJlkhz.CursorLocation = adUseClient
rsJlkhz.Open sql1, cnnfile, adOpenKeyset, adLockOptimistic
rsJlkhz.Fields("实际完成日期") = " & Trim(.TextMatrix(I, 6)) & " (执行到这里多步操作产生错误)
rsJlkhz.Update
Unload Me
rsJlkhz.Close
rsTemp.MoveNext
End With
Next
MsgBox "保存成功!", vbOKOnly, "提示"
End Sub --------------------编程问答-------------------- 实际完成日期是什么数据类型?
多步操作是插入的值超长了 --------------------编程问答-------------------- 实际完成日期数据类型是日期型的 --------------------编程问答-------------------- 第一个问题:
strsql = "select distinct 本厂编号 FROM 记录卡 where 检定日期 between " & Chr(35) & CDate(Form12.Combo2.Text) & "# and #" & CDate(Form12.Combo1.Text) & Chr(35) & " order by 本厂编号"
第二个问题:
For I = 1 To rsTemp.RecordCount
改为
For I = 0 To rsTemp.RecordCount - 1
补充:VB , 数据库(包含打印,安装,报表)