以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 多个NumericComboBox控件,在鼠标焦点未离开控件时再哪里触发事件,统计和? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158013) |
-- 作者:guosheng -- 发布时间:2020/11/5 9:47:00 -- 多个NumericComboBox控件,在鼠标焦点未离开控件时再哪里触发事件,统计和? textchanged和valuechanged事件,都只有鼠标焦点离开的才能触发事件,试了不行。 [此贴子已经被作者于2020/11/5 9:47:09编辑过]
|
-- 作者:有点蓝 -- 发布时间:2020/11/5 9:54:00 -- textchanged肯定是一录入就触发的。不是焦点离开才能触发 |
-- 作者:guosheng -- 发布时间:2020/11/5 10:12:00 -- 知道怎么回事了,在textchanged事件中引用了控件的value,焦点没离开value没变化。 |
-- 作者:有点蓝 -- 发布时间:2020/11/5 10:23:00 -- 使用text |
-- 作者:guosheng -- 发布时间:2020/11/9 12:21:00 -- 由于各个文本框的格式设置了千分位,文本框text如果是1,000.00,求和时,会按照1计算。怎么改啊? (1)dataformat事件:e.Text =Format(e.Value,"n")
(2)textchanged事件: Dim md_s As Double =0 \'统计金额1 Dim mc_s As Double=0 \'统计金额2 For i As Integer=0 To kjs md_s=val(e.Form.Controls("借方金额" & i).text)+ md_s mc_s=val(e.Form.Controls("贷方金额" & i).text)+ mc_s Next e.Form.Controls("借方合计").value=md_s e.Form.Controls("贷方合计").value=mc_s [此贴子已经被作者于2020/11/9 13:12:40编辑过]
|
-- 作者:有点蓝 -- 发布时间:2020/11/9 13:43:00 -- val(e.Form.Controls("借方金额" & i).text.replace(",","")) |