主题：[求助录入第二张单据时日期自动清空？

新增按钮

'加载
Dim nr As Row = Tables("订货主表").AddNew

e.Sender.Enabled = False
e.Form.Controls("修改").Enabled =False
e.Form.Controls("主表删除").Enabled =False
e.Form.Controls("放弃").Enabled =True
e.Form.Controls("审核").Enabled =False
e.Form.Controls("上一页").Enabled =False
e.Form.Controls("下一页").Enabled =False
e.Form.Controls("定位").Enabled =False
e.Form.Controls("关闭").Enabled =False
e.Form.Controls("保存").Enabled =True

e.Form.Controls("DateTimePicker1").value = Today
e.Form.Controls("TextBox1").Text = ""
e.Form.Controls("ComboBox1").Text = ""
e.Form.Controls("ComboBox2").Text = ""
e.Form.Controls("DropBox2").Text = ""
e.Form.Controls("DropBox1").Text = ""
e.Form.Controls("TextBox6").Text = ""
nt("订货日期") = Today
Tables("工程需求_订货明细表").Filter = " 订单号 is null "