以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  获取文本框的值，获取不到  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127506)
--  作者：yetle
--  发布时间：2018/11/15 15:14:00
--  获取文本框的值，获取不到

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
--  作者：有点甜
--  发布时间：2018/11/15 15:23:00
--  

试试

 

Dim r = tbl3.addnew()

r("条码") = tbl3.current("_Identify")
r("件数") = js.text
tbl3.Position = tbl3.rows.count-1
--  作者：yetle
--  发布时间：2018/11/15 15:31:00
--  
怪了，就这个值获取不到
--  作者：有点甜
--  发布时间：2018/11/15 16:01:00
--  

不可能，改成2楼。

 

如果还获取不到，就是你datacolchanged事件有影响代码了。