这段代码放在中间,也就是判断是否为空的后面
Dim h As Row = Tables("原燃材料进厂").AddNew
h("日期")=e.Form.Controls("DateTimePicker3").Text
h("物料名称")=e.Form.Controls("ComboBox8").Text
h("当班班次")=e.Form.Controls("ComboBox9").Text
h("当班班级")=e.Form.Controls("ComboBox10").Text
h("当班进厂量")=e.Form.Controls("TextBox7").Text
h.Save