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

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

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

大红袍

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

加好友

发短信

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

Post By：2016/8/18 22:52: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, "#,###"))
i = DataTables("支出账目").Compute("sum(合计价格)", "支出日期 >= #" & d.AddMonths(-1) & "# and 支出日期 < #" & d & "#")
Forms("财务汇总窗口").Controls("Label074").Text = iif(i = 0, 0, format(i, "#,###"))

yangwenghd

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

加好友

发短信

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

Post By：2016/8/19 19:28: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, "#,###"))

Else

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

End If

我问问这个得出的结果可以让

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

计算出结果吗？感谢感谢

Label139也是用同样的结果得出的数据。

[此贴子已经被作者于2016/8/19 19:30:18编辑过]

yangwenghd

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

加好友

发短信

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

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

'If e.Form.Controls("TextBox3").Text = "" Then

''If forms("资金分配操作窗口").controls("TextBox3").Text > "" Then

'MessageBox.Show("企业未输入编号")

'Return

'End If

如果textbox3 没有内容不执行后面的代码提示企业未输入编号是那个不对啊。

Hyphen

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

加好友

发短信

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

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

If Not (e.Form.Controls("TextBox3").Text > "") Then

MessageBox.Show("企业未输入编号")

Return

End If

yangwenghd

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

加好友

发短信

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

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

感谢感谢搞了好几天，多谢有你们。

yangwenghd

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

加好友

发短信

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

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

能帮忙看看 42楼的是那里的问题啊？感谢感谢

Hyphen

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

加好友

发短信

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

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

具体什么问题？什么错误？

yangwenghd

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

加好友

发短信

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

Post By：2016/8/20 11:35: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, "#,###"))

Else

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

End If

能让Label076得到的结果是当月合计价格列的合计吗

比如 "支出账目"表 "支出日期”列八月份“合计价格"列是55，然后Label076 就得到55 ，如果"支出日期”列没有八月份的日期，Label076就等于0，然后结果每三位用逗号分开。

Forms("财务汇总窗口").Controls("Label139").Text = Format(DataTables("回款记录").Compute("sum(收款金额)", "回款日期 >= #" & d & "# and 回款日期 < #" & d.AddMonths(1) & "#"), "#,###") '最一个月合计

我问问这个得出的结果可以让

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

现在是有两个问题

1、Label076不能计算出结果

2、Label73也不能够得出结果

麻烦你们了。今天星期六，知道特别浪费你们的时间。