- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88795)
-- 发布时间：2016/8/9 17:02:00
-- 代码
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
这段代码 怎么有的数据表可以用 有个不能用呢 设置都是一样的
-- 发布时间：2016/8/9 17:44:00
--
不能用提示什么？报什么错？
http://www.foxtable.com/webhelp/scr/1797.htm
-- 发布时间：2016/8/9 19:42:00
-- 回复：（大红袍） 不能用提示什么？报什么错？...
提示 什么COM 工厂组件 截图找不到了
-- 发布时间：2016/8/9 20:27:00
--
这段代码没问题，有问题，上传实例说明。
-- 发布时间：2016/8/10 10:43:00
-- 回复：（大红袍）?这段代码没问题，有问题，上传...
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2016/8/10 11:06:00
--
我测试没问题。
试试先卸载重装你的foxtable。
-- 发布时间：2016/8/10 11:24:00
-- 回复：（大红袍） 我测试没问题。 &nbs...
在另外一个数据表 怎么可以呢
-- 发布时间：2016/8/10 11:31:00
-- 回复：（大红袍） 我测试没问题。 &nbs...
此主题相关图片如下：柔柔弱弱.png
出现这种提示 另外在别的电脑上也是不行 之前我说的是油品发货表
-- 发布时间：2016/8/10 11:34:00
--
汗，你报的错根本就不是你说的那个错啊。
如果提示 _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
-- 发布时间：2016/8/10 11:38:00
-- 回复：（大红袍）汗，你报的错根本就不是你说的那个错...
我知道 这个是新出的 错误提示