VB 程序编程问题求高手解答！~~

本帖最后由 bcrun 于 2011-01-25 08:36:07 编辑用now,不是time

while not rst.eof 

'你的代码

rst.movenext

wend

  If MsgBox("¹时间到了¡", vbOKOnly, "提示") = vbOK Then

  A.Controls.Stop

  A.Close

  Set A = Nothing

  End If

只允许别人点OK，那你还判断它干嘛呢，直接就弹出等待用户点击就好了。A是在If外部定义的，应该在外部释放。

If Rst（"闹钟时间"） = Time Then

'这个判断不合理，你应该只判断到分钟，否则将可能出错。



dim rst_time as string

dim sys_time as string



'时间对比，你也可以考虑使用DateDiff函数。

rst_time = rst.fields("闹钟时间").value & vbnullstring

rst_time = formatstring(rst_time,"yyyy-MM-dd hh:mm")



sys_time = now

sys_time = formatstring(sys_time,"yyyy-MM-dd hh:mm")



if rst_time = sys_time then 

'时间一致

end if

引用 2 楼 aisac 的回复:

VB code
while not rst.eof
'你的代码
rst.movenext
wend

VB code
  If MsgBox("¹时间到了¡", vbOKOnly, "提示") = vbOK Then
  A.Controls.Stop
  A.Close
  Set A = Nothing
  End If

只允许别人点OK，那你还判断它干……

用意是点击OK后闹钟结束停止响铃！ If MsgBox("¹时间到了¡", vbOKOnly, "提示") = vbOK Then
与
MsgBox("¹时间到了¡", vbOKOnly, "提示")
没区别，都是弹出等待用户点击OK。

引用 5 楼 aisac 的回复:

If MsgBox("¹时间到了¡", vbOKOnly, "提示") = vbOK Then
与
MsgBox("¹时间到了¡", vbOKOnly, "提示")
没区别，都是弹出等待用户点击OK。

是的，现在的问题是在于系统时间等于DataGrid1中的“闹钟时间”中的那列数据时，如果没选中该行则闹钟不响应。请问怎么解决！谢谢这位大哥！

您是要问一套解决方案？

你的选中是什么意思，勾选？选蓝？

引用 7 楼 aisac 的回复:

您是要问一套解决方案？

你的选中是什么意思，勾选？选蓝？

恩，解决方案。选中的意思就是比如现在是11:19，难后我的DataGrid1中的“闹钟时间”列的数据中设定有一个数据是11:20，我要让系统11:20时会有相应就要选中11:20那行数据（选蓝）。

现在的问题是如果我没有选中要响应的时间，闹钟不响应。谢谢！！！ [Quote=引用 8 楼 janway0428 的回复:]
引用 7 楼 aisac 的回复:
您是要问一套解决方案？

你的选中是什么意思，勾选？选蓝？

恩，解决方案。选中的意思就是比如现在系统是11:19，然后DataGrid1中的“闹钟时间”列的数据中设定有一个数据是11:20，我要让系统11:20时会有响应就要选中11:20那行数据（选蓝）。
现在的问题是如果我没有选中要响应的时间，闹钟不响应。怎么在不选中的情况下也有响应。谢谢！！！

补充：VB ,  基础类