28,391
社区成员
发帖
与我相关
我的任务
分享
If m_rstHourInfoTmp Is Nothing Then
Set m_rstHourInfoTmp = GetBreakInfoRecordset()
Else
If Not m_rstHourInfoTmp Is Nothing Then
If m_rstHourInfoTmp.State = adStateOpen Then
If m_rstHourInfoTmp.EOF = False Then
If m_rstHourInfoTmp.EditMode = adEditNone Then
m_rstHourInfoTmp.Close
End If
Else
m_rstHourInfoTmp.Close
End If
End If
Set m_rstHourInfoTmp = Nothing
End If
Set m_rstHourInfoTmp = GetBreakInfoRecordset()
With m_rstHourInfoTmp
Do Until rstHour.EOF
.AddNew
For lngLoopCnt = 0 To .fields.Count - 1
.fields(lngLoopCnt) = rstHour.fields(lngLoopCnt)
Next
.Update
rstHour.MoveNext
Loop
End With
End If
If m_rstHourInfoTmp Is Nothing Then
Set m_rstHourInfoTmp = GetBreakInfoRecordset()
End If
Set GetHourInfoTemp = m_rstHourInfoTmp.Clone
Private objRs As New ADODB.Recordset
Set objRs = New ADODB.Recordset