我在窗口的保存按钮里设置了这些代码：想达到如果有些控件没有值时返回窗口输入，并不保存后面的值，直到输入有值时保存才能通过，：但我发现，如果没有值时提示了，但去不返回输入，也顺序通过代码，也保存了后面的值，没达到想要的目的。请问应该在哪里加点代码？If e.form.controls("DateTimePicker1").value=Nothing Then MessageBox.show("请输入日期!")
e.cancel=True
ElseIf e.form.controls("ComboBox6").value=Nothing Then
MessageBox.show("请输入货量描述!")
e.cancel=True
ElseIf e.form.controls("ComboBox8").value=Nothing Then
MessageBox.show("请输入订金方式!")
e.cancel=True
ElseIf e.form.controls("ComboBox10").value=Nothing Then
MessageBox.show("请输入经手办公室!")
e.cancel=True
'ElseIf e.form.controls("NumericComboBox8").value=Nothing Then
' MessageBox.show("请输入运价!")
' e.cancel=True
ElseIf e.form.controls("NumericComboBox6").value=Nothing Then
MessageBox.show("请输实收现金!")
e.cancel=True
ElseIf e.form.controls("TextBox5").value=Nothing Then
MessageBox.show("请输入手机号!")
e.cancel=True
ElseIf e.form.controls("ComboBox4").value=Nothing Then
MessageBox.show("请输入装货地址!")
e.cancel=True
ElseIf e.form.controls("ComboBox5").value=Nothing Then
MessageBox.show("请输入下货地址!")
e.cancel=True
ElseIf e.form.controls("NumericComboBox4").value=Nothing Then
MessageBox.show("请输入报给承运方费用!")
e.cancel=True
ElseIf e.form.controls("NumericComboBox11").value=Nothing Then
MessageBox.show("请输入报给客户费用!")
e.cancel=True
ElseIf e.form.controls("ComboBox7").value=Nothing Then
MessageBox.show("请输入议价方式!")
e.cancel=True
ElseIf e.form.controls("ComboBox9").value=Nothing Then
MessageBox.show("请输fa piao方式!")
e.cancel=True
End If
Tables("派车记录表").Current("客户名称") = e.form.Controls("TextBox8").Value
Tables("派车记录表").Current("货物名称") = e.form.Controls("ComboBox2").Value
Tables("派车记录表").Current("重量") = e.form.Controls("NumericComboBox1").Value
Tables("派车记录表").Current("付款方式") = e.form.Controls("ComboBox3").Value
Tables("派车记录表").Current("装货地") = e.form.Controls("ComboBox4").Value
Tables("派车记录表").Current("目的地") = e.form.Controls("ComboBox5").Value
Tables("派车记录表").Current("备注") = e.form.Controls("TextBox11").Value
Tables("派车记录表").Current("车型") = e.form.Controls("ComboBox1").Value
Tables("派车记录表").Current("重量描述")=e.form.Controls("ComboBox6").Value
Tables("派车记录表").Current("装货电话")=e.form.Controls("TextBox6").Value
Tables("派车记录表").Current("到手价单车吨价")=e.form.Controls("NumericComboBox4").Value
'Tables("派车记录表").Current("应收合计")=e.form.Controls("NumericComboBox5").Value
Tables("派车记录表").Current("实收现金")=e.form.Controls("NumericComboBox6").Value
Tables("派车记录表").Current("承运人姓名")=e.form.Controls("TextBox1").Value
Tables("派车记录表").Current("运价描述")=e.form.Controls("ComboBox7").Value
Tables("派车记录表").Current("身份驾驶证号")=e.form.Controls("TextBox2").Value
Tables("派车记录表").Current("地址")=e.form.Controls("TextBox3").Value
Tables("派车记录表").Current("驾驶员手机")=e.form.Controls("TextBox5").Value
Tables("派车记录表").Current("驾驶员电话")=e.form.Controls("TextBox4").Value
Tables("派车记录表").Current("车牌号")=e.form.Controls("TextBox9").Value
Tables("派车记录表").Current("fa piao")=e.form.Controls("ComboBox9").value
Tables("派车记录表").Current("客户编号")=e.form.Controls("TextBox7").value
Tables("派车记录表").Current("运价描述")=e.form.Controls("ComboBox7").value
'Tables("派车记录表").Current("承运人应结算")=e.form.Controls("NumericComboBox7").value
Tables("派车记录表").Current.Save()
Forms("派车开单").Close()
加好友 
发短信
Post By：2012/12/12 17:36:00 [只看该作者]
