Dim sj As date = e.Form.Controls("DateTimePicker1").Text
Tables("表A").Current("时间") = sj
Tables("表A").Current.save()