主题：如何将进仓数量加入盘点中的本月进口数量

关键就是没变化，进仓新增后，盘点表也一点变化也没有

现在就是盘点表一点变化也没有，不管进仓表如何变化，这是怎么一回事呢？

 试试这样

 

Select Case e.DataCol.name
    Case "数量","单价"
        If e.DataRow.Isnull("数量") Then
            e.DataRow("金额") = Nothing
        Else
            e.DataRow("金额") = e.DataRow("单价") * e.DataRow("数量")            
        End If

        Dim fdr As DataRow = DataTables("盘点表").Find("存货名称 ='" & e.DataRow("存货名称") & "'")
        If fdr Is Nothing Then
            fdr = DataTables("盘点表").AddNew

            fdr("存货名称") = e.DataRow("存货名称")
        End If
        fdr("本月入库数量") = DataTables("进仓").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "'")
End Select

盘点表还是没有变化呀，一点变化没有，这到底是该怎么办？

换了你的代码，还是没有用，看来不是代码的问题。

 

只要你修改了数量或者单价，那么，就会触发事件统计进仓表的数量，你的代码，要写在进仓表的Datacolchanged事件。

 

如果事件写对了，不可能一点变化都没有。

真的一点变化都没有，你可以下载我的项目看一下，如果这么简单，我也不会一直发贴，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:祥泰仓库管理系统.rar

 改了单价，会统计对应存货名称的本月入库数量

 

Select Case e.DataCol.name
    Case "数量","单价"
        If e.DataRow.Isnull("数量") Then
            e.DataRow("金额") = Nothing
        Else
            e.DataRow("金额") = e.DataRow("单价") * e.DataRow("数量")            
        End If

        Dim fdr As DataRow = DataTables("盘点表").Find("存货名称 ='" & e.DataRow("存货名称") & "'")
        If fdr Is Nothing Then
            fdr = DataTables("盘点表").AddNew

            fdr("存货名称") = e.DataRow("存货名称")
        End If
        fdr("本月入库数量") = DataTables("进仓").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "'")
End Select

不是代码的问题，我按照你的方式做了，还是没有用，不知道什么原因？

你能否下载我项目，帮忙看一下呢？谢谢