以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Label计算结果  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89230)
--  作者：yangwenghd
--  发布时间：2016/8/17 16:50:00
--  Label计算结果
谢谢了，如果直接统计到Label该怎么写啊 
比如：Label1 等于这个月 表A 的日期 列为这个月  第一列 数据 和
 Label2等于这个月 表A 的日期 列为上个月 第一列 数据 和
Label3 等于这个月 表A 的日期 列为这个月  第二列 数据  最后一行的那内容
Label4 等于这个月 表A 的日期 列为上个月  第二列 数据  最后一行的那内容
Label5 等于这个月 表A 的日期 列为前3个月第一列合计减前两个月合计在除以前3个月合计，乘以百分之百，就这几个请求，后面基本上就没有什么问题了，辛苦你们了。谢谢 谢谢 谢谢
 再麻烦你们一下了。
[此贴子已经被作者于2016/8/17 16:54:37编辑过]
--  作者：大红袍
--  发布时间：2016/8/17 16:53:00
--  

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

 

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

 
--  作者：yangwenghd
--  发布时间：2016/8/17 17:12:00
--  
麻烦大家了，感谢 感谢 ，
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:临时统计.table

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160817170116.jpg
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：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)
--  作者：yangwenghd
--  发布时间：2016/8/17 18:09:00
--  
Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
Forms("窗口1").Controls("Label3").Text = Tables("订单附表").Rows(Tables("订单附表").Rows.count-1("订单核算_销售额")", "订单日期 >= #" & d.AddMonths (1) & "# and 订单日期 < #" & d & "#" )
 怎么还是不对呢？看了一下午 ，头都看晕了 感谢 感谢 
--  作者：大红袍
--  发布时间：2016/8/17 18:27:00
--  
 你的表结构有问题啊，不要去取某一行的表数据啊，而是通过统计得出啊
--  作者：yangwenghd
--  发布时间：2016/8/17 18:42:00
--  
是这样的，因为里面有流水账的程序，label 是为了得到某个月剩下的数据，所以提取的上月最后一天的最后一行数据，是这样的，麻烦你了。
--  作者：yangwenghd
--  发布时间：2016/8/17 19:20:00
--  
能再帮我看看是那里不对吗？麻烦你了，谢谢，就剩这几个问题了，感谢 感谢 。
--  作者：大红袍
--  发布时间：2016/8/17 19:59: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 & "#")

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)
--  作者：yangwenghd
--  发布时间：2016/8/17 20:38:00
--  
感谢你 
Dim r1 As DataRow = DataTables("订单附表").find("订单日期 >= #" & d & "# and 订单日期 < #" & d.AddMonths(1) & "#", "订单日期 desc")
If r1 IsNot Nothing Then
  Forms("窗口1").Controls("Label3").Text = (r1("订单核算_利润"))
End If
这段代码可以改成一段吗？