专家坐堂-总入库text >订单数量text，为什么不能能识别呢Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  总入库text >订单数量text，为什么不能能识别呢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74313)

--  作者：JPG7
--  发布时间：2015/9/8 11:41:00
--  总入库text >订单数量text，为什么不能能识别呢

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编辑过]