For Each r As Row In e.Form.controls("table1").Table.Rows If r("勾选") Then Dim nr = Tables("助理考核汇总表").AddNew nr("小区地址") = e.form.controls("TextBox1").text nr("楼号") = e.form.controls("TextBox2").text nr("面积") = e.form.controls("TextBox3").text nr("客户姓名") = e.form.controls("TextBox4").text nr("联系电话") = e.form.controls("TextBox5").text nr("考核项目") = r("考核项目") End If Next Forms("添加助理考核").Close
|