Foxtable(狐表)用户栏目专家坐堂 → 扩展列汇总的请教


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

主题:扩展列汇总的请教

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
扩展列汇总的请教  发帖心情 Post By:2016/4/22 11:29:00 [只看该作者]

老师,是否能实现从表A(明细表)勾选需要的行里面文件列(扩展型-文件),通过勾选就自动汇总到表B的文件列(扩展型-多文件)里面,便于资料总体汇编,

这只是自己想到的,另外是否还有其他更好的思路。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 直接合并字符串的值就行了,每个字符串用 vbcrlf 也就是换行 分割。

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


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2016/4/22 11:35:00 [只看该作者]

再弱弱的问个问题,采用哪种方式传递过去,老师能给个类似的参考例子学习学习。谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2016/4/22 15:40:00 [只看该作者]

老师,您给的参考例子,是关联表的,我参照做了例子也实现了 vbcrlf 的功能和传递的功能,另外,我参照做了个非关联的,有几个问题没有实现,请老师看看

1. 字符没有能复制过去

2. 加了逻辑列控制条件没有反应   (在关联表的例子里也没有反应)

3. 过去的文件,是否要设路径,不然打不开汇总里面的文件

datachanged:

If e.DataCol.Name = "上传文件"    '文件副表
   If e.DataRow("选择") = True Then
     Dim pdr As DataRow = DataTables("文件主表").DataRows("接收汇总资料")
     If pdr IsNot Nothing Then
        Dim str As String = ""
        For Each dr As DataRow In DataTables("文件副表").DataRows
            str & = dr("上传文件") & vbcrlf 
        Next
        pdr("接收汇总资料") = str.trim & vbcrlf   '文件主表的列
       End If 
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、2

 

If e.DataCol.Name = "上传文件" OrElse e.DataCol.Name = "选择" Then
    Dim pdr As DataRow = DataTables("文件主表").find("关联列 = '" & e.DataRow("关联列") & "'")
    If pdr IsNot Nothing Then
        Dim str As String = ""
        For Each dr As DataRow In DataTables("文件副表").Select("关联列 = '" & e.DataRow("关联列") & "' and 选择 = true")
            str & = dr("上传文件") & vbcrlf
        Next
        pdr("接收汇总资料") = str.trim(chr(10), chr(13))
    End If
End If

 

3、列【接收汇总资料】需要设置成多文件列,同时指定存放目录跟上传文件列的一致。


 回到顶部