[浏览完整版]
标题：关于word报表模板分组显示问题
21楼
jhxb8821 发表于：2024/5/20 18:18:00老师，我看了最好洗8次，不管是100行，1000行，还是10000行，我都设为8次，这样就没问题，不影响效果，对吧？
For i As Integer = 0 To 8 '洗牌次数
22楼
有点蓝 发表于：2024/5/20 20:16:00这种有没有影响只能靠自己测试决定
23楼
jhxb8821 发表于：2024/5/20 20:45:00好的
24楼
jhxb8821 发表于：2024/5/21 11:28:00'老师.应该现在这个代码是非常完美的代码了，写出来，供大家分享
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)
Next
If cnt >= 24 Then
For i As Integer = 0 To cnt \ 3 '设置洗牌次数
ids2.Add(ids1(rand.Next(0, ids1.count)))
Next
Else
For i As Integer = 0 To 8 '设置洗牌次数
ids2.Add(ids1(rand.Next(0, ids1.count)))
Next
End If
dt.StopRedraw() '停止绘制表
For Each dr As DataRow In dt.DataRows
dr("随机数") = Rand.NextString(9)
Next
dt.ResumeRedraw() '恢复绘制表
25楼
jhxb8821 发表于：2024/5/24 12:45:00老师，一打开项目文件提示，这是在
此主题相关图片如下：mmexport1716525559538.png
哪里有问题
此主题相关图片如下：mmexport1716525559538.png哪里有问题
26楼
有点蓝 发表于：2024/5/24 13:29:00关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。
27楼
jhxb8821 发表于：2024/5/24 15:58:00老师，还是显示同样结果
28楼
有点蓝 发表于：2024/5/24 16:04:00用ctrl打开项目，然后检查项目事件
29楼
jhxb8821 发表于：2024/5/28 11:40:00Dim 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")
Next
Maintable = Tables("周结汇总2日") '打开生成的统计表
老师, 请看一下, 金额数周1 - 周六的对应不了, 对到了下周, 请问怎么修改？
30楼
有点蓝 发表于：2024/5/28 11:48:002个表存储的数据是怎么样的，截图发上来看看