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

你要加什么代码，就加在里面啊

If Then

End If

是这样的因为 label要计算的特别多，下午可以简化一下，这样就可以方便检查，我就是向请教你可以把后面的一段变成一行的代码去执行吗？感谢感谢

不明白你表达的意思。贴出你写的代码。

就是一行代码就可以形成

就像

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

一条（行）就可以得到结果，

[此贴子已经被作者于2016/8/17 22:27:16编辑过]

不能，必须find到对应的行，然后判断是否找到，找到后才能取值。

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

Dim r2 As DataRow = DataTables("订单附表").find("订单日期 >= #" & d.AddMonths(-1) & "# and 订单日期 < #" & d & "#", "订单日期 desc")

If r2 IsNot Nothing Then

Forms("窗口1").Controls("Label4").Text = (r2("订单核算_利润"))

End If

感谢订单核算_销售额日期列上月合计减去本月合计除以上个月合计乘以百分之百应该怎么写啊！感谢感谢

如果数据没有怎么让他显示为0啊

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

Dim d1 As Double = DataTables("订单附表").Compute("sum(订单核算_销售额)", "订单日期 >= #" & d & "# and 订单日期 < #" & d.AddMonths(1) & "#") '统计当月

Dim d2 As Double = DataTables("订单附表").Compute("sum(订单核算_销售额)", "订单日期 >= #" & d.AddMonths(-1) & "# and 订单日期 < #" & d & "#")

Output.Show(Format((d2-d1)/d2,"00.0%"))

主题：Label计算结果