主题：代码

Select Case e.DataCol.Name
     Case "购油量","发油量"
        For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
        
              Dim Val1 As Double = e.DataTable.Compute("Sum(购油量)","[_SortKey] <= " & dr("_SortKey"))
             Dim Val2 As Double = e.DataTable.Compute("Sum(发油量)","[_SortKey] <= " & dr("_SortKey"))
             dr("库存") = Val1 - Val2       
 Next
 End Select

这段代码 怎么有的数据表可以用  有个不能用呢 设置都是一样的

 不能用提示什么？报什么错？

 

http://www.foxtable.com/webhelp/scr/1797.htm

 

提示 什么COM 工厂组件  截图找不到了

 这段代码没问题，有问题，上传实例说明。

 

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

点击浏览该文件:管理项目2.table

 我测试没问题。

 

 试试先卸载重装你的foxtable。

在另外一个数据表 怎么可以呢

 

此主题相关图片如下：柔柔弱弱.png

出现这种提示  另外在别的电脑上也是不行  之前我说的是油品发货表

汗，你报的错根本就不是你说的那个错啊。

 

如果提示 _Sortkey 不存在，看这里 http://www.foxtable.com/webhelp/scr/1791.htm

 

或者改成

 

Select Case e.DataCol.Name
    Case "购油量","发油量"
        For Each dr As DataRow In e.DataTable.Select("[_Identify] >= " & e.DataRow("_Identify"))
           
            Dim Val1 As Double = e.DataTable.Compute("Sum(购油量)","[_Identify] <= " & dr("_Identify"))
            Dim Val2 As Double = e.DataTable.Compute("Sum(发油量)","[_Identify] <= " & dr("_Identify"))
            dr("库存") = Val1 - Val2
        Next
End Select

我知道 这个是新出的 错误提示