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

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

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

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

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

测试没有问题，注意凡是label增加合计的都代码改为

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

要把每3位显示的逗号分隔符去掉

yangwenghd

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

加好友

发短信

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

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

谢谢这段要报警是为什么啊

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

Dim r2 As DataRow = DataTables("公帐账目").Compute("sum(收款金额)", "公帐支出日期 >= #" & d & "# and 公帐支出日期 desc")

If r2 IsNot Nothing Then

Forms("窗口1").Controls("Label076").Text = Format(r2("公帐支出金额"), "#,###")

Else

Forms("窗口1").Controls("Label076").Text = 0

End If

Label076等于公帐账目表收款金额列最后一个月的合计如果没有就显示为0

感谢你了

yangwenghd

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

加好友

发短信

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

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

Forms("财务汇总窗口").Controls("Label34").Text = (Format(val(e.Form.Controls("Label53").Text.replace(",","")) - val(e.Form.Controls("Label142").Text.replace(",",""))) / val(e.Form.Controls("Label142").Text.replace(",",""), "00.0%") '负债率

这个是那个不对啊

Label34 = (Label53-Label42)/Label53*100%

感谢感谢

铜豌豆之首

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

加好友

发短信

等级：幼狐帖子：91 积分：732 威望：0 精华：0 注册：2016/3/8 11:20:00

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

意思要写代码才能实现

若是要写代码才能实现，那么写了放哪里

大红袍

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

加好友

发短信

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

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

53楼有什么问题？上传实例说明。

yangwenghd

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

加好友

发短信

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

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

是这样的谢谢你

Label076想求支出账目表合计价格列一个当月合计如果没有当月的数据就默认为0

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

Dim i As Double = DataTables("支出账目").Compute("sum(合计价格)", "支出日期 >= #" & d & "# and 支出日期 < #" & d.AddMonths(1) & "#") '当月公帐支出合计

Forms("财务汇总窗口").Controls("Label076").Text = iif(i = 0, 0, format(i, "#,###"))

Else

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

End If

感谢感谢

大红袍

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

加好友

发短信

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

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

直接写啊

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

Dim i As Double = DataTables("支出账目").Compute("sum(合计价格)", "支出日期 >= #" & d & "# and 支出日期 < #" & d.AddMonths(1) & "#") '当月公帐支出合计

Forms("财务汇总窗口").Controls("Label076").Text = iif(i = 0, 0, format(i, "#,###"))

yangwenghd

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

加好友

发短信

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

Post By：2016/8/25 7:59:00 [只看该作者]

为什么改成上个月就不显示了啊

感谢感谢

Dim c As Double = DataTables("支出账目").Compute("sum(合计价格)", "支出日期 >= #" & d & "# and 支出日期 < #" & d.AddMonths(-1) & "#") '上月公帐支出

Forms("财务汇总窗口").Controls("Label074").Text = iif(a = 0, 0, format(c, "#,###"))'当月公帐支出

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/8/25 8:54:00 [只看该作者]

Forms("财务汇总窗口").Controls("Label074").Text = iif(c = 0, 0, format(c, "#,###"))

yangwenghd

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

加好友

发短信

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

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

谢谢谢谢

如果这段没有结果显示为0应该怎么改一下啊谢谢谢谢

Forms("财务汇总窗口").Controls("Label260").Text = Format(val(e.Form.Controls("Label074").Text.replace(",","")) + val(e.Form.Controls("Label075").Text.replace(",","")), "#,###")

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

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

主题：Label计算结果