这段代码用于查询特定卡片在指定时间段内的交易记录，通过Do While循环逐日查询并合并结果。当查询时间超过三个月时，可能出现首次查询正常但后续查询导致程序强制关闭的问题，且异常无法捕获。可能的原因包括数据量过大导致内存溢出或者查询效率低下。解决方案可能涉及优化SQL查询，分批处理数据，或检查代码中可能导致崩溃的部分。
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Do While True
If Return_Tname(strBeginDate) <> "" Then
strSql = strSql & "select rownum 序号,dtlcardno 卡号 ,dtlbefbal/100 交易前卡余额 ," _
& "dtlamt/100 交易金额 ,dtlslamt/100 退售卡押金 ,dtlaftbal/100 交易后卡余额 ," _
& "dtldate 交易日期 ,dtltime 交易时间 ,dtlsettdate 结算日期 ," _
& "dtlposid 设备代码 ,dtlinntype 内部交易代码 ,b.valdesc 交易代码 ,dtlcdcnt 计数器 ," _
& "dtlcenseq 中心流水号 , " _
& "dtlposseq 设备流水号 , " _
& "dtlcity 城市代码 ," _
& "dtlstatid 站点代码线路代码, " _
& "dtlerrcode 错误代码 ,dtlinnerr 内部错误代码 " _
& "from " & Return_Tname(Val(strBeginDate)) & " a,DictAccTypeTb b" _
& " where a.dtltxcode= b.outbusitype(+) and a.dtlcardno = '" & txtCrdNo.Text & "'"
If Trim(cmbTxnType.Text) <> "" Then
strSql = strSql & " and a.dtltxcode='" & Return_Id("outbusitype", "valdesc", cmbTxnType.Text, "DictAccTypeTb") & "'"
End If
strSql = strSql & " union all "
End If
strBeginDate = add_date(Val(strBeginDate), 1)
'If strBeginDate > Trim(txtEndDate.Text) Then
If strBeginDate > Format(dp2.value, "yyyymmdd") Then
If strSql <> "" Then
strSql = Mid(strSql, 1, Len(strSql) - 10)
Else
MsgBox "提示,此卡在指定时间段内没有交易明细!"
Exit Sub
End If
Exit Do
End If
Loop
strSql = "select rownum 序号,卡号 ,交易前卡余额 ," _
& "交易金额 ,退售卡押金 ,交易后卡余额 ," _
& "交易日期 ,交易时间 ,结算日期 ," _
& "设备代码 ,交易代码 ,内部交易代码 ," _
& "计数器 ,中心流水号 , " _
& "城市代码 ," _
& "设备流水号 , " _
& "站点代码线路代码, " _
& "错误代码 ,内部错误代码 " _
& "from (" & strSql & ")"
'End If
'End If
'sort by cnt
strSql = strSql & " order by 计数器 "
Lab2:
'lBeginTime = Val(Format(Now(), "hhmmss"))
lBeginTime = GetTickCount
Adodc1.ConnectionString = GConnStr
Adodc1.RecordSource = strSql
'WriteStrSql strSql
Adodc1.Refresh
上面的代码的功能是查询一段时间内的交易记录，如果选择的交易时间超过三个月，有的时候偶尔会第一次查询的时候会正常一下，如果再查询其他的话，连提示都没有，就强行关闭运行程序！不知道是什么原因，异常也捕抓不到。。。�
扫一扫
417
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
