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

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

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

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/18 10:05:00 [只看该作者]

能帮忙看看这个吗？现在是显示的上个月的最后一天，不是最后一天的后一行，能在帮忙看看吗？

Dim r2 As DataRow = DataTables("现金明细").find("变动日期 >= #" & d.AddMonths(-1) & "# and 变动日期 < #" & d & "#", "变动日期 desc")

If r2 IsNot Nothing Then

Forms("财务汇总窗口").Controls("Label069").Text = (r2("可控金额"))

End If

大红袍

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

加好友

发短信

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

Post By：2016/8/18 10:20:00 [只看该作者]

不明白你说的最后一行的后一行有什么意义啊。先去理清你数据的思路啊。

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/18 10:26:00 [只看该作者]

Dim r3 As DataRow = DataTables("现金明细").find("变动日期 >= #" & d & "# and 变动日期 < #" & d.AddMonths(1) & "#", "变动日期 desc")

If r3 IsNot Nothing Then

Dim d3 As Double = (r3("可控金额"))

End If '当月剩余

Dim r4 As DataRow = DataTables("现金明细").find("变动日期 >= #" & d & "# and 变动日期 < #" & d.AddMonths(-1) & "#", "变动日期 desc")

If r4 IsNot Nothing Then

Dim d4 As Double = (r4("可控金额"))

End If '当月剩余

Forms("财务汇总窗口").Controls("Label158").Text = (Format((d4-d3)/d4,"00.0%")) '计算增长比例

如果把上个月和这个月的可控资金列日期的最后一天的最后一行互相做比较这个是那里不对啊

大红袍

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

加好友

发短信

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

Post By：2016/8/18 10:29:00 [只看该作者]

获取不到。看不到你的意义。

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/18 12:34:00 [只看该作者]

比如这个月有里面日期列里面输入的最后一天日期是 2016.07.24 ，有两个或者五个16.07.24号，然后就显示 2016.07.24最后的一行可控资金列

感谢感谢

大红袍

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

加好友

发短信

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

Post By：2016/8/18 14:51:00 [只看该作者]

Dim r3 As DataRow = DataTables("现金明细").find("变动日期 >= #" & d & "# and 变动日期 < #" & d.AddMonths(1) & "#", "变动日期 desc,_Identify desc")

If r3 IsNot Nothing Then

Dim d3 As Double = (r3("可控金额"))

End If '当月剩余

Dim r4 As DataRow = DataTables("现金明细").find("变动日期 >= #" & d & "# and 变动日期 < #" & d.AddMonths(-1) & "#", "变动日期 desc,_Identify desc")

If r4 IsNot Nothing Then

Dim d4 As Double = (r4("可控金额"))

End If '当月剩余

Forms("财务汇总窗口").Controls("Label158").Text = (Format((d4-d3)/d4,"00.0%")) '计算增长比例

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/18 15:13:00 [只看该作者]

谢谢太感谢了，为什么那一列如果没有计算的就不显示了啊，可以是当没有结果的时候显示结果为0啊

label 可以设置宽度中间为基础显示吗？比如显示一个字符和两个字符的时候 label 的中间不变，宽度扩张是向两边，

Label 可以设置像财务那样每3位就用逗号隔开，感谢感谢

[此贴子已经被作者于2016/8/18 15:21:22编辑过]

大红袍

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

加好友

发短信

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

Post By：2016/8/18 16:07:00 [只看该作者]

1、3

Dim r2 As DataRow = DataTables("现金明细").find("变动日期 >= #" & d.AddMonths(-1) & "# and 变动日期 < #" & d & "#", "变动日期 desc")

If r2 IsNot Nothing Then

Forms("财务汇总窗口").Controls("Label069").Text = Format(r2("可控金额"), "#,###")

Else

Forms("财务汇总窗口").Controls("Label069").Text = 0

End If

2、不行

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/18 16:24:00 [只看该作者]

感谢感谢

下面这两段代码可以实现 1和3的功能吗？感谢感谢

e.Form.Controls("Label60").Text = Format(Val(DataTables("企业档案").Compute("sum(财务_未付款合计)")),"#.00") '在运行资金

Forms("财务汇总窗口").Controls("Label95").Text = DataTables("订单附表").Compute("sum(订单核算_采购合计)", "业务往来_订单日期 >= #" & d & "# and 业务往来_订单日期 < #" & d.AddMonths(1) & "#") Else Forms("财务汇总窗口").Controls("Label95").Text = 0

大红袍

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

加好友

发短信

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

Post By：2016/8/18 16:33:00 [只看该作者]

直接写就行啊

Forms("财务汇总窗口").Controls("Label95").Text = DataTables("订单附表").Compute("sum(订单核算_采购合计)", "业务往来_订单日期 >= #" & d & "# and 业务往来_订单日期 < #" & d.AddMonths(1) & "#")

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

总数 74 上一页 1 2 3 4 5 6 7 8 下一页

主题：Label计算结果