Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]目录树筛选不起作用


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

主题：[求助]目录树筛选不起作用
帅哥哟，离线，有人找我吗？
adidas5241
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：57 积分：432 威望：0 精华：0 注册：2016/7/30 12:37:00 		[求助]目录树筛选不起作用  发帖心情 Post By：2016/8/29 11:00:00 [只看该作者]

建窗口（名：添加商品），里面有表（商品目录）和临时建立的目录树，目录树的AfterSelectNode代码如下：
Dim FullPath As String = e.Node.FullPath
If e.Node.Text = "全部分类" Then
    Tables("商品目录").Filter = ""
Else
    Tables("商品目录").Filter = "类别ID Like'" &  GetPy(FullPath,True) & "*'"
End If
点击任何一个节点，商品目录表都显示全部内容，与打开表时一样
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/29 11:10:00 [只看该作者]

 Tables("商品目录")

 

改成

 

 Forms("窗口名").Controls("Table1").Table
 回到顶部
帅哥哟，离线，有人找我吗？
adidas5241
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：57 积分：432 威望：0 精华：0 注册：2016/7/30 12:37:00 		  发帖心情 Post By：2016/8/29 12:42:00 [只看该作者]

谢谢老师，修改后OK！再请教一下，如下图，为什么我在表控件属性选择了复选框，预览是就是没有复选框呢？我想做一个多选录入。

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160829123703.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2016/8/29 12:49:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/29 15:04:00 [只看该作者]

 属性那里->显示行号列，设置成true

 回到顶部
帅哥哟，离线，有人找我吗？
adidas5241
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：57 积分：432 威望：0 精华：0 注册：2016/7/30 12:37:00 		  发帖心情 Post By：2016/8/29 15:52:00 [只看该作者]

谢谢，OK。麻烦再看看下面的代码：
Dim tba As Table = Forms("添加商品").Controls("Table1").Table
For Each r As Row In tba.GetCheckedRows
    Dim nma() As String = {"商品编号","商品名称","规格型号","等级","计量单位","单片重量"}   'A表数据来源列
    Dim nmb() As String = {"商品编号","商品名称","规格型号","等级","单位","片重"}  'B表数据接收列
    Dim tbb As Table = Forms("销售订单").Controls("订单明细").Table
    Dim dr As DataRow = tbb("销货订单.销货订单明细").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = r(nma(i))
    Next
Next
Forms("添加商品").close
编译错误：AddNew 不是“Row”成员

改成以下代码后，在“销货订单明细”里增加了选择行，但是窗口表“订单明细.销货订单明细”这个关联表没有任何数据
Dim tba As Table = Forms("添加商品").Controls("Table1").Table
For Each r As Row In tba.GetCheckedRows
    Dim nma() As String = {"商品编号","商品名称","规格型号","等级","计量单位","单片重量"}   'A表数据来源列
    Dim nmb() As String = {"商品编号","商品名称","规格型号","等级","单位","片重"}  'B表数据接收列
    'Dim tbb As Table = Forms("销售订单").Controls("订单明细").Table
    Dim dr As DataRow = DataTables("销货订单明细").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = r(nma(i))
    Next
Next
Forms("添加商品").close
[此贴子已经被作者于2016/8/29 19:24:31编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询