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

问题一：

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

问题二：

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)