循环问题

shihaonan 2005-09-22 05:16:04

要求：已经加载5张照片，名字为a,b,c,d,e.现在想新加载一张照片，要判断照片名称是不是已经加载的五张照片。能够得到加载照片的名字，但是根据索引得到的。
代码：Dim i As Integer
Dim n As Integer
'n为已经加载的照片数
For i = 0 To n
If PhotoName(i) = "a" Then
MsgBox "a已经添加"
Exit For
Else
加载a
Exit For
End If
Next i
出现问题：如果a的索引号为0，没有问题，如果不为0，会加载。怎样才能全部判断完在进行加载照片的操作呢？
谢谢各位高手！！！

...全文

126 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2005-09-23

打赏
举报

If UBound(Filter(PhotoName, "a")) = 0 Then MsgBox "a已经添加"
If UBound(Filter(PhotoName, "a")) = -1 Then 加载a

faysky2 2005-09-22

打赏
举报

dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "provider=........."
set rs=cn.execute("select * from PhotoTable where PhotoName='a'")
if not rs.eof then
msgbox "a已经添加"
end if

province_ 2005-09-22

打赏
举报

Dim i As Integer
Dim n As Integer
'n为已经加载的照片数
dim flag as boolean'加个标记
flag=false
For i = 0 To n
If PhotoName(i) = "a" Then
MsgBox "a已经添加"
flag=true
Exit For
End If
Next i
'判断FLAG决定是否加载
if flag=false then '加载
...
end if