专家坐堂-[求助]datacolchanged事件求助Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]datacolchanged事件求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57390)

--  作者：bobolan521
--  发布时间：2014/9/24 9:41:00
--  [求助]datacolchanged事件求助

If e.DataCol.name = "工资类型" Or e.DataCol.name = "加班费" Or e.DataRow("日薪月薪_基本工资") Or e.DataCol.name = "日薪月薪_岗级工资" Or e.DataCol.name = "日薪月薪_计件工资" Or e.DataCol.name = "绩效_固定" Or e.DataCol.name = "绩效_浮动" Then


If e.DataRow("工资类型") ="行政线" Or e.DataRow("工资类型") ="日薪" Then
e.DataRow("月工资") = e.DataRow("日薪月薪_基本工资") + e.DataRow("日薪月薪_岗级工资") + e.DataRow("绩效_固定") + e.DataRow("绩效_浮动") + e.DataRow("加班费")
ElseIf e.DataRow("工资类型") ="计时计件" Or e.DataRow("工资类型") ="计件" Then
e.DataRow("月工资") = e.DataRow("日薪月薪_基本工资") + e.DataRow("日薪月薪_岗级工资") + e.DataRow("绩效_固定") + e.DataRow("绩效_浮动") + e.DataRow("加班费") + e.DataRow("日薪月薪_计件工资")
End If
End If
以上这段代码，日薪月薪_基本工资有值的时候月工资都会变，但
日薪月薪_基本工资变为0时不执行
请帮忙看一下

--  作者：有点甜
--  发布时间：2014/9/24 9:43:00
--
If e.DataCol.name = "工资类型" Or e.DataCol.name = "加班费" Or e.DataCol.name = "日薪月薪_基本工资" Or e.DataCol.name = "日薪月薪_岗级工资" Or e.DataCol.name = "日薪月薪_计件工资" Or e.DataCol.name = "绩效_固定" Or e.DataCol.name = "绩效_浮动"   Then
    If e.DataRow("工资类型") ="行政线" Or e.DataRow("工资类型") ="日薪" Then
        e.DataRow("月工资") = e.DataRow("日薪月薪_基本工资") + e.DataRow("日薪月薪_岗级工资") + e.DataRow("绩效_固定") + e.DataRow("绩效_浮动") + e.DataRow("加班费")
    ElseIf e.DataRow("工资类型") ="计时计件" Or e.DataRow("工资类型") ="计件" Then
        e.DataRow("月工资") = e.DataRow("日薪月薪_基本工资") + e.DataRow("日薪月薪_岗级工资") + e.DataRow("绩效_固定") + e.DataRow("绩效_浮动") + e.DataRow("加班费") + e.DataRow("日薪月薪_计件工资")
    End If
End If

--  作者：bobolan521
--  发布时间：2014/9/24 10:03:00
--
谢谢，问题解决了