If e.Form.Controls("datetimepicker1").text <> Nothing Then For Each r As Row In Tables("进口录入").Rows r("结算日期") = e.Form.Controls("datepicker1").Value NextEnd If