回复：关于那个程序
(2)
for i=0 to recordCount
if dataarray(i,0)<>"" then
x=x+1 //这么写实际是求A列非空单元个数之和而不是查找单元格
End If
If x=ListBox1.ListIndex Then
y=i
End If
Next
这段程序改成如下试试：
for i=0 to recordCount
if dataarray(i,0)<>"" and ListBox1.ListIndex=i then y=i
Next i
2004年6月1日起此ID已停用,登录密码已随机设置。若仍发现此ID有活动请联系管理员检查网络安全。
