Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]报错


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

主题：[求助]报错
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		[求助]报错  发帖心情 Post By：2020/4/28 11:15:00 [显示全部帖子]

系统菜单，默认隐藏，点击显示时报错

.NET Framework 版本：4.0.30319.34209
Foxtable 版本：2020.4.19.8
错误所在事件：
详细错误信息：
未将对象引用设置到对象的实例。


表头，关闭显示时，报错
.NET Framework 版本：4.0.30319.34209
Foxtable 版本：2020.4.19.8
错误所在事件：
详细错误信息：
未将对象引用设置到对象的实例。
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		  发帖心情 Post By：2020/4/28 11:17:00 [显示全部帖子]

access数据源，在项目里面没问题。移动到 服务器后报错，数据源路径  \\集团\部门

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


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		  发帖心情 Post By：2020/4/28 11:29:00 [显示全部帖子]

Dim ipfile As String = projectpath & "Bin\ip.txt" '定义Ipfile为配置文件
If filesys.FileExists(ipfile) = True Then
    '先检测是否有Ip.txt这个配置文件
    Dim dbfile As String = filesys.ReadAllText(ipfile) '将dbfile定义为配置文件的内容,即数据库的路径
    If dbfile <> "EFNnpR3RvQmwrYO2XCnRxODgpQsORd57hLFHltTK9C/Uy3NokLJKXqnSJ9QI5Afy3ZLRmcSxk7BaRY3YVxrx5GjLb12YubMwysgK44VW21+pQg7K1i8YA+eYw3FoJ5tBfHmU53S/AtyIr/59FHAegIbFUZIzyJ1cySjEQLPgEDo=" Then   '若指定的数据库存在
        FileSys.WriteAllText(projectpath & "Bin\ip.txt", "EFNnpR3RvQmwrYO2XCnRxODgpQsORd57hLFHltTK9C/Uy3NokLJKXqnSJ9QI5Afy3ZLRmcSxk7BaRY3YVxrx5GjLb12YubMwysgK44VW21+pQg7K1i8YA+eYw3FoJ5tBfHmU53S/AtyIr/59FHAegIbFUZIzyJ1cySjEQLPgEDo=", False)
    End If
End If

'Dim ipfile As String = projectpath & "Bin\ip.txt"   '定义Ipfile为配置文件
If filesys.FileExists(ipfile) = True Then     '先检测是否有Ip.txt这个配置文件
    Dim dbfile As String = filesys.ReadAllText(ipfile)  '将dbfile定义为配置文件的内容,即数据库的路径?
    Dim Val3 As String = DecryptText(dbfile,"ss","ff") '解密,两个密钥必须和加密的时候相同
    If e.name = "database" Then
        e.C & Val3 & ";Persist Security Info=False"  ' 若是数据库有密码,则加上:  ;jet OLEDB:DATABASE PASSWORD=123456
        
    End If
End If

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


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）projectpath改为e.projectpath  发帖心情 Post By：2020/4/28 12:31:00 [显示全部帖子]

坛主，上面加密数据源路径后， 动态设置文件储存路径，失败，帮忙看看了

上传图片 上次文档  列属性设置了 存放目录
\\集团\部门\图片
\\集团\部门\文档
或
O:\项目管理系统数据库\mj\图片
O:\项目管理系统数据库\mj\文档

上传的图片或文档，全部只在上面图片或文档路径里面，不能上传到图片或文档文件夹里面再创建下面动态路径，下面代码哪里有问题？求助
也就是下面代码失效


Dim dr As DataRow = e.DataRow
If dr.IsNull("省市项目名称") Then
    msgbox("省市项目名称 不能为空")
    e.cancel = True
