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


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

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


加好友 发短信
等级：超级版主 帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/8 13:36:00 [只看该作者]

dr("调度操作_单位")是空值没有数据，生成的列名就不正确了

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


加好友 发短信
等级：童狐 帖子：231 积分：1751 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/8 15:06:00 [只看该作者]

               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 dr5.IsNull(str3) = False Then
                        dr("员工收入") = (dr("调度操作_收款") - dr("调度操作_车费")) * dr5(str3)
                    End If
                        If dr("员工收入") < dr5(str2) Then
                            dr("员工收入") = dr5(str2)
                        End If

                End If
 回到顶部
总数 13 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03601 秒, 4 次数据查询