My favorites | Sign in
Project Home Downloads Wiki Issues Source
READ-ONLY: This project has been archived. For more information see this post.
Search
for
VBExitForContinue  
vb跳出当前FOR循环 进行下一次循环
Updated Feb 4, 2010 by dragon...@gmail.com

思路

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
Powered by Google Project Hosting