dim rs as new adodb.recordset dim i as longi=0set rs=con.execute("select count(员工编号) from att_time") redim record(rs.fields(0).value) set rs=con.execute("select 员工编号 from att_time") do while not rs.eof record(i)=rs.fields(0).value i=i+1 rs.movenext loop
dim i as longi=0set rs=con.execute("select count(员工编号) from att_time")
redim record(rs.fields(0).value)
set rs=con.execute("select 员工编号 from att_time")
do while not rs.eof
record(i)=rs.fields(0).value
i=i+1
rs.movenext
loop