以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数值大于设定数值自动带出百分比  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183166)

--  作者:denghui69986
--  发布时间:2022/10/26 17:02:00
--  数值大于设定数值自动带出百分比
在下面表分三阶段比如9000以上是13%在5000以上是12%在2000以上10%试了下面代码不出来,应该放在那个事件里面Foxtable 2022 - 人人都能开发管理软件
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/10/26 17:20:00
--  

datacolchanged事件:

If e.DataCol.Name = "计件工资" Then 
Dim Value As double e.datarow("计件工资")
Dim Result As double
Select
 Case Value
    Case
 2000 To 5000
        Result = 
0.1
    
Case 5000 To 9000
        Result = 
0.12
    
Case 9000 to 9999999
        Result = 
0.13
    
Case else
        Result = 
0
End
 Select
e.datarow("提成") = Result 
endif

--  作者:denghui69986
--  发布时间:2022/10/26 19:50:00
--  
谢谢