- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 时段框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178085)
-- 发布时间：2022/6/17 11:07:00
-- 时段框
此主题相关图片如下：无标题2.png
此主题相关图片如下：无标题.png
只输入小时，时段值不正确，加上分或秒后值正确。请问是哪里错了
全局ValueChanged:
Select Case e.Sender.name
Case "hour","min","sec"
Dim hh As Double = e.Form.Controls("hour").value
Dim mm As Double = e.Form.Controls("min").value
Dim ss As Double = e.Form.Controls("sec").value
e.Form.Controls("TimeSpanBox1").value = hh * 3600 + mm * 60 + ss
End Select
-- 发布时间：2022/6/17 11:18:00
--
调试
Select Case e.Sender.name
Case "hour","min","sec"
Dim hh As Double = e.Form.Controls("hour").value
msgbox(hh)
Dim mm As Double = e.Form.Controls("min").value
msgbox(mm )
Dim ss As Double = e.Form.Controls("sec").value
msgbox(ss )
msgbox(hh * 3600 + mm * 60 + ss)
e.Form.Controls("TimeSpanBox1").value = hh * 3600 + mm * 60 + ss
msgbox(e.Form.Controls("TimeSpanBox1").value)
End Select
-- 发布时间：2022/6/17 11:52:00
--
如图
此主题相关图片如下：1.png
此主题相关图片如下：2.png
[此贴子已经被作者于2022/6/17 11:53:04编辑过]
-- 发布时间：2022/6/17 11:55:00
--
TimeSpanBox1绑定了列？没看见有给TimeSpanBox1赋值的代码
-- 发布时间：2022/6/17 11:57:00
--
没有绑定列
只有这一段代码
-- 发布时间：2022/6/17 11:59:00
--
没看见有给TimeSpanBox1赋值的代码！TimeSpanBox1的值会自己变？这么诡异！
-- 发布时间：2022/6/17 16:34:00
--
Forms(窗口1).Controls("TimeSpanBox1").value =3600 这样直接写值显示的也不对
-- 发布时间：2022/6/17 16:35:00
--
请上传实例说明