回复 10楼 snrtjat
你在循环中刷recordset,还不把数据库引擎累死啊。(没显示则很肯能你最后一个条件本来就无数据)
dim i as ingeger for i=1 to 6 adodc13.recordsource="select*from downpart where [group] like 'S" & i & "%' and [detail]like '" & label11(68).caption & "'" adodc13.refresh label11(i+77).caption=adodc13.recordset.recordcount next i