需要做一个查询排单时间的功能！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 需要做一个查询排单时间的功能！

共有3622人关注过本帖树形打印复制链接主题：需要做一个查询排单时间的功能！

身份不明

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00

需要做一个查询排单时间的功能！ 发帖心情

Post By：2014/7/9 16:26:00 [显示全部帖子]

业务员下单子需要一个查询表，来查询轮转排单和平张排单2个表中的预估用时。

比如轮转排单界面有30个订单，这个30个订单预估用时的和是120小时。

平张排单有30个订单，预估用时间的和是60小时。

如果让业务员通过窗口可以直接查询这2个表里预估用时，只看总用时。

身份不明

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00

Post By：2014/7/9 16:48:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:datacolchanged.foxdb

身份不明

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00

Post By：2014/7/9 17:35:00 [显示全部帖子]

以下是引用有点甜在2014-7-9 16:57:00的发言：
是将表B、表C所有数据相加？表B多少，表C多少？

表B和表C中还有个“印刷完成”的逻辑列，将表B和表C中“印刷完成”为否的相加，求预估用时的列的合。

身份不明

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00

Post By：2014/7/9 17:40:00 [显示全部帖子]

错误提示：

.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.5.12.1
错误所在事件：窗口,订单主窗口,Button03,Click
详细错误信息：
无效的聚合函数 Sum()和类型 String 的用法。

身份不明

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00

Post By：2014/7/9 17:45:00 [显示全部帖子]

以下是引用有点甜在2014-7-9 17:36:00的发言：

Dim b As Double=DataTables("表B").Compute("sum(预估用时)", "印刷完成 = false")

Dim c As Double=DataTables("表C").Compute("sum(预估用时)", "印刷完成 = false")

messagebox.show(b+C)

如何分开来显示呢，显示表B与表C的。

身份不明

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00

Post By：2014/7/9 17:47:00 [显示全部帖子]

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("业务员")
g.Totals.AddDef("总价")
g.Totals.AddDef("产品名称", AggregateEnum.Count, "下单数量")
g.SubTotal = True
g.FromServer = True
g.Build()
MainTable = Tables("统计表1")

通过代码统计完数据后，行数比较多，想直接显示最低行，下拉起来比较麻烦！

身份不明

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00

Post By：2014/7/9 18:30:00 [显示全部帖子]

Dim b As Double=DataTables("轮转排单").SQLCompute("sum(预估用时)", "印刷完成 = 0")
Dim c As Double=DataTables("平张排单").SQLCompute("sum(预估用时)", "印刷完成 = 0")
messagebox.show("轮转排单(单位:小时):" & b & " 平张排单(单位:小时):" & C)

如果是SQL数据库，自动统计后台数据，这样写对吗，测试了几次不准确，是否要添加刷新的代码！

下一主题 >> << 上一主题

主题：需要做一个查询排单时间的功能！