Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表空白，新增行时报错，项目自动关闭


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

主题：[求助]表空白，新增行时报错，项目自动关闭
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		[求助]表空白，新增行时报错，项目自动关闭  发帖心情 Post By：2020/8/3 16:14:00 [只看该作者]

Dim drf As DataRow = e.DataRow

Select Case e.DataCol.Name
    Case "完整路径"
        If Tables("表A").Rows.Count >0 And drf.IsNull("完整路径") = False Then
        Dim s1 As String = Tables("表A").current("完整路径")
        
        If  e.DataRow("完整路径")  Like "*\\*" Then  
            Tables("表A").current("完整路径") = s1.replace("\\","\")
        End If
        
        If  e.DataRow("完整路径")  Like "*__*" Then  
            Tables("表A").current("完整路径") = s1.replace("__","_")
        End If
        
        If  e.DataRow("完整路径")  Like "*_00:00:00*" Then  
            Tables("表A").current("完整路径") = s1.replace("_00:00:00","")
        End If
        
        If  e.DataRow("完整路径")  Like "*:00*" Then  
            Tables("表A").current("完整路径") = s1.replace(":00","")
        End If
        
        
        If  e.DataRow("完整路径")  Like "*_00*"  Then 
            Tables("表A").current("完整路径") = s1.replace(":","-")
        End If
        
        If s1.EndsWith("_")
            Tables("表A").current("完整路径") = s1.replace("_"," ")
        End If
        End If
End Select

上面和下面2组代码，表空白时新增行，系统自动关闭，求助

Select Case e.DataCol.Name
    Case "存储路径","项目名称","项目分类","项目具体名称","发文单位部门","干系人","发文日期","发文时间","上传者角色","上传者","上传日期","上传时间","动作措施","批注","上次查阅日期"
        drf("完整路径") = drf("存储路径")  & "\" &  drf("项目名称")  & "_" & drf("项目分类")  & "_" &  drf("项目具体名称")   & "\" &  drf("发文单位部门")  & "_" &  drf("干系人")  & "_" &  drf("发文日期")  & "_" & cstr(drf("发文时间")).Replace(":","_")  & "\" &  drf("上传者角色")  & "_" &  drf("上传者")  & "_" &  drf("上传日期")  & "_" & cstr(drf("上传时间")).Replace(":","_")  & "\" &  drf("动作措施")  & "_" &  drf("批注")  & "_" &  drf("上次查阅日期")   
End Select
[此贴子已经被作者于2020/8/3 16:14:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

去掉第一段代码

Dim drf As DataRow = e.DataRow

Select Case e.DataCol.Name
    Case "存储路径","项目名称","项目分类","项目具体名称","发文单位部门","干系人","发文日期","发文时间","上传者角色","上传者","上传日期","上传时间","动作措施","批注","上次查阅日期"
      dim s as string =  drf("存储路径")  & "\" &  drf("项目名称")  & "_" & drf("项目分类")  & "_" &  drf("项目具体名称")   & "\" &  drf("发文单位部门")  & "_" &  drf("干系人")  & "_" &  drf("发文日期")  & "_" & cstr(drf("发文时间")).Replace(":","_")  & "\" &  drf("上传者角色")  & "_" &  drf("上传者")  & "_" &  drf("上传日期")  & "_" & cstr(drf("上传时间")).Replace(":","_")  & "\" &  drf("动作措施")  & "_" &  drf("批注")  & "_" &  drf("上次查阅日期")   
drf("完整路径") = s.replace("\\","\").replace("__","_").replace("_00:00:00","")...............
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）去掉第一段代码Dim drf As DataRow =...  发帖心情 Post By：2020/8/10 11:07:00 [只看该作者]

求助，表A中组成 完整路径的某列，变化时，完整路径这个文件夹存在时，这个文件夹就重命名

也就是想通过狐表管理文件夹
[此贴子已经被作者于2020/8/10 11:13:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

比如：
Dim s As String = "c:\某完整路径"
If FileSys.DirectoryExists（s） then
    文件夹存在，重命名
else
    其它处理
end if
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）比如：Dim s As String = "c:\某完整...  发帖心情 Post By：2020/8/10 16:48:00 [只看该作者]

组成 完整路径 多列的值，旧值和新值，怎么比较？代码写在哪里求助。要不懂查找旧值文件夹，修改文件夹名

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


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

DataColChanged

某一列的内容被更改后执行，此时列的内容已经是更改后的值。

e参数属性：

DataTable：返回发生数据更改的数据表。
DataRow：  返回发生数据更改的数据行。
DataCol：  返回发生数据更改的数据列。
NewValue： Object类型，表示新的值。
OldValue： Object类型，表示旧的值
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）DataColChanged某一列的内容被更改后...  发帖心情 Post By：2020/8/10 17:16:00 [只看该作者]

就是不懂，代码写在这里，值已改变，不懂怎么查找旧值，组成的 完整路径 文件夹，修改成 新值 组成的 完整路径 文件夹
[此贴子已经被作者于2020/8/10 17:17:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/8/10 17:27:00 [只看该作者]

请上传具体实例说明

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


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）请上传具体实例说明  发帖心情 Post By：2020/8/10 17:48:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:求助.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/8/10 20:11:00 [只看该作者]

需要做到什么效果？请举例详细描述一下

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