dim i as long dim strTemp as string adoRS.Open sqlstr, adoCon, adOpenDynamic, adLockOptimistic strTemp="" for i=1 to adors.recordcount strTemp=strTemp & " adoRS("编号") & "" adors.movenext next i msgbox strTemp adors.close
1,217
社区成员
55,952
社区内容
加载中
试试用AI创作助手写篇文章吧