以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  个税  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139474)
--  作者：lgz518
--  发布时间：2019/8/13 16:25:00
--  个税
 老师，我看一个个税，您回复代码，我动手实验一下，代码放在DataColChanged事件没事件反应，无显示数据，
Dim gz = 35000
Dim jg = iif((gz)>960000,(gz)*0.45-181920,IIF((gz)>660000,(gz)*0.35-85920,IIF((gz)>420000,(gz)*0.30-52920,IIF((gz)>300000,(gz)*0.25-31920,IIF((gz)>144000,(gz)*0.2-16920,IIF((gz)>36000,(gz)*0.1-2520,(gz)*0.03))))))
msgbox(jg)


是什么原因，请老师，指导，谢谢

我按您代码，在表B，设计“gz,jg",给gz字段分别给值，3500，5000等，然把上面放DataColChanged事件。
--  作者：有点蓝
--  发布时间：2019/8/13 16:32:00
--  
不是随便放一段代码就起作用的，代码要进行合适的修改，以符合当前上下文，符合事件的使用要求，类似

if e.datacol.name = "某工资列"
dim gz = e.newvalue
e.datarow("某个税列") = iif((gz)>960000,(gz)*0.45-181920,IIF((gz)>660000,(gz)*0.35-85920,IIF((gz)>420000,(gz)*0.30-52920,IIF((gz)>300000,(gz)*0.25-31920,IIF((gz)>144000,(gz)*0.2-16920,IIF((gz)>36000,(gz)*0.1-2520,(gz)*0.03))))))
endif