Dim cbcdb As WinForm.ComboBox = e.Form.Controls("combobox2")
e.Form.Controls("Table1").Table.Filter = "月份 = '" & e.Form.Controls("ComboBox1").Text & "' and 产品 like '%" & cbcdb.text & "%'"e.Form.Controls("ComboBox4").Text = e.Form.Controls("Table1").Table.Compute("sum(售价)")