以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问点击目录树筛选后的窗口表中增加行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15822)

--  作者:OO
--  发布时间:2012/1/12 19:08:00
--  请问点击目录树筛选后的窗口表中增加行

如附件,用窗口输入物料。

 

在点击目录树筛选后,在窗口表中增加物料,并且货品类型自动取目录树的节点名作为货品类型。

 

怎么样才可实现呢?请能人支招!谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目19.table


--  作者:OO
--  发布时间:2012/1/13 8:54:00
--  
有人帮下忙吗?我弄不出来,因为筛选后,增加行后,在窗口都显示不了.
--  作者:狐狸爸爸
--  发布时间:2012/1/13 9:53:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim r As Row  = Tables("货品信息_Table1").AddNew()
If trv.SelectedNode IsNot Nothing Then
    r("货品类型") =  trv.SelectedNode.FullPath
End If

--  作者:OO
--  发布时间:2012/1/13 10:06:00
--  
多谢狐狸老爸,但还是不行的。增加行后,行在窗口都显示不了.
--  作者:狐狸爸爸
--  发布时间:2012/1/13 10:12:00
--  

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim dr As DataRow  = DataTables("货品信息").AddNew()
If trv.SelectedNode IsNot Nothing Then
    dr("货品类型") =  trv.SelectedNode.FullPath
End If


--  作者:OO
--  发布时间:2012/1/13 10:24:00
--  
哦,可以了。原来要加到主表去的。谢谢!