Else
    Select Case e.DataCol.Name
       
        Case "上传成果"
            e.SubFolder = dr("省市项目名称") & "\" & dr("板块")  & "\" & dr("上传文件名称")  & "\" & dr("版次")  & "\" & dr("上传者")  & "\" & dr("上传日期")  & "_" & cstr(dr("上传时间")).Replace(":","_")
            '取消了这列
        Case "上传计划"
            e.SubFolder = dr("省市项目名称") & "\" & dr("板块")  & "\" & dr("上传文件名称")  & "\" & dr("版次")  & "\" & dr("上传者")  & "\" & dr("上传日期")  & "_" & cstr(dr("上传时间")).Replace(":","_")

    End Select
End If
[此贴子已经被作者于2020/4/28 12:38:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）如果路径不存在是无法使用的，不存在...  发帖心情 Post By：2020/4/28 14:53:00 [显示全部帖子]

Dim dr As DataRow = e.DataRow
If dr.IsNull("省市项目名称") Then
    msgbox("省市项目名称 不能为空")
    e.cancel = True
Else
    If FileSys.DirectoryExists(e.DataCol.DefaultFolder & "\" & dr("省市项目名称") & "\" & dr("板块") & "\" & dr("上传文件名称") & "\" & dr("版次") & "\" & dr("上传者") & "\" & dr("上传日期") & "_" & cstr(dr("上传时间")).Replace(":","_")) = False
       FileSys.CreateDirectory(e.DataCol.DefaultFolder & "\" & dr("省市项目名称") & "\" & dr("板块") & "\" & dr("上传文件名称") & "\" & dr("版次") & "\" & dr("上传者") & "\" & dr("上传日期") & "_" & cstr(dr("上传时间")).Replace(":","_"))
    End If
'同样的方法创建下级目录
     Select Case e.DataCol.Name
       '
        Case "上传文档"
            e.SubFolder = dr("省市项目名称") & "\" & dr("板块") & "\" & dr("上传文件名称") & "\" & dr("版次") & "\" & dr("上传者") & "\" & dr("上传日期") & "_" & cstr(dr("上传时间")).Replace(":","_")
            '取消了这列
        Case "上传图片"
            e.SubFolder = dr("省市项目名称") & "\" & dr("板块") & "\" & dr("上传文件名称") & "\" & dr("版次") & "\" & dr("上传者") & "\" & dr("上传日期") & "_" & cstr(dr("上传时间")).Replace(":","_")

    End Select
End If

上面代码，如果列都有值，不报错
但是如果列值有空，就不错，不行了
求助，允许列值为空，上面代码怎么修改
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）电脑系统目录不能为空名称，无法创建...  发帖心情 Post By：2020/4/28 15:13:00 [显示全部帖子]

坛主，把两个以上连在一起的\斜号，去除只剩1个，应该就可以了吧
这个功能应该很多人有这个需求，有空帮忙看这样能否实现满足空值了
[此贴子已经被作者于2020/4/28 15:14:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）自己使用Replace把2个斜杆替换为一个...  发帖心情 Post By：2020/4/28 16:16:00 [显示全部帖子]

坛主，报错辛苦帮忙了

Dim dr As DataRow = e.DataRow
If dr.IsNull("省市项目名称") Then
    msgbox("省市项目名称 不能为空")
    e.cancel = True
Else
Dim aa As String = e.DataCol.DefaultFolder & "\" & dr("省市项目名称") & "\" & dr("板块") & "\" & dr("上传文件名称") & "\" & dr("版次") & "\" & dr("上传者") & "\" & dr("上传日期") & "_" & cstr(dr("上传时间")).Replace(":","_")
aa.Replace("\\","\")
    If FileSys.DirectoryExists(aa) = False
       FileSys.CreateDirectory(aa)
    End If
     Select Case e.DataCol.Name
       '
        Case "上传文档"
            e.SubFolder = aa
        Case "上传图片"
            e.SubFolder = aa

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


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）aa = aa.Replace("\\","\")  发帖心情 Post By：2020/4/28 16:25:00 [显示全部帖子]

还是报错

不支持给定路径的格式。

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


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）msgbox(aa)自己看看路径是否存在？另...  发帖心情 Post By：2020/4/28 17:10:00 [显示全部帖子]

群主，新建文件夹成功，上传文件失败报错，辛苦再看看

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