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


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

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


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

第二项回答，没有看明白，请版主指导

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


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

版主，端午节好！
在完善工具的过程中，出现了一些自动生成计算的问题，不懂，在这里列出来
1.团期一览，与其余分项表格联动（增加/删除/修改），提取指定列信息，并汇总按日期排列（当其他表无数据时，团期一览应该也为空表）
2.在"团期一览"数据表中，团期进度，drawcell绘制进度表（取值为“入境日期”“出境日期+1”，并以当日为标准）
3.在分项表中-成都寰球·杭州招商等，“团号”列由“KQ+入境日期+组团社拼音缩写+A/B..."自动构成,同意日期到达，自动分为A/B/C。。。如KQ-20180618-HZZS-A
4.在分项表中“产品结构”列数据，由“退房日期1-入住日期1+酒店地区1缩写+退房日期2+入住日期2+酒店地区2缩写+退房日期3-入住日期3+酒店地区3缩写”组成
例如：酒店区域-马尼拉-住2天/酒店区域宿务-住3天，马尼拉缩写为M,宿务缩写为C，则产品结构为2M+3C
谢谢版主的指导。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:操团系统.table
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1.团期一览，已经解决
2.如在“数据一览”表中，入境日期为：2018-06-16出境日期为：2018-06-25，今天为20180-06-19，则团期drawcell进度显示为40%
3.照抄代码，改名称，带入数据表DataColChanged,数据没有响应，照抄代码为：
Select e.DataCol.Name
    Case "日期","组团社"
        If e.DataRow.IsNull("日期") OrElse e.DataRow.IsNull("组团社") Then
            e.DataRow("团号") = Nothing
        Else
            Dim d As Date = e.DataRow("日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1)
            Dim ld As Date = New Date(y,m,Days)
            Dim bh As String = e.DataRow("组团社") & "-" & Format(d,"yyyyMM") & "-"
            If e.DataRow("团号").StartsWith(bh) = False
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "组团社 = '"& e.DataRow("组团社") & "' And 日期 >= #" & fd & "# And 日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(团号)",flt)
                If max > "" Then
                    idx = CInt(max.Substring(12,4)) + 1
                Else
                    idx = 1
                End If
                e.DataRow("团号") = bh & Format(idx,"0000")
            End If
        End If
End Select

希望“团号”列：“自定义字母AA”-"YYYYMMDD"-"组团社"-“A/B/C....”
例如：EZKQ-20180619-杭州招商-A
4.产品结构自动生成与问题3相似，也是自动生成编码的一种，问题三，因为没有编程基础，绞尽脑汁，也没弄出来，还请版主指教
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:操团系统.table

版主早，今天刚起来就打开电脑，看到版主回复，十分高兴和感激
将版主的代码写进数据表中
但是刚开始出现错误代码信息，然后我开关了几次软件，终于可以顺利把代码写进去的同时，没有错误代码提示
但是还是没有显示（“团期一览“数据表中drawcell没有显示，”中新正大“数据表中，团号也没有显示）
是不是我的软件版本的问题？
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


图片点击可在新窗口打开查看此主题相关图片如下：wechat screenshot_20180620182318.png
图片点击可在新窗口打开查看
嗯，在重新试验了drawcell 后，成功画出图标，但是在自动生成团号的时候，运行程序的时候显示了以上的图片，没有懂是什么意思
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

已经写到DataColChanged事件，但是还是没有反应，不知道什么设置错了。
图片点击可在新窗口打开查看此主题相关图片如下：capture.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

版主早，严格按照版主的要求，进行操作的，无反应，不知道是什么地方出了问题
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:操团系统.table
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

版主好，现在编程过程中，出现如下问题，希望版主指点
这个操团系统的主要分成几个表
第一个是主表-团期一览
下设分表-北京浩洲-中新南宁-辽宁北方，福州厦航，FIT团等（这些是客户名称，后续可能会删改）
现在需要的逻辑是，在分表中增加/删减/改动信息，希望通过编程自动同步到
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:排团系统.table

团期一览工作表中

至于分表中的团号列（辽宁北方等），已经成功用代码自动填写出来，现在的问题，最后的后缀两位数，
希望能设置成同一日期抵达的自动排列为01/02/03.。。
不同日期的全部都是后缀成01 ，不知道怎么再修改代码，希望版主指导。
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

已经更改了，但是还是不好用
下面是两位数的编码
Select e.DataCol.Name
    Case "日期","组团社"
        If e.DataRow.IsNull("日期") OrElse e.DataRow.IsNull("组团社") Then
            e.DataRow("团号") = Nothing
        Else
            Dim d As Date = e.DataRow("日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1)
            Dim ld As Date = New Date(y,m,Days)
            Dim bh As String = "ICH-" & Format(d,"yyyyMMdd") & "-" & e.DataRow("组团社") & "-"
            If e.DataRow("团号").StartsWith(bh) = False
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "组团社 = '" & e.DataRow("组团社") & "' And 日期 >= #" & fd & "# And 日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(团号)",flt)
                If max > "" Then
                    idx = CInt(max.Substring(max.Length- 2,2)) + 1
                Else
                    idx = 1
                End If
                e.DataRow("团号") = bh & Format(idx,"00")
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
jacksun
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

如果，2018年09月11号，有3个团到达，组团社为ZXZD希望写成ICH-20180911-ZSZD-01
如果同一日期有两个团，则写成ICH-2018091-ZSZD-02
 09月12号的团，依然写成ICH-20180912-ZSZD-01
但是现在写出来的代码不是这样的，不同日期也会排进去的
 回到顶部
总数 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.06250 秒, 9 次数据查询