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

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

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

yangwenghd

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

加好友

发短信

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

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

谢谢谢谢为什么这个算出来不是真实的结果是把位数连接起来。

e.Form.Controls("Label73").Text = e.Form.Controls("Label076").Text + e.Form.Controls("Label139").Text

yangwenghd

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

加好友

发短信

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

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

谢谢能问问我可以把这三段编辑为一段吗？比如如果没有结果显示等于0，和没3位用逗号分开。感谢感谢

大红袍

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

加好友

发短信

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

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

e.Form.Controls("Label73").Text = Format(val(e.Form.Controls("Label076").Text) + val(e.Form.Controls("Label139").Text), "#,###")

yangwenghd

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

加好友

发短信

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

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

谢谢如果代码不提行可以加入两个功能吗？如果没有结果就是0 和每三位一个逗号（这个功能都可以省略，主要还是等于0这个功能，如果不显示0就不能计算。感谢感谢）

大红袍

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

加好友

发短信

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

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

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

yangwenghd

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

加好友

发短信

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

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

谢谢你，我看懂了的谢谢你，

我的意思是下面这段代码可以不提行在没有结果的时候显示为0可以吗？

因为 label要计算的太多了，如果提行看起就很复杂，容易出错，如果能在后面加代码也能达到这个功能就好了，即使长点都没事。麻烦你了

Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)

Forms("财务汇总窗口").Controls("Label076").Text = DataTables("支出账目").Compute("sum(合计价格)", "支出日期 >= #" & d & "# and 支出日期 < #" & d.AddMonths(1) & "#") '当月公帐支出

Forms("财务汇总窗口").Controls("Label074").Text =DataTables("支出账目").Compute("sum(合计价格)", "支出日期 >= #" & d.AddMonths(-1) & "# and 支出日期 < #" & d & "#")

yangwenghd

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

加好友

发短信

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

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

Forms("财务汇总窗口").Controls("Label074").Text =DataTables("支出账目").Compute("sum(合计价格)", "支出日期 >= #" & (d.AddMonths(-1) & "# and 支出日期 < #" & d & "#")"#,###")

这个是那里不对啊！

大红袍

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

加好友

发短信

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

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

Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
Forms("财务汇总窗口").Controls("Label076").Text = format(DataTables("支出账目").Compute("sum(合计价格)", "支出日期 >= #" & d & "# and 支出日期 < #" & d.AddMonths(1) & "#"), "#,###") '当月公帐支出
Forms("财务汇总窗口").Controls("Label074").Text = format(DataTables("支出账目").Compute("sum(合计价格)", "支出日期 >= #" & d.AddMonths(-1) & "# and 支出日期 < #" & d & "#"), "#,###")