16,554
社区成员
发帖
与我相关
我的任务
分享
dim NewTime={........} '新的时间序列
........
rs.Open ("Select * From [数据表]",conn,1,3)
dim i=0
do While Not rs.EOF
dim oldDate=Format(CDate(rs("时间").Value),"yyyy/MM/dd")
rs("时间")=oldDate & " " & NewTime(i)
i +=1
rs.MoveNext
Loop
rs.Update()
rs.Close()
........