Foxtable(狐表)用户栏目专家坐堂 → 请问点击目录树筛选后的窗口表中增加行


  共有9496人关注过本帖树形打印复制链接

主题:请问点击目录树筛选后的窗口表中增加行

美女呀,离线,留言给我吧!
OO
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:36 积分:444 威望:0 精华:0 注册:2011/12/29 16:47:00
请问点击目录树筛选后的窗口表中增加行  发帖心情 Post By:2012/1/12 19:08:00 [只看该作者]

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

 

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

 

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

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


 回到顶部
美女呀,离线,留言给我吧!
OO
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:36 积分:444 威望:0 精华:0 注册:2011/12/29 16:47:00
  发帖心情 Post By:2012/1/13 8:54:00 [只看该作者]

有人帮下忙吗?我弄不出来,因为筛选后,增加行后,在窗口都显示不了.

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:36 积分:444 威望:0 精华:0 注册:2011/12/29 16:47:00
  发帖心情 Post By:2012/1/13 10:06:00 [只看该作者]

多谢狐狸老爸,但还是不行的。增加行后,行在窗口都显示不了.

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:36 积分:444 威望:0 精华:0 注册:2011/12/29 16:47:00
  发帖心情 Post By:2012/1/13 10:24:00 [只看该作者]

哦,可以了。原来要加到主表去的。谢谢!

 回到顶部