主题：再回复：yin710
qjbzjp
[专家分：8830] 发布于 2010-02-04 22:34:00
点击Command1后生效。
回复列表 （共9个回复）
沙发
yin710 [专家分：0] 发布于 2010-02-04 23:23:00
谢谢老师，祝老师春节愉快
板凳
yin710 [专家分：0] 发布于 2010-02-05 08:49:00
qjbzjp老师好，你发的代码能用，想再问个问题。你的是按实际费用给以%，假如是按收入的情况给以%，如何改呢？还是原来的公式：收入-支出=实际费用*% 20（15）%个人 80（85）%财政.封顶为2万，余额。条件：收入在小于1万20%，1-2万15%，2-3万20%
谢谢老师
3 楼
qjbzjp [专家分：8830] 发布于 2010-02-05 10:57:00
把Commamd1控件删除。以下代码放到文本框ZC中的KeyPress中：
IF nKeyCode=13
thisform.sf.value=thisform.sr.value-thisform.zc.value
n=thisform.sr.value*IIF(thisform.sr.value>10000.and.thisform.sr.value<30001,0.85,0.8)
thisform.cz.Value=IIF(n>20000,20000,n)
thisform.gr.value=thisform.sr.value*IIF(thisform.sr.value>10000.and.thisform.sf.value<30001,0.15,0.2)
thisform.ye.value=IIF(n>20000,n-thisform.cz.Value,0)
ENDIF
**在支出框中输完数据，敲回车键即可得到结果。
4 楼
yin710 [专家分：0] 发布于 2010-02-05 11:23:00
老师好，以上代码计算后的结果都是收入的，不是实际费用。我的意思：按收入决定比例，但计算时却是实际费用的百分数。
5 楼
qjbzjp [专家分：8830] 发布于 2010-02-05 13:35:00
IF nKeyCode=13
thisform.sf.value=thisform.sr.value-thisform.zc.value
n=thisform.sf.value*IIF(thisform.sr.value>10000.and.thisform.sr.value<30001,0.85,0.8)
thisform.cz.Value=IIF(n>20000,20000,n)
thisform.gr.value=thisform.sf.value*IIF(thisform.sr.value>10000.and.thisform.sf.value<30001,0.15,0.2)
thisform.ye.value=IIF(n>20000,n-thisform.cz.Value,0)
ENDIF
6 楼
yin710 [专家分：0] 发布于 2010-02-07 19:51:00
怎么不能加分呢，是我的电脑有问题么？
7 楼
qjbzjp [专家分：8830] 发布于 2010-02-07 22:23:00
只有楼主（发帖者）才能评分。
5楼的帖子解决你的问题了吗？
8 楼
yin710 [专家分：0] 发布于 2010-02-07 23:04:00
谢谢老师，好像没有15%的计算。
9 楼
gudjhi [专家分：0] 发布于 2012-11-27 19:37:00
谢谢楼主了，请继续努力
[url=http://www.sc115.com/vector]矢量素材[/url],[url=http://www.sc115.com/PPT]PPT模板[/url],[url=http://www.sc115.com]素材中国[/url]
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 再回复：yin710