专家坐堂-请专家帮忙看一下datacolChanged代码错在哪里？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请专家帮忙看一下datacolChanged代码错在哪里？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92909)

--  作者：evolymft
--  发布时间：2016/11/16 11:09:00
--  请专家帮忙看一下datacolChanged代码错在哪里？

If e.DataCol.Name="岗位工资" Then
If e.DataRow.IsNull("岗位工资") Then
e.DataRow("岗位等级") = Nothing And e.DataRow("基础绩效") =Nothing And e.DataRow("奖励绩效")=Nothing And e.DataRow("职称")=Nothing
Else
Select Case "岗位工资"
Case 1180
e.DataRow("岗位等级") =5 : e.DataRow("基础绩效") =1868
e.DataRow("奖励绩效") =10212
e.DataRow("职称")="高级教师"
End Select
End If
End If

--  作者：有点蓝
--  发布时间：2016/11/16 11:20:00
--

If e.DataCol.Name="岗位工资" Then
If e.DataRow.IsNull("岗位工资") Then
e.DataRow("岗位等级") = Nothing
e.DataRow("基础绩效") =Nothing
e.DataRow("奖励绩效")=Nothing
e.DataRow("职称")=Nothing
Else
Select Case "岗位工资"
Case 1180
e.DataRow("岗位等级") =5
e.DataRow("基础绩效") =1868
e.DataRow("奖励绩效") =10212
e.DataRow("职称")="高级教师"
End Select
End If
End If

--  作者：evolymft
--  发布时间：2016/11/16 11:58:00
--
谢谢老师！

--  作者：evolymft
--  发布时间：2016/11/16 12:03:00
--
老师：代码仍然没执行

--  作者：有点蓝
--  发布时间：2016/11/16 12:06:00
--

If e.DataCol.Name="岗位工资" Then
If e.DataRow.IsNull("岗位工资") Then
e.DataRow("岗位等级") = Nothing
e.DataRow("基础绩效") =Nothing
e.DataRow("奖励绩效")=Nothing
e.DataRow("职称")=Nothing
Else
Select Case e.DataRow("岗位工资")
Case 1180
e.DataRow("岗位等级") =5
e.DataRow("基础绩效") =1868
e.DataRow("奖励绩效") =10212
e.DataRow("职称")="高级教师"
End Select
End If
End If

--  作者：evolymft
--  发布时间：2016/11/16 12:11:00
--
调用的目标发生了异常。

--  作者：evolymft
--  发布时间：2016/11/16 12:16:00
--
请专家帮忙指导，谢谢主！

--  作者：狐狸爸爸
--  发布时间：2016/11/16 12:17:00
--
这个代码不应该出错，贴出完整的代码，或者做个例子上传，我们帮你看一下。

--  作者：evolymft
--  发布时间：2016/11/16 12:19:00
--
已做好，谢谢了