由于此地板涉嫌违规,因此它将折叠在系统中以隐藏此地板并显示此地板
DoWhileTrue
ifreturn_tname(strbegindate ) ' ' Then
strSql=strSql'selectrownum序列号、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 (str begindate ) ) a,DictAccTypeTbb'_ ) u
' wherea.dtltxcode=b.outbusitype () anda.dtlcardno=''txtCrdNo.Text ' '
iftrim(cmbtxntype.text ) ' ' Then
strsql=strsql ' anda.dtltxcode=' ' return _ id ' outbusitype ',' valdesc ',cmbTxnType.Text,' DictAccTypeTb '
最终幻想
strSql=strSql'unionall '
最终幻想
(str begindate=add _ date (val (str begindate ),1 ) ) ) ) ) ) 652
' ifstrbegindatetrim (txt end date.text ) Then
ifstrbegindateformat(DP2.value,' yyyymmdd ' ) Then
IfstrSql''Then
STRSQL=mid(STRSQL,1,Len ) STRSQL(-10 ) ) ) ) ) ) ) ) ) )。
Else
MsgBox '暗示此卡在指定时间段内没有交易明细!'
退出辅
最终幻想
退出待办事宜
最终幻想
Loop
strSql='selectrownum序列号、卡号、事务处理前的卡馀额、' _
'交易金额、卡押金退款、交易后卡余额、' _
'交易日期、交易时间、结算日、' _
'设备代码、事务代码、公司内事务代码、' _
'计数器、中心流水号、' _
'城市代码,' _
"设备流水号," _ "
'站点代码线路代码,' _
'错误代码、内部错误代码' _
' from('strSql ' '
'结束
'结束
' sortbycnt
strSql=strSql'orderby计数器'
Lab2:
' lbegintime=val (格式(now )、' hhmmss ) )
lBeginTime=GetTickCount
adodc1. connectionstring=gconnstr
Adodc1.RecordSource=strSql
' WriteStrSqlstrSql
Adodc1.Refresh
上面代码的功能是查询一段时间内的交易记录。 如果选择的交易时间超过3个月,则第一次查询时有时会正常。 如果进行其他查询,则在没有提示的情况下强制关闭可执行文件。不知道原因是什么,但即使异常也无法捕捉到。