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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Label计算结果

共有9531人关注过本帖树形打印复制链接主题：Label计算结果

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/17 16:53:00 [显示全部帖子]

你能不能先请把帮助文档看一遍啊，什么最后一行啊，这样获取的数据不准确啊

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

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/17 17:19:00 [显示全部帖子]

其余自己做

Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
Dim sum1 As String = DataTables("订单附表").Compute("sum(订单核算_销售额)", "订单日期 >= #" & d & "# and 订单日期 < #" & d.AddMonths(1) & "#")
Dim sum2 As String = DataTables("订单附表").Compute("sum(订单核算_销售额)", "订单日期 >= #" & d.AddMonths(-1) & "# and 订单日期 < #" & d & "#")

msgbox("本月" & sum1)
msgbox("上月" & sum2)

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/17 18:27:00 [显示全部帖子]

你的表结构有问题啊，不要去取某一行的表数据啊，而是通过统计得出啊

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/17 19:59:00 [显示全部帖子]

参考代码

Dim r1 As DataRow = DataTables("订单附表").find("订单日期 >= #" & d & "# and 订单日期 < #" & d.AddMonths(1) & "#", "订单日期 desc")
If r1 IsNot Nothing Then
msgbox(r1("订单核算_利润"))
End If

msgbox("本月" & sum1)
msgbox("上月" & sum2)