- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 数字框输入后如何马上执行代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91413)
-- 发布时间：2016/10/10 14:15:00
-- 数字框输入后如何马上执行代码
我在数字框里 输入了1500 要显示出下面的信息
此主题相关图片如下：z.png
Dim lb3 As WinForm.Label = e.Form.Controls("Label3")
Dim fpje As WinForm.NumericComboBox = e.Form.Controls("分配金额")
If fpje.Value >0 Then
lb3.Text = "分配金额: " & CUMoney(fpje.Value) & " " & Format(fpje.Value,"#,###.00")
End If
我在valuechanged事件里写的代码
输入后要按回车才能执行
有没有什么办法,边输入就显示 ?
[此贴子已经被作者于2016/10/10 14:27:25编辑过]
-- 发布时间：2016/10/10 14:31:00
--
改到TextChanged事件
-- 发布时间：2016/10/10 14:32:00
--
我试过了,也不行 ,如果放TEXTCHANGE 回车后都不会执行,只有当再次录入数据,才会去执行第一次的结果
[此贴子已经被作者于2016/10/10 14:34:51编辑过]
-- 发布时间：2016/10/10 14:45:00
--
TextChanged事件
Dim lb3 As WinForm.Label = e.Form.Controls("Label3")
Dim fpje As WinForm.NumericComboBox = e.Form.Controls("分配金额")
If fpje.Text > "" Then
lb3.Text = "分配金额: " & CUMoney(val(fpje.Text)) & " " & Format(val(fpje.Text),"#,###.00")
End If
-- 发布时间：2016/10/10 14:55:00
--
谢谢哦,这段代码可以,可为什么输入了fpje. 按TAB键出不来,text 呢? 要手工输入才行
-- 发布时间：2016/10/10 15:55:00
--
这个控件一般不用text ，所以没有添加到精灵