Dim sum1 As Double = Tables("表A").Compute("sum(金额1)", "进货公司 = '美的公司' and 结入月份 = '2016年1月'")
Dim sum2 As Double = Tables("表A").Compute("sum(金额2)", "进货公司 = '美的公司' and 结入月份 = '2016年1月'")
e.Form.Controls("TextBox1").Text = sum1 + sum2