报表自动汇总问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有16449人关注过本帖树形打印复制链接主题：报表自动汇总问题

有点甜

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/13 14:51:00 [显示全部帖子]

AfterOpenProject事件

ApplicationMenu.RightItems.Clear

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/19 10:03:00 [显示全部帖子]

1、自行调试，照抄代码啊

http://www.foxtable.com/webhelp/scr/2490.htm

2、没看懂你的逻辑，举例说明

3、参考 http://www.foxtable.com/webhelp/scr/2403.htm

4、日期加减，参考

http://www.foxtable.com/webhelp/scr/1452.htm

http://www.foxtable.com/webhelp/scr/0287.htm

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/20 8:44:00 [显示全部帖子]

1、请理解代码；

2、你要输入入境日期、出境日期才会显示所需内容的。

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/20 18:34:00 [显示全部帖子]

代码写到 DataColChanged 事件

有点甜

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/20 22:11:00 [显示全部帖子]

重置列

图片点击可在新窗口打开查看

有点甜

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/21 8:55: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 = "EZKQ-" & 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- 4,4)) + 1
                Else
                    idx = 1
                End If
                e.DataRow("团号") = bh & Format(idx,"0000")
            End If
        End If
End Select

有点甜

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/16 15:20: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

有点甜

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/16 15:38: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 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 基本信息_产品信息_日期 = #" & d & "# 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

有点甜

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/16 16:00:00 [显示全部帖子]

以下是引用jacksun在2018/10/16 15:56:00的发言：
没有看懂这个，这个是团期一览里面的，需要再北京浩洲（已上传foxtable）等分表中显示的，这个团期，然后自动同步到“团期一览”中的

请上传对应实例测试，说明如何操作，最后得到什么效果。

有点甜

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/16 16:10: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 bh As String = "EZKQ-" & 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 日期 = #" & d & "# 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

下一主题 >> << 上一主题

总数 35 上一页 1 2 3 4 下一页

主题：报表自动汇总问题