在 进仓表里面的  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

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

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

 小计的效果，你可以把统计效果的代码拷贝出来，放到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 放的代码如下：

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

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