参考
For Each dr As DataRow In DataTables("统计").Select("") If dr.RowState = DataRowState.Added Then dr("实收")= e.Form.Controls("TextBox1").text End IfNext