比如
Dim ndr As DataRow = DataTables("应收款表").AddNewndr("第一列") = e.Form.Controls("TextBox1").Textndr("第二列") = e.Form.Controls("TextBox2").Textndr("第三列") = e.Form.Controls("TextBox3").Text