怪了怪了，真是怪了！

[popety_bit]

大家看看我的程序出了什么毛病？

For k = 0 To lstWorker.ListCount - 1
If lstWorker.Selected(k) = True then
If rsTimeRecord.State Then
rsTimeRecord.Close
End If
rsTimeRecord.Open "select * from tbl_timerecord where 证件号码='" & Trim(lstWorker.ItemData(k)) & "'", Conn, adOpenDynamic, adLockOptimistic, adCmdText
If rsTimeRecord.EOF then Msgbox "记录集空！"
Statistic rsTimeRecord 'Statistic为自定义过程
End If
Next k
毛病：当我在列表框lstWorker中选了多个职工时，记录集rsTimeRecord在在打开第一个选中职工的记录时正常，可以后的就都为空了，我试了很多次，不管怎么选，总是第一个正常，以后的记录集都为空，怎么回事呀，大家遇到过这种情况吗？

[crackzzy]

我的意见（可能不正确）：
我想在这里应该不能使用For循环吧？
应该是For循环出的问题。
For循环只是机械的实现对k值的累加，而不是根据k值灵活地决定下面执行的代码。
这里你应该把For循环整个去掉程序应该就正常了。只需要使用If对lstWorker.Selected(k)进行判断就可以了。程序会自动根据k的值选择正确的执行代码。

[net_jun]

下一次运行之前，应该把K值还原吧，在for 循环外加：

k=0

[popety_bit]

to crackzzy(crackzzy):
是FOR循环的问题吗?可不用FOR循环，我怎么找到列表框中选中的职工呀？
而且列表框中选中的职工也不止一个呀？

[popety_bit]

to net_jun(飞马) :我的FOR循环只执行一次，之后就不用K的值了

[Pipi0714]

判断经过查询的记录集是否为空不能单单用eof 属性。应该是：
if rsTimeRecord.bof and rsTimeRecord.eof then msgbox "记录为空"

[tonykong]

If rsTimeRecord.State Then
rsTimeRecord.Close
End If

For k = 0 To lstWorker.ListCount - 1
If lstWorker.Selected(k) Then

rsTimeRecord.Open "select * from tbl_timerecord where 证件号码='" & Trim(lstWorker.ItemData(k)) & "'", Conn, adOpenKeyset, adLockReadOnly, adCmdText

If rsTimeRecord.RecordCount < 0 Then
MsgBox "记录集空！"
End If

rsTimeRecord.Close

Statistic rsTimeRecord 'Statistic为自定义过程
End If
Next k

[popety_bit]

to Pipi0714(皮皮0714):记录集的确是空的，因为下面还要对记录进行许多操作，而记录集里的确什么都没有，我就想不通，为什么总是第一次可以，以后就不行了呢？

[popety_bit]

知道了，搞错了一个变量，气死了，真他妈的该死！