Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]计算过程中突然退出


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

主题：[求助]计算过程中突然退出
帅哥哟，离线，有人找我吗？
lgj716330
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1368 积分：10568 威望：0 精华：0 注册：2013/11/8 15:27:00 		[求助]计算过程中突然退出  发帖心情 Post By：2021/1/12 9:20:00 [只看该作者]

下面代码在计算过程中突然退出，应该是进入了死循环，怎么解决
Select Case e.DataCol.Name
    Case "款式编号","采购成本金额","结余成本金额","采购数量","结余数量"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [款式编号] = '" & mr("款式编号") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("结余成本单价") = (mr("采购成本金额")+mr("结余成本金额"))/(mr("采购数量")+mr("结余数量"))
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [款式编号] = '" & dr("款式编号") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("结余成本单价") = (drs(i-1)("结余成本金额") + drs(i)("采购成本金额"))/(drs(i-1)("结余数量")+drs(i)("采购数量"))
        Next
        If e.DataCol.Name = "款式编号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [款式编号] = '" & e.OldValue & "'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[款式编号] = '" & e.OldValue & "'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("结余成本单价") = (dr("采购成本金额")+dr("结余成本金额"))/(dr("采购数量")+dr("结余数量"))
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [款式编号] = '" & dr("款式编号") & "'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("结余成本单价") = (drs(i-1)("结余成本金额") + drs(i)("采购成本金额"))/ (drs(i-1)("结余数量")+drs(i)("采购数量"))
                Next
            End If
        End If
End Select

Select Case e.DataCol.Name
    Case "结余成本单价","零售数量"
        e.DataRow("零售成本金额")=e.DataRow("零售数量")*e.DataRow("结余成本单价")
End Select

Select Case e.DataCol.Name
    Case "结余成本单价","结余数量"
        e.DataRow("结余成本金额")=e.DataRow("结余数量")*e.DataRow("结余成本单价")
End Select
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/12 9:29:00 [只看该作者]

Select Case e.DataCol.Name
    Case "款式编号","采购成本金额","结余成本金额","采购数量","结余数量"
systemready=false
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [款式编号] = '" & mr("款式编号") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("结余成本单价") = (mr("采购成本金额")+mr("结余成本金额"))/(mr("采购数量")+mr("结余数量"))
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [款式编号] = '" & dr("款式编号") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("结余成本单价") = (drs(i-1)("结余成本金额") + drs(i)("采购成本金额"))/(drs(i-1)("结余数量")+drs(i)("采购数量"))
        Next
        If e.DataCol.Name = "款式编号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [款式编号] = '" & e.OldValue & "'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[款式编号] = '" & e.OldValue & "'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("结余成本单价") = (dr("采购成本金额")+dr("结余成本金额"))/(dr("采购数量")+dr("结余数量"))
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [款式编号] = '" & dr("款式编号") & "'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("结余成本单价") = (drs(i-1)("结余成本金额") + drs(i)("采购成本金额"))/ (drs(i-1)("结余数量")+drs(i)("采购数量"))
                Next
            End If
        End If
systemready=true
End Select

Select Case e.DataCol.Name
    Case "结余成本单价","零售数量"
        e.DataRow("零售成本金额")=e.DataRow("零售数量")*e.DataRow("结余成本单价")
End Select

Select Case e.DataCol.Name
    Case "结余成本单价","结余数量"
systemready=false
        e.DataRow("结余成本金额")=e.DataRow("结余数量")*e.DataRow("结余成本单价")
systemready=true
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1368 积分：10568 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2021/1/12 9:57:00 [只看该作者]

但这样出来的结果显示结余成本单价是“非数字”

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/12 9:58:00 [只看该作者]

出现了除以0的操作，判断一下被除数为0，就直接给结余成本单价赋值0

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


加好友 发短信
等级：六尾狐 帖子：1368 积分：10568 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2021/1/12 10:15:00 [只看该作者]

不是这个原因
把这里的systemready去掉后，零售数量是空的结果都为0，其他可以计算
Select Case e.DataCol.Name
    Case "结余成本单价","结余数量"
        e.DataRow("结余成本金额")=e.DataRow("结余数量")*e.DataRow("结余成本单价")
End Select

然后改成下面这样，好象可以了，不明白其中道理
Select Case e.DataCol.Name
    Case "结余成本单价","结余数量"，“零售数量”，“采购数量”
        e.DataRow("结余成本金额")=e.DataRow("结余数量")*e.DataRow("结余成本单价")
End Select
[此贴子已经被作者于2021/1/12 10:16:05编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询