Foxtable(狐表) → 用户栏目 → 专家坐堂 → 计算余数代码问题


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

主题：计算余数代码问题
帅哥哟，离线，有人找我吗？
edisontsui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1501 积分：9731 威望：0 精华：0 注册：2014/12/18 16:12:00 		计算余数代码问题  发帖心情 Post By：2020/7/15 19:02:00 [只看该作者]

'用于计算余数
Dim drs As New List(of DataRow)
With DataTables("出入库")
    For Each nm As String In .GetValues("物料编号") '找出每个物料编号的第一行数据, 添加到集合drs中
        drs.Add(.Find("物料编号 = '" & nm & "'", "[_SortKey]"))
    Next
    For Each r As DataRow In drs
        .DataCols("出入库数量").RaiseDataColChanged(r) '重置每个产品的第一行
    Next
End With
'余数计算结束

以上用于计算余数的代码是放在afteropenproject里面的，但老是出现如下警告：
.NET Framework 版本：4.0.30319.34209
Foxtable 版本：2020.5.29.8
错误所在事件：项目,AfterOpenProject
详细错误信息：
未将对象引用设置到对象的实例。

请问为什么?
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、Find查询不一定有结果，虽然理论上这里不可能没有结果，但是程序运行很多时候代码之间可能会互相干扰的，所以尽量还是先判断在使用：http://www.foxtable.com/webhelp/topics/0396.htm

2、有可能是RaiseDataColChanged，执行后"出入库数量"的datacolchanged事件有问题导致的
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1501 积分：9731 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2020/7/17 8:32:00 [只看该作者]

一、上述代码已经加了如下判断了，但还是出现一样的警告：

Dim drs As New List(of DataRow)
With DataTables("出入库")
    For Each nm As String In .GetValues("物料编号") '找出每个物料编号的第一行数据, 添加到集合drs中
        If nm IsNot Nothing Then
            drs.Add(.Find("物料编号 = '" & nm & "'", "[_SortKey]"))
        End If
    Next
    For Each r As DataRow In drs
        .DataCols("入库数量").RaiseDataColChanged(r) '重置每个产品的第一行
    Next
End With

二、“出入库”这个数据表的代码如下

datacolchanged:

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 OrElse dr("_Identify") = mr("_Identify") Then
            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)("出库数量")
        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("出库数量")
                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)("出库数量")
                Next
            End If
        End If
End Select

上面红色部分，我觉得不对，但我是从使用说明里面抄的，这段代码是否会引起那样的警告？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107035 积分：544406 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/17 9:16:00 [只看该作者]

1、判断Find的结果，不是判断GetValues的结果，这个判断没有意义

2、看不出什么问题，自己调试一下看那一句代码出错：http://www.foxtable.com/webhelp/scr/1485.htm
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1501 积分：9731 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2020/7/17 10:41:00 [只看该作者]

Select Case e.DataCol.Name
    Case "出入库数量"
 MessageBox.Show(1) 
    '自动计算余数
        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 OrElse dr("_Identify") = mr("_Identify") Then
            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)("出库数量")
        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("出库数量")
                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)("出库数量")
                Next
            End If
        End If
End Select


afteropenproject 里面的代码改好了，不会出现1楼的警告了，但是又出现另外一个警告了(如下所示)： 

.NET Framework 版本：4.0.30319.34209
Foxtable 版本：2020.5.29.8
错误所在事件：表，出入库， DataColChanged
详细错误信息：
调用的目标发生了异常。
该字符串未被识别为有效的 DateTime。

上面是“出入库”这个数据表的部分代码，我放置了 MessageBox.Show(1)，所以老是出现“1”。但是，我不知道问题的原因是什么。 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107035 积分：544406 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/17 10:53:00 [只看该作者]

Dim drs As New List(of DataRow)
With DataTables("出入库")
    For Each nm As String In .GetValues("物料编号") '找出每个物料编号的第一行数据, 添加到集合drs中
dim dr as datarow = .Find("物料编号 = '" & nm & "'", "[_SortKey]")
        If dr IsNot Nothing Then
            drs.Add(dr)
        End If
    Next
    For Each r As DataRow In drs
        .DataCols("入库数量").RaiseDataColChanged(r) '重置每个产品的第一行
    Next
End With
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1501 积分：9731 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2020/7/17 11:01:00 [只看该作者]

5楼我已经谈到，afteropenproject 里面的代码改好了，我改的跟你6楼改的是一样的。现在我的问题是在“出入库”之 datacolchanged 事件里面了。详见5楼。谢谢。

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


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

Select Case e.DataCol.Name
    Case "出入库数量"
 MessageBox.Show(1) 
    '自动计算余数
        Dim dr As DataRow
 MessageBox.Show(2)
        Dim mr As DataRow = e.DataRow
 MessageBox.Show(3)
        Dim drs As List(of DataRow)
 MessageBox.Show(4)
……

看是哪一句代码出错
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1501 积分：9731 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2020/7/17 12:00:00 [只看该作者]

1、2、3、4以及如下警告都会轮流出现：

.NET Framework 版本：4.0.30319.34209
Foxtable 版本：2020.5.29.8
错误所在事件：表，出入库， DataColChanged
详细错误信息：
调用的目标发生了异常。
该字符串未被识别为有效的 DateTime。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

每一行代码后都加上MessageBox.Show，测试看哪一个MessageBox.Show之后会出错

表，出入库， DataColChanged还有没有其他代码？提示的错误和日期有关
datacolchanged:

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 OrElse dr("_Identify") = mr("_Identify") Then
            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)("出库数量")
        Next
    Case "物料编号"
        If  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("出库数量")
                End If
            Else
                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)("出库数量")
                Next
            End If
        End If
End Select
 回到顶部
总数 31 1 2 3 4 下一页
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 次数据查询