Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于word报表模板分组显示问题


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

主题：关于word报表模板分组显示问题
帅哥，在线噢！
有点蓝
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107649 积分：547554 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/3 14:11:00 [只看该作者]

是要把"F:\项目F6\"这个目录里的文件复制过去，还是把"F:\项目F6\"里的子目录的文件复制过去？
如果有一个文件在"G:\项目G7"，是全部都不复制，还是只是有的文件不复制，没有的继续复制？
[此贴子已经被作者于2024/6/3 14:10:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/3 14:38:00 [只看该作者]

'For Each File1 As String In FileSys.GetFiles("F:\项目F6\") '列出C盘根目录下所有的文件名
For Each File1 As String In FileSys.GetDirectories ("F:\项目F6\") '列出C盘根目录下所有的子目录名           
    FileSys.CopyDirectory ("F:\项目F6", "G:\项目G7") '将目录中的内容复制到另一个目录       
Next
'老师, 上述代码, 复制正常.但再点击按钮时, 提示出错, 查看文件夹已全部复制, 包括子目录.
'用以下代码时, 确不能复制
'For Each File1 As String In FileSys.GetFiles("F:\项目F6\") '列出C盘根目录下所有的文件名
For Each File1 As String In FileSys.GetDirectories ("F:\项目F6\") '列出C盘根目录下所有的子目录名
    For Each File As String In FileSys.GetFiles("G:\项目G7\") 
        If FileSys.GetName(File) Is Nothing Then 
            FileSys.CopyDirectory ("F:\项目F6", "G:\项目G7") '将目录中的内容复制到另一个目录
        End If
    Next
Next
'不管用第一句代码, 还是第二句(包含子目录),均不能复制,都是空白，不知道什么原因？
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/3 14:56:00 [只看该作者]

把"F:\项目F6\"里的子目录的文件都复制过去。
都不能复制
[此贴子已经被作者于2024/6/3 15:05:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/3 15:32:00 [只看该作者]

将"2024年第1周", 分解为"2024", "1"两列, 其代码如下：
写法1：
Dim V1 As String = e.DataRow("例7根据星期计算_年周次")
Dim s1() As Char = {"年第", "周"} '分割字符可以是一个数组，"年", "月", "日"都参与了内容的分割          
Dim Names() As String = V1.Split(s1)
For Each name As String In Names 
    e.DataRow("例7根据星期计算_年") = Names(0) '结果：2024  正常
    e.DataRow("例7根据星期计算_周次") = Names(1) '结果：第1  错误
Next
写法2：
Dim V1 As String = e.DataRow("例7根据星期计算_年周次")
Dim s1() As Char = {"年", "第", "周"} '分割字符可以是一个数组，"年", "月", "日"都参与了内容的分割            
Dim Names() As String = V1.Split(s1)
For Each name As String In Names 
    e.DataRow("例7根据星期计算_年") = Names(0) '结果：2024  正常
    e.DataRow("例7根据星期计算_周次") = Names(2) '结果：第1  正常
Next
请问老师, 本应按照写法1来做, 为何出错？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107649 积分：547554 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/3 15:35:00 [只看该作者]

Split仅支持单字符

Dim V1 As String = e.DataRow("例7根据星期计算_年周次")
Dim Names() As String = V1.replace("年第","|").Split("|")
    e.DataRow("例7根据星期计算_年") = Names(0) '结果：2024  正常
    e.DataRow("例7根据星期计算_周次") = Names(1) '结果：第1  错误
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/3 16:03:00 [只看该作者]

这个问题已解决，谢谢老师。
请老师帮助再看看43楼问题怎么解决？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

请回答41楼的问题

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/3 16:47:00 [只看该作者]


1.是要把"F:\项目F6\"这个目录里的文件复制过去，还是把"F:\项目F6\"里的子目录的文件复制过去？
答：是把"F:\项目F6\"里的子目录的文件全部复制过去。
2.如果有一个文件在"G:\项目G7"，是全部都不复制，还是只是有的文件不复制，没有的继续复制？
答：点击按钮，文件全部没有复制到G7
 回到顶部
帅哥，在线噢！
有点蓝
 小大  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107649 积分：547554 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/3 16:50:00 [只看该作者]

2.如果有一个文件在"G:\项目G7"，是全部都不复制，还是只是有的文件不复制，没有的继续复制？
答：点击按钮，文件全部没有复制到G7

我想问的是这个代码想要实现什么功能？是发现只要有一个文件存在就全部目录不复制？还是只是存在的文件不复制，不存在的文件继续复制？
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/3 17:20:00 [只看该作者]

全部文件不能复制，文件夹也不能复制，其实就是没反应

 回到顶部
总数 116 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..12
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10938 秒, 4 次数据查询