Dim tbl2 As Table = Tables("分派工序_table1")
Dim tbl4 As Table = Tables("分派工序_table4")
Dim tbl3 As Table = Tables("分派工序_table3")
Dim bz As WinForm.ComboBox = Forms("分派工序").Controls("ComboBox1")
Dim js As WinForm.TextBox = Forms("分派工序").Controls("TextBox2")
Select Case e.StripItem.Name
Case "分派工序"
If js.text IsNot Nothing Then
If tbl2.current IsNot Nothing And tbl4.current IsNot Nothing Then
tbl3.addnew()
tbl3.Current("条码") = tbl3.current("_Identify")
tbl3.Current("件数") = js.text（在文本框输入数值，件数获取不到数值？）
tbl3.Position = tbl3.rows.count-1
Tables("工序分配").save()
Else
messagebox.show("请选择工序和对应员工,件数必填!")
End If
Else
messagebox.show("件数必填!")
End If
加好友 
发短信
Post By：2018/11/15 15:14:00 [只看该作者]
