外部数据源后台数据统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 外部数据源后台数据统计

共有9418人关注过本帖树形打印复制链接主题：外部数据源后台数据统计

erdbeer

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

加好友

发短信

等级：一尾狐帖子：447 积分：4793 威望：0 精华：0 注册：2010/4/11 14:09:00

外部数据源后台数据统计 发帖心情

Post By：2012/8/29 23:29:00 [只看该作者]

用的是外部数据源，access的

想要有个按钮，能计算出：

在窗口的控件中输入日期后，想要统计，表A中 B列的数据总和（B列是单整型的表达式列），加总的条件是C列日期小于等于输入的日期

请教高手，这样的代码怎么写啊？

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/8/30 8:26:00 [只看该作者]

Dim cmd As New SQLCommand
cmd.Connection Name = "数据源名称"
cmd.CommandText ="Select sum("数量") As 总和 Where 日期 < #" & 你输入的日期 & "#"
Dim Val As Double = cmd.ExecuteScalar

erdbeer

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

加好友

发短信

等级：一尾狐帖子：447 积分：4793 威望：0 精华：0 注册：2010/4/11 14:09:00

Post By：2012/9/3 13:45:00 [只看该作者]

Dim i As Date =e.Form.Controls("DateTimePicker1").Value
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText ="Select sum("余额") As 余额 From{定单明细} Where 付款日期 <= # "& i & "#"
Dim Val As Double = cmd.ExecuteScalar

按钮的代码我用上面这段，提示以下错误信息提示

图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/9/3 16:03:00 [只看该作者]

Dim cmd As New SQLCommand
cmd.Connection Name = "数据源名称"
cmd.CommandText ="Select sum(数量) As 总和 Where 日期 < #" & 你输入的日期 & "#"
Dim Val As Double = cmd.ExecuteScalar

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

主题：外部数据源后台数据统计