1,216
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
ReDim x(Adodc1.Recordset.RecordCount)
Adodc1.Recordset.MoveFIRST
WHILE NOT ADODC1.RECORDSET.EOF
x(i) = Adodc1.Recordset("平均温度")
Adodc1.Recordset.MoveNext
WEND
End Sub