以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多个NumericComboBox控件,在鼠标焦点未离开控件时再哪里触发事件,统计和?  (http://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(",",""))