主题：[求助]窗体控件计算和跨年度统计问题

[求助]窗体控件计算和跨年度统计问题

1.如何将窗体文本框算结果自动填到绑定的表格里：

2.如何在父表每月自动统计显示关联表最近连续12个月的累计数据（如2014年8月至2015年9月）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

问题一：

e.form.controls("TextBox5").text=(e.form.controls("TextBox2").text) * 0.02
e.form.controls("TextBox5").WriteValue
e.form.controls("TextBox4").text=( e.form.controls("TextBox2").text) * 0.3
e.form.controls("TextBox4").WriteValue
e.form.controls("TextBox3").text=(e.form.controls("TextBox2").text) * 0.07
e.form.controls("TextBox3").WriteValue
e.form.controls("TextBox6").text=(e.form.controls("TextBox1").text) * 0.001
e.form.controls("TextBox6").WriteValue
e.form.controls("TextBox7").text=(e.form.controls("TextBox1").text) * 0.0003
e.form.controls("TextBox7").WriteValue

问题1可以了

每个月都要统计连续12个月累计数据，客户量大想在父表一自动显示，方便查看

每个月都自动统计最近的连续12个月累计数据，客户量大，想在父表自动显示，方便查看

比如这个月应显示2014年10月至2015年11月的累计数据

问题二：

Dim d As Date = Date.Today
Dim str As String = "年 <= '" & d.year & "' And 月份 <= #" & d & "# and 公司名称 = 'abc'"
d = d.AddMonths(-12)
str &= " and 年 >= '" & d.year & "' and 月份 >= #" & d & "#"
msgbox(str)
Dim sum As Double = DataTables("明细表").Compute("sum(收入)", str)
msgbox(sum)