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


  共有9530人关注过本帖树形打印复制链接

主题：Label计算结果
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		Label计算结果  发帖心情 Post By：2016/8/17 16:50:00 [显示全部帖子]

谢谢了，如果直接统计到Label该怎么写啊 
比如：Label1 等于这个月 表A 的日期 列为这个月  第一列 数据 和
 Label2等于这个月 表A 的日期 列为上个月 第一列 数据 和
Label3 等于这个月 表A 的日期 列为这个月  第二列 数据  最后一行的那内容
Label4 等于这个月 表A 的日期 列为上个月  第二列 数据  最后一行的那内容
Label5 等于这个月 表A 的日期 列为前3个月第一列合计减前两个月合计在除以前3个月合计，乘以百分之百，就这几个请求，后面基本上就没有什么问题了，辛苦你们了。谢谢 谢谢 谢谢
 再麻烦你们一下了。
[此贴子已经被作者于2016/8/17 16:54:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/17 17:12:00 [显示全部帖子]

麻烦大家了，感谢 感谢 ，
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:临时统计.table

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160817170116.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：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 & "#" )
 怎么还是不对呢？看了一下午 ，头都看晕了 感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/17 18:42:00 [显示全部帖子]

是这样的，因为里面有流水账的程序，label 是为了得到某个月剩下的数据，所以提取的上月最后一天的最后一行数据，是这样的，麻烦你了。

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/17 19:20:00 [显示全部帖子]

能再帮我看看是那里不对吗？麻烦你了，谢谢，就剩这几个问题了，感谢 感谢 。

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：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
这段代码可以改成一段吗？
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/17 21:21:00 [显示全部帖子]

是这样的 因为 label要计算的特别多，下午可以简化一下，这样就可以方便检查，我就是向请教你 可以把后面的一段变成一行的代码去执行吗？感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/17 22:22:00 [显示全部帖子]

就是一行代码就可以形成
就像
Forms("财务汇总窗口").Controls("Label177").Text = DataTables("订单附表").Compute("sum(订单核算_采购合计)", "业务往来_订单日期 >= #" & d.AddMonths(-1) & "# and 业务往来_订单日期 < #" & d & "#")
一条（行）就可以得到结果，


[此贴子已经被作者于2016/8/17 22:27:16编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/17 22:41:00 [显示全部帖子]

Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
Forms("窗口1").Controls("Label1").Text = DataTables("订单附表").Compute("sum(订单核算_销售额)", "订单日期 >= #" & d & "# and 订单日期 < #" & d.AddMonths(1) & "#") '统计当月
Forms("窗口1").Controls("Label2").Text =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
  Forms("窗口1").Controls("Label3").Text = (r1("订单核算_利润"))
End If
Dim r2 As DataRow = DataTables("订单附表").find("订单日期 >= #" & d & "# and 订单日期 < #" & d.AddMonths(-1) & "#", "订单日期 desc")
If r2 IsNot Nothing Then
  Forms("窗口1").Controls("Label4").Text = (r2("订单核算_利润"))
End If

为什么 Label4 不能显示吗？
能帮忙  订单核算_销售额 日期列  上月合计 减去本月合计  除以上个月合计 乘以百分之百应该怎么写啊！ 感谢 感谢 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:临时统计.table
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/17 23:38:00 [显示全部帖子]

感谢 订单核算_销售额 日期列  上月合计 减去本月合计  除以上个月合计 乘以百分之百应该怎么写啊！ 感谢 感谢 
如果数据没有怎么让他显示为0啊 
[此贴子已经被作者于2016/8/18 8:52:57编辑过]
 回到顶部
总数 42 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06787 秒, 7 次数据查询