Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]三张表如何汇总后导出，能教教方法吗？


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

主题：[求助]三张表如何汇总后导出，能教教方法吗？
帅哥哟，离线，有人找我吗？
zmh4358
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：103 积分：1018 威望：0 精华：0 注册：2014/1/5 8:10:00 		[求助]三张表如何汇总后导出，能教教方法吗？  发帖心情 Post By：2014/2/27 15:42:00 [只看该作者]

三张表如何汇总后导出，能教教方法吗？今天领导交个任务是这样得，要我用三张表得信息汇总打在一张表上，这个怎么搞，，那个好心老师教我一教呀
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140227153728.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-2-27 15:42:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/2/27 15:45:00 [只看该作者]

那你也得把三张表发上来啊,文件例子发上来才能帮到你

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


加好友 发短信
等级：幼狐 帖子：103 积分：1018 威望：0 精华：0 注册：2014/1/5 8:10:00 		  发帖心情 Post By：2014/2/27 15:52:00 [只看该作者]

以下是引用Bin在2014-2-27 15:45:00的发言：
那你也得把三张表发上来啊,文件例子发上来才能帮到你

那谢谢BIN老师帮我解决大麻烦了
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/2/27 16:00:00 [只看该作者]

你将三个表的数据合并到一个表再打印不好吗？
 回到顶部
帅哥哟，离线，有人找我吗？
zmh4358
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：103 积分：1018 威望：0 精华：0 注册：2014/1/5 8:10:00 		  发帖心情 Post By：2014/2/27 16:04:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/2/27 16:06:00 [只看该作者]

那三表,要怎么合并. 关联是什么? 

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


加好友 发短信
等级：幼狐 帖子：103 积分：1018 威望：0 精华：0 注册：2014/1/5 8:10:00 		  发帖心情 Post By：2014/2/27 16:15:00 [只看该作者]

以下是引用Bin在2014-2-27 16:06:00的发言：
那三表,要怎么合并. 关联是什么? 

上面有图呀，，关联是，信息表和入库详单是产品序号关联得，，信息表和出库详单也是产品序号关联得，，

 

领导意思是，这个同产品同月同天发生得出库或入库有个数量，和现有数量 做一行，其它产品没发生过出入记录得不录入这个单子里，意思挺简单，但纠结了我一天，没懂这表应该怎么出

以前看帮助都是一张表对一张表，，没怎么注意引用父表那一章，，让老师们见笑了
 回到顶部
帅哥哟，离线，有人找我吗？
zmh4358
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：103 积分：1018 威望：0 精华：0 注册：2014/1/5 8:10:00 		  发帖心情 Post By：2014/2/27 16:27:00 [只看该作者]

以下是引用狐狸爸爸在2014-2-27 16:00:00的发言：

你将三个表的数据合并到一个表再打印不好吗？

老师得意思是不是出库详单和入库详单用合并命令，在导出一张Excel表格，在修式一下
 回到顶部
帅哥哟，离线，有人找我吗？
zmh4358
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：103 积分：1018 威望：0 精华：0 注册：2014/1/5 8:10:00 		  发帖心情 Post By：2014/2/27 18:58:00 [只看该作者]

老师，，到底怎么办呀，，能说说吗，，小白一枚，最好能说得清楚一点，谢谢

现在我勉强觉得先导出出库和入库，在导回，在合并，在做报表模版，在打印，，你们是不是也是这个意思，能不能在狐表里直接生成这样得，求方法

[此贴子已经被作者于2014-2-27 19:00:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/2/27 20:14:00 [只看该作者]

 原本准备用sql来做的，后来发觉你用了很多表达式。所以最后只能用代码来写了。

 你弄一个新的表，设置有相关的列，然后执行下面的代码就行了

Dim dt As DataTable = DataTables("汇总表")
dt.DataRows.Clear
Dim ls As List(of String()) = DataTables("入库详单").GetValues("入库日期|产品序号")
For Each ary As String() In ls
    Dim dr As DataRow = dt.AddNew
    dr("日期") = ary(0)
    Dim fdr As DataRow = DataTables("配件材料信息表").Find("产品序号 = '" & ary(1) & "'")
    If fdr IsNot Nothing Then
        dr("名称") = fdr("产品名称")
        dr("规格型号") = fdr("产品规格")
        dr("类型") = fdr("产品类型")
        dr("单位") = fdr("单位")
        dr("结存数量") = fdr("现有库存")
    End If
    dr("库存数量") = DataTables("入库详单").Compute("sum(入库数量)", "入库日期 = #" & ary(0) & "# and 产品序号 = '" & ary(1) & "'")
    fdr = DataTables("出库详单").Find("出库日期 = #" & ary(0) & "# and 产品序号 = '" & ary(1) & "'")
    If fdr IsNot Nothing Then
        dr("领用单位") = fdr("单位")
        dr("领用数量") = DataTables("出库详单").Compute("sum(出库数量)", "出库日期 = #" & ary(0) & "# and 产品序号 = '" & ary(1) & "'")
        Dim pdr As DataRow = DataTables("出库主表").Find("出库单号 = '" & fdr("出库单号") & "'")
        If pdr IsNot Nothing Then
            dr("发料人") = pdr("经手人")
            dr("领料人") = pdr("领料员")
        End If
        dr("使用地方") = fdr("取出库房")
    End If
Next

ls = DataTables("出库详单").GetValues("出库日期|产品序号")
For Each ary As String() In ls
    Dim fdr As DataRow = DataTables("配件材料信息表").Find("产品序号 = '" & ary(1) & "'")
    If fdr IsNot Nothing Then
        If dt.Find("日期 = #" & ary(0) & "# and 名称 = '" & fdr("产品名称")  & "' and 规格型号 = '" & fdr("产品规格") & "'") Is Nothing Then
            Dim dr As DataRow = dt.AddNew
            dr("日期") = ary(0)
            dr("名称") = fdr("产品名称")
            dr("规格型号") = fdr("产品规格")
            dr("类型") = fdr("产品类型")
            dr("单位") = fdr("单位")
            dr("结存数量") = fdr("现有库存")
            
            fdr = DataTables("出库详单").Find("出库日期 = #" & ary(0) & "# and 产品序号 = '" & ary(1) & "'")
            If fdr IsNot Nothing Then
                dr("领用单位") = fdr("单位")
                dr("领用数量") = DataTables("出库详单").Compute("sum(出库数量)", "出库日期 = #" & ary(0) & "# and 产品序号 = '" & ary(1) & "'")
                Dim pdr As DataRow = DataTables("出库主表").Find("出库单号 = '" & fdr("出库单号") & "'")
                If pdr IsNot Nothing Then
                    dr("发料人") = pdr("经手人")
                    dr("领料人") = pdr("领料员")
                End If
                dr("使用地方") = fdr("取出库房")
            End If
        End If
    End If
Next
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询