[浏览完整版]
标题：关于word报表模板分组显示问题
31楼
jhxb8821 发表于：2024/5/28 12:34:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:2表.rar |
前表：周结汇总2日。后者销售A表
汇总结果的数据：周一至周六应统统往上一行
[此贴子已经被作者于2024/5/28 12:51:25编辑过]
32楼
有点蓝 发表于：2024/5/28 13:36:00……
If fdr Is Nothing Then
fdr = dt1.addnew
fdr("添加汇总辅助列_周日") = d1
fdr("添加汇总辅助列_周六") = d2
fdr("周销售额_合计") = dt2.compute("sum(金额2)","日期 >= #" & d1 & "# and 日期 <= #" & d2 & "#") End If
Dim i As Integer = d.DayOfWeek
fdr(cs(i)) = dr("金额2") '可能这里有问题
Next
33楼
jhxb8821 发表于：2024/5/28 14:09:00蓝老师, 这里fdr(cs(i)) = dr("金额2")应为 fdr(cs(i)) += dr("金额2").现在还是出现汇总结果：周一至周六的合计数据出现填充错行的现象, 周一至周六的数据应填充到上一行, 也就是应填充到本周的数据行中
34楼
有点蓝 发表于：2024/5/28 14:12:00就是fdr(cs(i)) = dr("金额2")，为什么要使用 fdr(cs(i)) += dr("金额2")？
35楼
jhxb8821 发表于：2024/5/28 15:16:00问题如项目所示
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目240528.rar |
36楼
有点蓝 发表于：2024/5/28 16:09:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目240528.zip |
37楼
jhxb8821 发表于：2024/5/28 21:36:00感谢老师，圆满解决问题
38楼
jhxb8821 发表于：2024/6/2 11:05:00'For Each File As String In FileSys.GetFiles("F:\项目F6\") '列出C盘根目录下所有的文件名
For Each File As String In FileSys.GetDirectories ("F:\项目F6\") '列出C盘根目录下所有的子目录名
'这里加一个判断，如果项目G7文件夹里已有该文件名，则不需要重复复制，还有错误提示
FileSys.CopyDirectory ("F:\项目F6", "G:\项目G7") '将目录中的内容复制到另一个目录
Next
请老师帮忙看一下
39楼
有点蓝 发表于：2024/6/2 20:54:00使用FileSys.GetFiles遍历项目G7里所有文件，然后判断文件名称
40楼
jhxb8821 发表于：2024/6/3 11:00:00'For Each File As String In FileSys.GetFiles("F:\项目F6\")
For Each File1 As String In FileSys.GetDirectories ("F:\项目F6\")
For Each File As String In FileSys.GetFiles("G:\项目G7\") '遍历项目G7文件夹里所有文件名
If FileSys.GetName(File) Is Nothing Then
FileSys.CopyDirectory ("F:\项目F6", "G:\项目G7") '将目录中的内容复制到另一个目录
End If
Next
Next
老师，加上这些代码后，还不能复制了，代码肯定有问题