Foxtable(狐表) → 用户栏目 → 专家坐堂 → 修改了datacolchanged代码后，重置相关列，怎么还是执行以前的代码？


  共有3109人关注过本帖树形打印复制链接

主题：修改了datacolchanged代码后，重置相关列，怎么还是执行以前的代码？
帅哥哟，离线，有人找我吗？
温馨的大树
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00 		修改了datacolchanged代码后，重置相关列，怎么还是执行以前的代码？  发帖心情 Post By：2020/12/8 5:36:00 [显示全部帖子]

修改了表事件的datacolchanged代码后，保存，然后重置相关列，怎么还是执行以前的代码？新的代码无效不执行！重新打开项目还是如此，好象新的代码没有写进去，还是执行以前的代码！

这是新的代码：

Select Case e.DataCol.Name
    Case "员工_姓名","调度操作_订单结果","价格收款_单位","价格收款_WT"
        If dr("调度操作_订单结果") = "成功" AndAlso dr("员工_姓名") IsNot Nothing Then
            Dim dr5 As DataRow = DataTables("员工数据表").Find("员工_姓名 = '" & dr("员工_姓名") &"'")
            If dr5 IsNot Nothing Then
                If dr("价格收款_WT") = False Then
                    Dim str1 As String = " DT_"&" '"& dr("价格收款_单位") & "'"&" 固定"
                    If dr5("str1") IsNot Nothing Then
                        dr("员工收入") = dr5("str1")
                    End If
                End If
            End If
        End If
End Select


[此贴子已经被作者于2020/12/8 6:11:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
温馨的大树
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00 		  发帖心情 Post By：2020/12/8 11:05:00 [显示全部帖子]

就算代码有误，不执行，为什么还是显示以前代码执行的结果呢？按照老师说的调整了一下，好象还是会这样，因为旧的代码我早就删除，更换成新。

Select Case e.DataCol.Name
    Case "员工_姓名","调度操作_订单结果","价格收款_单位","价格收款_WT"
        If dr("调度操作_订单结果") = "成功" AndAlso dr.IsNull("员工_姓名") = False Then
            Dim dr5 As DataRow = DataTables("员工数据表").Find("员工_姓名 = '" & dr("员工_姓名") &"'")
            If dr5 IsNot Nothing Then
                If dr("价格收款_WT") = False Then
                    Dim str1 As String = "DT_"&"'" & dr("价格收款_单位") & "'"&"_固定"
                    If dr5.IsNull(str1) = False Then
                        dr("员工收入") = dr5(str1)
                    End If
                End If
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
温馨的大树
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00 		  发帖心情 Post By：2020/12/8 11:22:00 [显示全部帖子]

把员工收入列全部清零了，保存后重置“员工_姓名”列，msgbox(str1)没有跳出来，“员工_姓名”列数据又还是前面一次执行代码后的计算结果

 回到顶部
帅哥哟，离线，有人找我吗？
温馨的大树
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00 		  发帖心情 Post By：2020/12/8 11:23:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "员工_姓名","调度操作_订单结果","价格收款_单位","价格收款_WT","调度操作_单位"
        If dr("调度操作_订单结果") = "成功" AndAlso dr.IsNull("员工_姓名") = False Then
            Dim dr5 As DataRow = DataTables("员工数据表").Find("员工_姓名 = '" & dr("员工_姓名") &"'")
            If dr5 IsNot Nothing Then
                If dr("价格收款_WT") = False Then
                    Dim str1 As String = "DT_"&"'" & dr("调度操作_单位") & "'"&"_固定"
                    msgbox(str1)
                    If dr5.IsNull(str1) = False Then
                        dr("员工收入") = dr5(str1)
                    End If
                End If
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
温馨的大树
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00 		回复：（有点蓝）不符合条件，原来的数据是怎么样就肯...  发帖心情 Post By：2020/12/8 12:05:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：%2sbdsxu)%x3}7lxx6q6$l.png
图片点击可在新窗口打开查看
跳出这个窗口显示的列名是正确的，不过关闭不了这个窗口，点ok或关闭按钮，又会重新跳出来
 回到顶部
帅哥哟，离线，有人找我吗？
温馨的大树
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00 		回复：出现报错，msgbox显示正确，执行计算结果也对  发帖心情 Post By：2020/12/8 13:01:00 [显示全部帖子]

现在有些奇怪，执行中msgbox,显示 ：DT_2H_固定，是正确的，然后执行程序，会出现下面的提示窗口，但是计算结果又是我想要的结果，这个是什么情况啊？

图片点击可在新窗口打开查看此主题相关图片如下：p(`ei@`%$n`k)zys8`plm.png
图片点击可在新窗口打开查看



[此贴子已经被作者于2020/12/8 13:09:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
温馨的大树
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00 		收款减去车费，不能实现自动计算，找不出哪里又出问题了  发帖心情 Post By：2020/12/8 15:00:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "员工_姓名","调度操作_订单结果","调度操作_收款","价格收款_WT","调度操作_单位","调度操作_车费"
        If dr("调度操作_订单结果") = "成功" AndAlso dr.IsNull("员工_姓名") = False Then
            Dim dr5 As DataRow = DataTables("员工数据表").Find("员工_姓名 = '" & dr("员工_姓名") &"'")
            If dr5 IsNot Nothing Then
                If dr("价格收款_WT") = False AndAlso dr.IsNull("调度操作_单位") = False Then
                    Dim str1 As String = "DT_"&"" & dr("调度操作_单位") &""&"_固定"
                    Dim str2 As String = "DT_"&"" & dr("调度操作_单位") &""&"_保底"
                    Dim str3 As String = "DT_"&"" & dr("调度操作_单位") &""&"_分成"
                    If dr5.IsNull(str1) = False Then
                        dr("员工收入") = dr5(str1)
                    Else If dr5.IsNull(str2) = True AndAlso dr5.IsNull(str3) = False Then
                        dr("员工收入") = (dr("调度操作_收款") - dr("调度操作_车费")) * dr5(str3)
                    Else If dr5.IsNull(str2) = False AndAlso dr5.IsNull(str3) = False Then
                        dr("员工收入") = (dr("调度操作_收款") - dr("调度操作_车费"))  * dr5(str3)
                        If dr("员工收入") < dr5(str2) Then
                            dr("员工收入") = dr5(str2)
                        Else
                            dr("员工收入") = (dr("调度操作_收款") - dr("调度操作_车费")) * dr5(str3)
                        End If
                    End If
                End If
            End If
        End If
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05762 秒, 5 次数据查询