以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于录入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114978)

--  作者:cool314156
--  发布时间:2018/2/27 10:07:00
--  [求助]关于录入
想请教下,在窗口设计一个输入框,父子孙表用产品编号关联,能用一个输入框同时实现三个表都输入了同一个产品编号吗
--  作者:有点甜
--  发布时间:2018/2/27 10:31:00
--  

textChanged事件,写代码

 

Dim t1 As Table = Tables("父")

Dim t2 As Table = Tables("父.子")

Dim t3 As Table = Tables("父.子.孙")

 

If t1.Current is Nothing Then t1.addnew

t1.current("产品编号") = e.sender.Text

If t2.Current is Nothing Then t2.addnew

t2.current("产品编号") = e.sender.Text

If t3.Current is Nothing Then t3.addnew

t3.current("产品编号") = e.sender.Text