Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 保存时间太长


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

主题：[求助] 保存时间太长
帅哥哟，离线，有人找我吗？
建筑人生
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3428 威望：0 精华：0 注册：2014/8/20 20:14:00 		[求助] 保存时间太长  发帖心情 Post By：2022/6/26 21:08:00 [只看该作者]

Dim Filter As String
Dim t1, t2, t3, t4, t5 As String
Dim tb As Table = Tables("流水账")
Dim dr As DataRow

Dim st As Date

If e.Node.Text <> "显示所有行" Then
    DataTables ("汇总表").DataRows.Clear
    Select Case e.Node.Level
        Case 0
            t1 = e.Node.Text
            With DataTables ("汇总表")
                .StopRedraw '静止绘制               
                For Each DR In DataTables("流水账").DataRows
                    If DR("科目表_一级") = t1 Then
                        Dim dr2 As DataRow
                        dr2 = DataTables ("汇总表").AddNew
                        dr2("一级科目") = dr("科目表_一级")
                        dr2("日期") = dr("日期")
                        dr2("摘要") = dr("摘要")
                        dr2("凭证号") = dr("凭证号")
                        dr2("借方") = dr("科目表_借方")
                        dr2("贷方") = dr("科目表_贷方")
                    End if
                    If DR("对方科目_一级") = t1 Then
                        Dim dr2 As DataRow
                        dr2 = DataTables ("汇总表").AddNew
                        dr2("一级科目") = dr("对方科目_一级")
                        dr2("日期") = dr("日期")
                        dr2("摘要") = dr("摘要")
                        dr2("凭证号") = dr("凭证号")
                        dr2("借方") = dr("对方科目_借方")
                        dr2("贷方") = dr("对方科目_贷方")
                    End If
                Next
                .ResumeRedraw
            End With
        Case 1
            t1 = e.Node.Text
            t2 = e.Node.ParentNode.Text
            With DataTables ("汇总表")
                .StopRedraw '静止绘制               
                For Each DR In DataTables("流水账").DataRows
                    If DR("科目表_一级") = t2 And DR("科目表_二级") = t1 Then
                        Dim dr2 As DataRow
                        dr2 = DataTables ("汇总表").AddNew
                        dr2("一级科目") = dr("科目表_一级")
                        dr2("二级科目") = dr("科目表_二级")
                        dr2("日期") = dr("日期")
                        dr2("摘要") = dr("摘要")
                        dr2("凭证号") = dr("凭证号")
                        dr2("借方") = dr("科目表_借方")
                        dr2("贷方") = dr("科目表_贷方")
                    End if
                    If DR("对方科目_一级") = t2 And DR("对方科目_二级") = t1 Then
                        Dim dr2 As DataRow
                        dr2 = DataTables ("汇总表").AddNew
                        dr2("一级科目") = dr("对方科目_一级")
                        dr2("二级科目") = dr("对方科目_二级")
                        dr2("日期") = dr("日期")
                        dr2("摘要") = dr("摘要")
                        dr2("凭证号") = dr("凭证号")
                        dr2("借方") = dr("对方科目_借方")
                        dr2("贷方") = dr("对方科目_贷方")
                    End If
                Next
                .ResumeRedraw
            End With
        Case 2
            t1 = e.Node.Text
            t2 = e.Node.ParentNode.Text
            t3 = e.Node.ParentNode.ParentNode.Text
            With DataTables ("汇总表")
                .StopRedraw '静止绘制               
                For Each DR In DataTables("流水账").DataRows
                    If DR("科目表_一级") = t3 And DR("科目表_二级") = t2 And DR("科目表_三级") = t1 Then
                        Dim dr2 As DataRow
                        dr2 = DataTables ("汇总表").AddNew
                        dr2("一级科目") = dr("科目表_一级")
                        dr2("二级科目") = dr("科目表_二级")
                        dr2("三级科目") = dr("科目表_三级")
                        dr2("日期") = dr("日期")
                        dr2("摘要") = dr("摘要")
                        dr2("凭证号") = dr("凭证号")
                        dr2("借方") = dr("科目表_借方")
                        dr2("贷方") = dr("科目表_贷方")
                    End if
                    If DR("对方科目_一级") = t3 And DR("对方科目_二级") = t2 And DR("对方科目_三级") = t1 Then
                        Dim dr2 As DataRow
                        dr2 = DataTables ("汇总表").AddNew
                        dr2("一级科目") = dr("对方科目_一级")
                        dr2("二级科目") = dr("对方科目_二级")
                        dr2("三级科目") = dr("对方科目_三级")
                        dr2("日期") = dr("日期")
                        dr2("摘要") = dr("摘要")
                        dr2("凭证号") = dr("凭证号")
                        dr2("借方") = dr("对方科目_借方")
                        dr2("贷方") = dr("对方科目_贷方")
                    End If
                Next
                .ResumeRedraw
            End With
        Case 3
            t1 = e.Node.Text
            t2 = e.Node.ParentNode.Text
            t3 = e.Node.ParentNode.ParentNode.Text
            t4 = e.Node.ParentNode.ParentNode.ParentNode.Text
            With DataTables ("汇总表")
                .StopRedraw '静止绘制               
                For Each DR In DataTables("流水账").DataRows
                    If DR("科目表_一级") = t4 And DR("科目表_二级") = t3 And DR("科目表_三级") = t2 And DR("科目表_四级") = t1 Then
                        Dim dr2 As DataRow
                        dr2 = DataTables ("汇总表").AddNew
                        dr2("一级科目") = dr("科目表_一级")
                        dr2("二级科目") = dr("科目表_二级")
                        dr2("三级科目") = dr("科目表_三级")
                        dr2("四级科目") = dr("科目表_四级")
                        dr2("日期") = dr("日期")
                        dr2("摘要") = dr("摘要")
                        dr2("凭证号") = dr("凭证号")
                        dr2("借方") = dr("科目表_借方")
                        dr2("贷方") = dr("科目表_贷方")
                    End if
                    If DR("对方科目_一级") = t4 And DR("对方科目_二级") = t3 And DR("对方科目_三级") = t2 And DR("对方科目_四级") = t1 Then
                        Dim dr2 As DataRow
                        dr2 = DataTables ("汇总表").AddNew
                        dr2("一级科目") = dr("对方科目_一级")
                        dr2("二级科目") = dr("对方科目_二级")
                        dr2("三级科目") = dr("对方科目_三级")
                        dr2("四级科目") = dr("对方科目_四级")
                        dr2("日期") = dr("日期")
                        dr2("摘要") = dr("摘要")
                        dr2("凭证号") = dr("凭证号")
                        dr2("借方") = dr("对方科目_借方")
                        dr2("贷方") = dr("对方科目_贷方")
                    End If
                Next
                .ResumeRedraw
            End With
        Case 4
            t1 = e.Node.Text
            t2 = e.Node.ParentNode.Text
            t3 = e.Node.ParentNode.ParentNode.Text
            t4 = e.Node.ParentNode.ParentNode.ParentNode.Text
            t5 = e.Node.ParentNode.ParentNode.ParentNode.ParentNode.Text
            With DataTables ("汇总表")
                .StopRedraw '静止绘制               
                For Each DR In DataTables("流水账").DataRows
                    If DR("科目表_一级") = t5 And DR("科目表_二级") = t4 And DR("科目表_三级") = t3 And DR("科目表_四级") = t2 And DR("科目表_五级") = t1 Then
                        Dim dr2 As DataRow
                        dr2 = DataTables ("汇总表").AddNew
                        dr2("一级科目") = dr("科目表_一级")
                        dr2("二级科目") = dr("科目表_二级")
                        dr2("三级科目") = dr("科目表_三级")
                        dr2("四级科目") = dr("科目表_四级")
                        dr2("五级科目") = dr("科目表_五级")
                        dr2("日期") = dr("日期")
                        dr2("摘要") = dr("摘要")
                        dr2("凭证号") = dr("凭证号")
                        dr2("借方") = dr("科目表_借方")
                        dr2("贷方") = dr("科目表_贷方")
                    End if
                    If DR("对方科目_一级") = t5 And DR("对方科目_二级") = t4 And DR("对方科目_三级") = t3 And DR("对方科目_四级") = t2 And DR("对方科目_五级") = t1 Then
                        Dim dr2 As DataRow
                        dr2 = DataTables ("汇总表").AddNew
                        dr2("一级科目") = dr("对方科目_一级")
                        dr2("二级科目") = dr("对方科目_二级")
                        dr2("三级科目") = dr("对方科目_三级")
                        dr2("四级科目") = dr("对方科目_四级")
                        dr2("五级科目") = dr("对方科目_五级")                       
                        dr2("日期") = dr("日期")
                        dr2("摘要") = dr("摘要")
                        dr2("凭证号") = dr("凭证号")
                        dr2("借方") = dr("对方科目_借方")
                        dr2("贷方") = dr("对方科目_贷方")
                    End If
                Next
                .ResumeRedraw
            End With
    End Select
