Dim cxc1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim cx1 As Integer
cx1 = DataTables("基础走势").Compute("Count([h1])", "h1 = 0")
cxc1.text = cx1
e.Form.Controls("TextBox2").value = Math.Round((DataTables("基础走势").Compute("Sum([h1])") / cxc1.value)) + 1
e.Form.Controls("TextBox3").value = Math.Round(cxc1.value / DataTables("基础走势").Compute("Max([_Identify])") *100)
e.Form.Controls("TextBox4").value = Math.Round(DataTables("基础走势").Compute("Max([_Identify])") / cxc1.value)
e.Form.Controls("TextBox5").value = Tables("基础走势").Rows(Tables("基础走势").Rows.Count -1)("h1")