大家给我看一下哪里错了？？？

来源：百度知道编辑：UC知道时间：2024/06/30 19:43:14

Open ThePath For Input As #1
Do While Not EOF(1)
Input #1, LoadDat
For ReDat = 0 To ReDat2
If FormOver.List1.List(ReDat) = LoadDat Then
UnHave = False
Else
UnHave = True
End If
Next
If UnHave = True Then
FormOver.List1.AddItem LoadDat
UnHave = False
End If
Loop
Close #1
从#1里读出一行记录后，判断list中是否已有该条记录，
如果已有，则跳过而不添加该行记录！
但不管是否已有，从#1里读出的记录都被添加了，哪里出了问题啊？

For ReDat = 0 To ReDat2
If FormOver.List1.List(ReDat) = LoadDat Then
UnHave = False
Else
UnHave = True
End If
Next
有问题,这样的话你最后还是判断了list中的最后一个
改成
For ReDat = 0 To ReDat2
If FormOver.List1.List(ReDat) = LoadDat Then
UnHave = False :exit for'这里多了个exit for
Else
UnHave = True
End If
Next
你试试看

大家帮我看一下哪里错了？VBS的大家帮我看一下的程序哪里错了请大家帮我看一下，这个程序哪里错了，谢谢了请大家帮我看一下这个程序哪里出了错。大家给看一下是我的错吗？大家帮我看一下错在哪里? 大家帮我看一下这句话错在哪里大家来看看，给我指点一下？大家给我看一下。谢谢请大家给我看一下内存