End If
'********
Dim g As SubtotalGroup '汇总模式分组
g = New Subtotalgroup'定义一个新的分组

g.GroupOn = "*" '总计分组
g.TotalOn = "借方,贷方"'对借方和贷方进行统计
g.Caption = "合计"'设置标题

With Tables("汇总表")
    .StopRedraw '停止绘制   
    .Sort = "日期,凭证号"'指定排序列 
    .SubtotalGroups.Clear() '清除原有的分组
    .SubtotalGroups.Add(g) '加入刚刚定义的分组   
    .Subtotal() '生成汇总模式   
        .ResumeRedraw '恢复绘制
    
    .Save   ‘只有1.2万行数据，这里保存时间达到5.5秒，有什么好的办法时间缩短

End With

 

[此贴子已经被作者于2022/6/26 21:09:26编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107671 积分：547676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/26 21:47:00 [只看该作者]

            With DataTables ("汇总表")
                .StopRedraw '静止绘制               
                For Each DR In DataTables("流水账").select（“科目表_一级=‘“ &  t1 & ”’”）
                        Dim dr2 As DataRow
                        dr2 = DataTables ("汇总表").AddNew
                        dr2("一级科目") = dr("科目表_一级")
                        dr2("日期") = dr("日期")
                        dr2("摘要") = dr("摘要")
                        dr2("凭证号") = dr("凭证号")
                        dr2("借方") = dr("科目表_借方")
                        dr2("贷方") = dr("科目表_贷方")
                    next
               For Each DR In DataTables("流水账").select（“对方科目_一级=‘“ &  t1 & ”’”）
                        Dim dr2 As DataRow
                        dr2 = DataTables ("汇总表").AddNew
                        dr2("一级科目") = dr("对方科目_一级")
                        dr2("日期") = dr("日期")
                        dr2("摘要") = dr("摘要")
                        dr2("凭证号") = dr("凭证号")
                        dr2("借方") = dr("对方科目_借方")
                        dr2("贷方") = dr("对方科目_贷方")
                Next
                .ResumeRedraw
            End With

如果是SqlServer，另外可以看看：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=147288
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询