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
加好友 
发短信
Post By：2018/2/27 10:31:00 [显示全部帖子]
