Dim ndr As datarow = dataTables("表A").AddNew
ndr("销售日期") = e.form.controls("控件名").value
ndr("售价") = e.form.controls("控件名").value