- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 第三方软件调用问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116505)
-- 发布时间：2018/3/25 23:42:00
-- [求助] 第三方软件调用问题
求解，想从第三方软件sql数据库查询并引用，统计数据，尝试用了查询表加载，但是无法引用参与计算。以数据表的形式加载进来怕动了相关数据导致第三方软件崩溃，且加载进来后表头比较乱。必须使用sql语言调用需要的数据吗，sql基础很差。还有个问题是，数据库某表，增加一个数据后，根据类型，在foxtable里增加一行记录如何实现。感谢，
-- 发布时间：2018/3/26 8:37:00
--
1、查询表为什么不可以？具体说明
http://www.foxtable.com/webhelp/scr/2321.htm
2、foxtable显示数据库的数据，只能定时刷新，无法和数据库即时交互的（即新增、删除，里面触发某些代码）
http://www.foxtable.com/webhelp/scr/0657.htm
-- 发布时间：2018/3/26 18:59:00
--
Select e.DataCol.Name
Case "罐体编号"
Dim sum2 As Double
sum2 = DataTables("加油记录明细查询表").Compute("Sum(升数)","[日期] = \'" & e.DataRow("汇总日期") & "\'")
e.DataRow("销售出库") = sum2
End Select
"加油记录明细查询表"是通过数据库导入后，通过别名生成的。无法统计
[此贴子已经被作者于2018/3/26 18:59:58编辑过]
-- 发布时间：2018/3/26 19:01:00
--
Select e.DataCol.Name
Case "罐体编号"
Dim sum2 As Double
sum2 = DataTables("加油记录明细查询表").Compute("Sum(升数)","[日期] = \'" & e.DataRow("汇总日期") & "\'")
e.DataRow("销售出库") = sum2
End Select
"加油记录明细查询表"是通过数据库查询表导入后，通过别名生成的。无法统计
[此贴子已经被作者于2018/3/26 19:01:18编辑过]
-- 发布时间：2018/3/26 20:37:00
--
测试没有问题，日期条件有问题吧
-- 发布时间：2018/3/26 23:49:00
--
日期确实有问题，时间格式是个长日期格式（datelongtime),那么如何按天统计呢，代码试了几个，没想出来。。。
-- 发布时间：2018/3/27 8:51:00
--
以下是引用wei447221918在2018/3/26 23:49:00的发言：
日期确实有问题，时间格式是个长日期格式（datelongtime),那么如何按天统计呢，代码试了几个，没想出来。。。
日期确实有问题，时间格式是个长日期格式（datelongtime),那么如何按天统计呢，代码试了几个，没想出来。。。
改成这样
Select e.DataCol.Name
Case "罐体编号"
Dim sum2 As Double
sum2 = DataTables("加油记录明细查询表").Compute("Sum(升数)","[日期] >= #" & e.DataRow("汇总日期") & "# and [日期] < #" & cdate(e.DataRow("汇总日期")).AddDays(1) & "#")
e.DataRow("销售出库") = sum2
End Select