编程开发论坛 - Powered by Discuz! Board

标题: 请教 [打印本页]

作者: 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/)