VB 设置循环，以及弹出messageBox

Do While Not rs.EOF
         If (Trim(rs.Fields("Result") <> "OK") And REGION = "JET") Then
            strError = Trim(rs.Fields("SN")) & "," & Trim(rs.Fields("Description")) & "\n"

         end if
rs.MoveNext
Loop
 If strError <> "" And REGION = "JET" Then
            'frmScancer.LabMsg.Caption = "This Pallet is wrong! The message  is " & strError    'Trim(rs.Fields("PartNumber"))
            intRetval = sndPlaySound(WavePath + "SernumError.wav", SND_ASYNC)
            MsgBox "Warning: This Pallet is wrong! The message  is " & strError, vbDefaultButton1, "Warning!"
            rs.Close
            Set rs = Nothing
            Exit Function
 End If

 

MsgBox "Warning: There are no files to move!", vbDefaultButton1, "Warning!"

转载于:https://www.cnblogs.com/KingNiu-blogs/archive/2012/08/24/2653689.html