Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报表自动汇总问题


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

主题：报表自动汇总问题
帅哥哟，离线，有人找我吗？
jacksun
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：68 积分：457 威望：0 精华：0 注册：2018/6/3 23:00:00 		  发帖心情 Post By：2018/10/16 15:33:00 [显示全部帖子]

ICH-20181013-昆山春秋-01
ICH-20181013-昆山春秋-02
ICH-20181014-昆山春秋-03，
图片点击可在新窗口打开查看此主题相关图片如下：wechat screenshot_20181016153122.png
图片点击可在新窗口打开查看
此行因为是14号的，应该定义为ICH-20181014-昆山春秋-01
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：68 积分：457 威望：0 精华：0 注册：2018/6/3 23:00:00 		  发帖心情 Post By：2018/10/16 15:56:00 [显示全部帖子]

没有看懂这个，这个是团期一览里面的，需要再北京浩洲（已上传foxtable）等分表中显示的，这个团期，然后自动同步到“团期一览”中的

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


加好友 发短信
等级：幼狐 帖子：68 积分：457 威望：0 精华：0 注册：2018/6/3 23:00:00 		  发帖心情 Post By：2018/10/16 16:06:00 [显示全部帖子]

“中新南宁”表，
数据表，表属性，事件，datacolchanged
现在需要编码
同一日期，同意组团社下，编码为，ICH+日期+“南宁中新”+01
若同一日期有两个团则为ICH+日期+“南宁中新”+02
若不同日期，则后缀则为01
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：68 积分：457 威望：0 精华：0 注册：2018/6/3 23:00:00 		  发帖心情 Post By：2018/10/16 16:51:00 [显示全部帖子]

已解决，谢谢版主

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


加好友 发短信
等级：幼狐 帖子：68 积分：457 威望：0 精华：0 注册：2018/6/3 23:00:00 		  发帖心情 Post By：2018/10/19 15:29:00 [显示全部帖子]

版主好，我研究了一下，没有找到几个窗口汇总到一起的方法，请版主指教
现在的想法是：
“团期一览”表格中
“日期”“团号”“组团社”“产品结构”列里面的数据，全部集合来自于
分表     “北京浩洲”“中新难宁”“辽宁北方”“福州厦航”“FIT团”窗口中的数据。
任何分表中数据有变动/增加行/删除行，实时反映到“团期一览“表格中。
不知道怎么写这个代码。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:操团系统.table
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：68 积分：457 威望：0 精华：0 注册：2018/6/3 23:00:00 		  发帖心情 Post By：2018/10/19 15:57:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "团号"
        Dim dr As DataRow = DataTables("团期一览").Find("基本信息_团号 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("团期一览").AddNew()
            dr("基本信息_日期") = e.DataRow("日期")
            dr("基本信息_团号") = e.DataRow("团号")
            dr("基本信息_组团社") = e.DataRow("组团社")
            dr("基本信息_产品结构") = e.DataRow("产品结构")
        Else
            dr("基本信息_团号") = e.DataRow("团号")
        End If
    Case "基本信息_日期","基本信息_组团社","基本信息_产品结构"
        Dim dr As DataRow = DataTables("团期一览").Find("基本信息_团号 = '" & e.DataRow("团号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

这个是之前的代码，但是上面上传的程序里面，不好用
有没有可以在”团期一览“datacolchanged写的，同时也方便一些
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：68 积分：457 威望：0 精华：0 注册：2018/6/3 23:00:00 		  发帖心情 Post By：2018/10/19 16:24:00 [显示全部帖子]

嗯，好吧。
这个代码就是不能同步到”团期一览“的表格中，版主看看写的什么地方出了问题
在分表中/增加/更改/删除，数据/行的时候，不会自动同步到主表”团期一览“中
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：68 积分：457 威望：0 精华：0 注册：2018/6/3 23:00:00 		  发帖心情 Post By：2018/10/19 17:00:00 [显示全部帖子]

我在”FIT团“ 表中测试的，数据并没有同步，您测试一下看。增加，删除，修改。

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


加好友 发短信
等级：幼狐 帖子：68 积分：457 威望：0 精华：0 注册：2018/6/3 23:00:00 		  发帖心情 Post By：2018/10/19 17:24:00 [显示全部帖子]

就是”团期一览“表，中的数据，是实时同步的，现在不能做到实时同步，请版主指教，谢谢版主。

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


加好友 发短信
等级：幼狐 帖子：68 积分：457 威望：0 精华：0 注册：2018/6/3 23:00:00 		  发帖心情 Post By：2018/10/19 17:48:00 [显示全部帖子]

好的，我再调试一下看看，谢谢大版主图片点击可在新窗口打开查看

 回到顶部
总数 63 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 6 次数据查询