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

在 进仓表里面的  DataColChanged  录入以下代码

 

Select Case e.DataCol.name
    Case "数量","单价"
        If e.DataRow.Isnull("数量") Then
            e.DataRow("金额") = Nothing
        Else
            e.DataRow("金额") = e.DataRow("单价") * e.DataRow("数量")
        End If
End Select
Tables("盘点表").Current("本月入库数量") = DataTables("进仓").Compute("sum(数量)","存货名称 ='" & Tables("盘点表").Current("存货名称") & "'")

有的可以统计，有的不行，如 染料代号为 Y-2的，在明细表中有体现，在盘点表中就没有，这是为什么？谢谢大家的支持。

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

点击浏览该文件:祥泰仓库管理系统.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 IsNot Nothing Then
            fdr("本月入库数量") = DataTables("进仓").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "'")
        End If
End Select

您好，就是说代码没有错，可是功能有时灵，有时不灵，有的可以统计，有的不行，但是用了“有点甜"的代码后，功能都实现了，谢谢，能否保持一直是这样的界面，为什么每次离开都要在数据统计里重新设置，才会有这样的效果，谢谢大家。

此主题相关图片如下：enhz8n5zsr3(tan1unq_gna.jpg

 小计的效果，还是合计的效果？

 

 小计的效果，你可以把统计效果的代码拷贝出来，放到AfterOpenProject里面运行

已经将子表统计的代码放入：项目属性:afteropenproject ,里面，代码如下：

Dim t As Table = Tables("盘点表.进仓")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "存货名称"
g.TotalOn = "数量,金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

t.Subtotal()

 

但是还是没有上述所工实现的功能，请教一下，这是为什么？

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

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

 代码写在表事件 PositionChanged 里

 

 

PositionChanged ：放入以下代码：

Dim t As Table = Tables("盘点表.进仓")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "存货名称"
g.TotalOn = "数量,金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

t.Subtotal()

  DataColChanged 放的代码如下：

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 IsNot Nothing Then             fdr("本月入库数量") = DataTables("进仓").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "'")         End If End Select 但是为什么，盘点表中的:本月入库数量，一点反映都没有呢？请教一下高手。

 

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

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

以手高手叫我放的项目属性，该放的都放了，问题出在哪呢？

 本月入库数量要你修改了 对应的数量和单价，才会改变啊。