关于word报表模板分组显示问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我看了最好洗8次，不管是100行，1000行，还是10000行，我都设为8次，这样就没问题，不影响效果，对吧？

For i As Integer = 0 To 8 '洗牌次数

这种有没有影响只能靠自己测试决定

'老师.应该现在这个代码是非常完美的代码了，写出来，供大家分享

Dim dt As DataTable = DataTables("数据提取2")

Dim cnt As Integer = dt.DataRows.Count

Dim ids1 As New List(Of Integer) '用于存储洗牌前的位置

Dim ids2 As New List(Of Integer) '用于存储洗牌后的位置

For i As Integer = 0 To cnt - 1 '准备初始的牌

ids1.add(i)

If cnt >= 24 Then

For i As Integer = 0 To cnt \ 3 '设置洗牌次数

ids2.Add(ids1(rand.Next(0, ids1.count)))

Else

For i As Integer = 0 To 8 '设置洗牌次数

ids2.Add(ids1(rand.Next(0, ids1.count)))

End If

dt.StopRedraw() '停止绘制表

For Each dr As DataRow In dt.DataRows

dr("随机数") = Rand.NextString(9)

dt.ResumeRedraw() '恢复绘制表

老师，一打开项目文件提示，这是在
图片点击可在新窗口打开查看

此主题相关图片如下：mmexport1716525559538.png

哪里有问题

关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。

老师，还是显示同样结果

用ctrl打开项目，然后检查项目事件

Dim dt1 As DataTable = DataTables("周结汇总2日")

Dim dt2 As DataTable = DataTables("销售A")

dt1.DataRows.Clear

Dim cs() As String = {"周销售额_星期日", "周销售额_星期一", "周销售额_星期二", "周销售额_星期三", "周销售额_星期四", "周销售额_星期五", "周销售额_星期六"}

For Each dr As DataRow In dt2.Select("日期 is not null", "日期")

Dim d As Date = dr("日期")

Dim y As Integer = d.Year

Dim w As Integer = d.DayOfWeek '算出今天是星期几

If w = 0 Then w = 7

Dim d1 As Date = d.AddDays( - w + 7)

Dim d2 As Date = d.AddDays(6 - w + 7)

Dim fdr As DataRow = dt1.find("添加汇总辅助列_周日 = #" & d1 & "# and 添加汇总辅助列_周六 = #" & d2 & "#")

If fdr Is Nothing Then

fdr = dt1.addnew

fdr("添加汇总辅助列_周日") = d1

fdr("添加汇总辅助列_周六") = d2

End If

Dim i As Integer = d.DayOfWeek

fdr(cs(i)) += dr("金额2") '可能这里有问题

fdr("周销售额_合计") += dr("金额2")

Maintable = Tables("周结汇总2日") '打开生成的统计表

老师, 请看一下, 金额数周1 - 周六的对应不了, 对到了下周, 请问怎么修改？

2个表存储的数据是怎么样的，截图发上来看看

主题：关于word报表模板分组显示问题