以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求和表达式在窗口控件中如何固定到2位小数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17368)

--  作者:a9858
--  发布时间:2012/3/11 13:22:00
--  [求助]求和表达式在窗口控件中如何固定到2位小数
求和表达式在窗口控件中如何固定到2位小数
--  作者:mr725
--  发布时间:2012/3/11 13:28:00
--  
SetFormat
--  作者:程兴刚
--  发布时间:2012/3/11 13:32:00
--  
if Forms("窗口1").Controls("控件1").IsNumeric = true 

     Forms("窗口1").Controls("控件1").SetFormat("0.00")

end if


--  作者:程兴刚
--  发布时间:2012/3/11 13:34:00
--  

哦,如果是窗口中的表,帮助中有,搜索一下setformat即可找到设置数值型列格式示例代码!

[此贴子已经被作者于2012-3-11 13:34:03编辑过]

--  作者:a9858
--  发布时间:2012/3/11 13:37:00
--  
效率好高啊,谢谢
--  作者:程兴刚
--  发布时间:2012/3/11 13:45:00
--  
呵呵,我都马后炮了!
--  作者:a9858
--  发布时间:2012/3/11 13:50:00
--  
程老师谦虚了,你水平比我高多了,呵呵 你给我的代码我还不知道写在哪里呢,还得麻烦你指教一下啊,群里面的‘金亿通’是程老师吗
[此贴子已经被作者于2012-3-11 13:52:09编辑过]

--  作者:程兴刚
--  发布时间:2012/3/11 13:54:00
--  
窗口的AfterLoad事件中,生成窗口后执行,通常在此对窗口和控件进行初始化设置。

e参数属性:

Form:表示触发事件的窗口

改成这样也行:

if e.Form.Controls("控件1").IsNumeric = true

    e.Form.Controls("控件1").SetFormat("0.00")

end if

 

和3楼一样,两种代码均可。

如果您肯定该控件是数值型,直接这样即可:

 e.Form.Controls("控件1").SetFormat("0.00")

[此贴子已经被作者于2012-3-11 13:54:35编辑过]

--  作者:程兴刚
--  发布时间:2012/3/11 13:56:00
--  
以下是引用a9858在2012-3-11 13:50:00的发言:
……群里面的‘金亿通’是程老师吗
[此贴子已经被作者于2012-3-11 13:52:09编辑过]

 

呵呵,是的,老师可不敢当,大家相互学习、共同提高!