我在vb里面有两重for循环,如果满足条件,想从最里面的循环体跳出,以后所有循环语句不再执行。请问该用什么语句?
解决方案 »
- Replace替换字符串,不区分字母大小写,用vbDatabaseCompare
- 【请教】基础模糊查询问题,我是菜鸟,但肯定结帐!
- 急~~求教~~~读取数据库的问题~~~
- 关于treeview请帮我看看这2段代码问题出在哪里,多谢!
- 关于Ms Access 2000 和VB6 的问题?
- 如何获得菜单的句柄?
- 急!请教高手用OpenRecordset打开数据库分别出现实时错误‘3464’和‘3061’
- VB调用excel写报表时,表格线如何操作!高分100+?
- 小弟现在需要用语句在Access2000中动态的建立一个新表......详情请进!
- ****************一个关于DATAGRID绑定RECORDSET的小问题,大家快来帮忙,急!**********
- 为什么图案刷在内存设备场景中会没有用
- uid=sa;pwd=;" 指的是什么用户名和密码?
二种方法:巧用FOR 循环与IF判断来解决。
不过还得看是什么业务流程!
For j = 1 To oAllProfile.Item(i).Count Step 1
If oEntity Is oAllProfile.Item(i).Item(j).SketchEntity Then
bFound = True
n = i
'可以用exit for 吗?
GoTo go
End If
Next
Next
go: If bFound = True Then
2、定义变量,判断。
dim bExit as boolean
bExit = False
For i = 1 To oAllProfile.Count Step 1
For j = 1 To oAllProfile.Item(i).Count Step 1
If oEntity Is oAllProfile.Item(i).Item(j).SketchEntity Then
bFound = True
n = i
'可以用exit for 吗?
bExit = True
Exit For End If
Next
if bExit then Exit For
Next