Dim scph As WinForm.ComboBox = e.Form.Controls("Cmb-scph")
Dim ddsl As WinForm.TextBox = e.Form.Controls("cmb-ddsl")
Dim rksl As WinForm.TextBox = e.Form.Controls("cmb-rksl")
Dim xh As WinForm.TextBox = e.Form.Controls("型号")
Dim gg As WinForm.TextBox = e.Form.Controls("规格")
Dim cc As WinForm.TextBox = e.Form.Controls("尺寸")
Dim zck As WinForm.TextBox = e.Form.Controls("总出库")
Dim zrk As WinForm.TextBox = e.Form.Controls("总入库")
Dim jcsl As WinForm.TextBox = e.Form.Controls("cmb-jcsl")
Dim rksj As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
If scph.Text = Nothing Then
MessageBox.Show("请输入生产批号!")
Else If scph.Text <> Nothing And rksl.Text = Nothing Then
MessageBox.Show("请输入入库数量!")
Else If scph.Text <> Nothing And rksl.Text <> Nothing And zrk.Text > ddsl.Text Then
MessageBox.Show("入库数量不能超过订单数量!")
Else If scph.Text <> Nothing And rksl.Text <> Nothing And zrk.Text <= ddsl.Text And rksl.Text < 1 Then
MessageBox.Show("入库数量不能小于1!","提示")
Else If scph.Text <> Nothing And rksl.Text <> Nothing And zrk.Text <= ddsl.Text And rksl.Text >= 1 Then
Dim dr As Row = Tables("白坯出入库明细").AddNew()
dr("生产批号") = scph.Text
dr("型号") = xh.Text
dr("规格") = gg.Text
dr("尺寸") = cc.Text
dr("入库数量") = rksl.Text
dr("订单数量") = ddsl.Text
dr("入库时间") = rksj.value
Tables("白坯出入库明细").save()
scph.text = ""
xh.text =""
gg.text = ""
cc.text = ""
ddsl.text = ""
rksl.text = ""
zrk.text = ""
zck.text = ""
jcsl.text =""
End If
奥知道了，有个地方写成value了
[此贴子已经被作者于2015/9/8 11:43:26编辑过]
加好友 
发短信
Post By：2015/9/8 11:41:00 [只看该作者]
