Dim r As Row = Tables("数据汇总").Rows.AddNew() r("在册人数")=e.Form.Controls("TextBox1").Value r("A级人数")=e.Form.Controls("TextBox2").Value r("B级人数")=e.Form.Controls("TextBox3").Value r("C级人数")=e.Form.Controls("TextBox4").Value r("D级人数")=e.Form.Controls("TextBox5").Value