我想在timer2触发的时候,让数据库中满足条件的灯(ima1)都闪烁,请问下面代码如何修改呢? Private Sub Timer2_Timer()
*******************************
Do Until rs1.EOF
Ima1(rs1.Fields("地址号") - 1).Visible = Not Ima1(rs1.Fields("地址号") - 1).Visible
rs1.MoveNext
Loop*******************************
end sub这段代码执行之后,假如有两条数据满足,则这两个灯一会一起闪,一会依次闪,怎么才能让他们同时闪?
*******************************
Do Until rs1.EOF
Ima1(rs1.Fields("地址号") - 1).Visible = Not Ima1(rs1.Fields("地址号") - 1).Visible
rs1.MoveNext
Loop*******************************
end sub这段代码执行之后,假如有两条数据满足,则这两个灯一会一起闪,一会依次闪,怎么才能让他们同时闪?
尝试分开,先将地址号读出,然后再改变显示状态
i=res.fields("地址号")
ima1(i-1).visible=not ima1(i-1).visible