每个为空的判断,里面都加一句return
下面这个写在if判断的外面
dr1 = DataTables("任务信息").AddNew()
dr1("工作内容") = gznr
dr1("产品名称") = cpmc
dr1("申请人") = sqr
dr1("分配给") = fpg
dr1("产品型号") = cpxh
dr1("工作类型") = gzlx
dr1("存放区域") = cfqy
dr1("开始时间") = kssj
dr1("截止时间") = jzsj
DataTables.Save()
e.Form.Controls("TextBox1").Value = ""
e.Form.Controls("ComboBox1").Value = ""
e.Form.Controls("ComboBox2").Value = ""
e.Form.Controls("ComboBox3").Value = ""
e.Form.Controls("ComboBox4").Value = ""
e.Form.Controls("ComboBox5").Value = ""
e.Form.Controls("ComboBox6").Value = ""
pbx = e.form.Controls("PictureBox16")
pbx.Image = GetImage("Images\Clear Green Button.png")
e.Form.Controls("信息提示").Text = "任务输入成功!"