|
VBExitForContinue
vb跳出当前FOR循环 进行下一次循环
思路http://topic.csdn.net/t/20060710/14/4870923.html vb6.0有没有中途跳出当前FOR循环,进行下一次循环 http://topic.csdn.net/t/20030709/15/2008503.html VB中跳出循环,继续执行的语句是什么? http://zhidao.baidu.com/question/43659778.html VB中非空的定义是什么? if len(text1.text) then 非空 else 空 用len判断字符串长度远远比读取字符串要快,用=""的方法需要先将字符串读入,再和空字符串""做比较,效率低很多 字符串长度为非零,即为真,所以用这种方式判断字符串是否为空是最好的选择 范例vb 跳出当前FOR循环 进行下一次循环 '*************************************************************************
'**函 数 名:CombineInsertRecords
'**输 入:无
'**输 出:无
'**功能描述:把付卡的除第一付卡以外积分信息插入到主卡的汇总表中
'**全局变量:strMasterTable:主卡的汇总表
'** strSlaveTable:付卡的积分信息表或查询
'**调用模块:CombineInsertRecords("[贷记卡汇总表]","[贷记卡积分其余付卡]")
'**作 者:Deepcast
'**日 期:2008-04-27 23:58:07
'**修 改 人:
'**日 期:
'**版 本:V2.2.0
'*************************************************************************
Function CombineInsertRecords(strMasterTable As String, strSlaveTable As String)
Set rscard = New ADODB.Recordset
Set rscard2 = New ADODB.Recordset
rscard.Open "SELECT [主卡卡号],[卡号],[联名积分余额],[本卡本月新增综合积分],[新增信用卡积分],[新增特定活动5积分],[新增联名积分] FROM " & strSlaveTable, conn, 1, 1
If rscard.EOF Then Exit Function
Do While Not rscard.EOF
rscard2.Open "SELECT [卡号], [联名卡号2], [联名积分余额2], [联名新增综合2], [联名新增2积分2], [联名新增5积分2], [联名新增联名积分2], [联名卡号3], [联名积分余额3], [联名新增综合3], [联名新增2积分3], [联名新增5积分3], [联名新增联名积分3], [联名卡号4], [联名积分余额4], [联名新增综合4], [联名新增2积分4], [联名新增5积分4], [联名新增联名积分4] FROM " & strMasterTable & " WHERE [卡号] = '" & rscard("主卡卡号") & "'", conn, 1, 3
If Not rscard2.EOF Then
For i = 2 To 4
If Len(rscard2("联名卡号" & i)) Then
GoTo nextFor '很无奈的用法
End If
rscard2("联名卡号" & i) = rscard("卡号")
rscard2("联名积分余额" & i) = rscard("联名积分余额")
rscard2("联名新增综合" & i) = rscard("本卡本月新增综合积分")
rscard2("联名新增2积分" & i) = rscard("新增信用卡积分")
rscard2("联名新增5积分" & i) = rscard("新增特定活动5积分")
rscard2("联名新增联名积分" & i) = rscard("新增联名积分")
Exit For
nextFor:
Next i
rscard2.Update
End If
DoEvents
rscard2.Close
rscard.MoveNext
Loop
Set rscard2 = Nothing
rscard.Close
Set rscard = Nothing
End Function
|