Board logo

标题: 请教 [打印本页]

作者: wdp221651    时间: 2006-8-21 22:12     标题: 请教

各位老兄:
         小弟实在是没有办法:
         想实现自动提示功能.我用的是控件数组 显示状态.但是只能实现第一个控件自动提示;
         下面是代码:

Private Sub Timer1_Timer()
Dim zd As Integer

Text2.Text = Time$()
Dim ti As String
ti = Time$()
Data2.RecordSource = "select * FROM 实时状态 WHERE 结束时间='" & ti & " ' "
Data2.Refresh
Do While zd < 2 And Not Form7.Data2.Recordset.EOF And Combo1.Text = Form4.A(zd).Caption
  MsgBox "有按摩结束", , "提示"
  Form4.AA(zd).BackColor = &HFF00&
  index = index + 1
Loop
End Sub
作者: Nothing    时间: 2006-8-22 11:01

请你在问题的时候,将标题写好。
作者: Nothing    时间: 2006-8-22 11:05

请将下面这行放到循环里面,再注意一下zd的值。
And Combo1.Text = Form4.A(zd).Caption
作者: wdp221651    时间: 2006-8-23 10:53     标题: 谢谢管理员提示,下次一定改过

谢谢提醒!
多谢一直一来关照!




欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/) Powered by Discuz! 6.0.0