Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码合并


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

主题：[求助]代码合并
帅哥哟，离线，有人找我吗？
江南小镇
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]代码合并  发帖心情 Post By：2017/9/23 19:33:00 [只看该作者]

老师，下面是两组代码，设置一组不报错两组多设置就要报错。


.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2017.4.22.1
错误所在事件：窗口,出库,AfterLoad
详细错误信息：
Value cannot be null.
Parameter name: key






If GetConfigValue("文件夹路径" & ComputerId,"") = "" Then  '若未指定存储路径
    e.Form.Controls("路径1").text = "尚未指定文件存储路径!"
Else
    e.Form.Controls("路径1").text = GetConfigValue("文件夹路径" & ComputerId,"")
End If

If Tables("出库.出库明细").Current.Isnull("fa piao原件") = True Then '若文件名为空
    e.Form.Controls("文件名1").text = "未上传文件!"
    e.Form.Controls("PictureBox2").image = getimage("other.png")
Else
    If filesys.FileExists(e.Form.Controls("路径1").text & "\" & Tables("出库.出库明细").Current("fa piao原件")) = False Then
        e.Form.Controls("文件名1").text = "文件已被删除!"
        e.Form.Controls("PictureBox2").image = getimage("del.png")
    Else
        e.Form.Controls("文件名1").text = Tables("出库.出库明细").Current("fa piao原件")
        Functions.Execute("出库piao据上传")  '函数名
    End If
End If



If GetConfigValue("文件夹路径1" & ComputerId,"") = "" Then  '若未指定存储路径
    e.Form.Controls("路径").text = "尚未指定文件存储路径!"
Else
    e.Form.Controls("路径").text = GetConfigValue("文件夹路径1" & ComputerId,"")
End If

If Tables("出库.出库明细").Current.Isnull("送货单") = True Then '若文件名为空
    e.Form.Controls("文件名").text = "未上传文件!"
    e.Form.Controls("PictureBox1").image = getimage("other.png")
Else
    If filesys.FileExists(e.Form.Controls("路径").text & "\" & Tables("出库.出库明细").Current("送货单")) = False Then
        e.Form.Controls("文件名").text = "文件已被删除!"
        e.Form.Controls("PictureBox1").image = getimage("del.png")
    Else
        e.Form.Controls("文件名").text = Tables("出库.出库明细").Current("送货单")
        Functions.Execute(Functions.Execute("送货单piao上传"))  '函数名
    End If
End If
[此贴子已经被作者于2017/9/23 21:34:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/24 23:22:00 [只看该作者]

1、你的逻辑是什么？

 

2、例子说明问题。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/9/25 9:20:00 [只看该作者]

老师，打开窗口报错。


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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/25 9:29:00 [只看该作者]

打开你的例子，没有报错。

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


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/9/25 9:37:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/25 9:39:00 [只看该作者]

 我测试没问题，你把你项目的bin文件夹删除，重新打开。

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


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/9/25 10:20:00 [只看该作者]

老师，没有用，两组代码屏蔽一组就不报错。

If GetConfigValue("文件夹路径" & ComputerId,"") = "" Then  '若未指定存储路径
    e.Form.Controls("路径1").text = "尚未指定文件存储路径!"
Else
    e.Form.Controls("路径1").text = GetConfigValue("文件夹路径" & ComputerId,"")
End If

If Tables("出库.出库明细").Current.Isnull("fa piao原件") = True Then '若文件名为空
    e.Form.Controls("文件名1").text = "未上传文件!"
    e.Form.Controls("PictureBox2").image = getimage("other.png")
Else
    If filesys.FileExists(e.Form.Controls("路径1").text & "\" & Tables("出库.出库明细").Current("fa piao原件")) = False Then
        e.Form.Controls("文件名1").text = "文件已被删除!"
        e.Form.Controls("PictureBox2").image = getimage("del.png")
    Else
        e.Form.Controls("文件名1").text = Tables("出库.出库明细").Current("fa piao原件")
        Functions.Execute("出库piao据上传")  '函数名
    End If
End If



'If GetConfigValue("文件夹路径1" & ComputerId,"") = "" Then  '若未指定存储路径
    'e.Form.Controls("路径").text = "尚未指定文件存储路径!"
'Else
   ' e.Form.Controls("路径").text = GetConfigValue("文件夹路径1" & ComputerId,"")
'End If

'If Tables("出库.出库明细").Current.Isnull("送货单") = True Then '若文件名为空
   ' e.Form.Controls("文件名").text = "未上传文件!"
    'e.Form.Controls("PictureBox1").image = getimage("other.png")
'Else
   ' If filesys.FileExists(e.Form.Controls("路径").text & "\" & Tables("出库.出库明细").Current("送货单")) = False Then
       ' e.Form.Controls("文件名").text = "文件已被删除!"
       ' e.Form.Controls("PictureBox1").image = getimage("del.png")
    'Else
       ' e.Form.Controls("文件名").text = Tables("出库.出库明细").Current("送货单")
       ' Functions.Execute(Functions.Execute("送货单piao上传"))  '函数名
   ' End If
'End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/25 10:24:00 [只看该作者]

 测试没问题。

 

 


图片点击可在新窗口打开查看此主题相关图片如下：test.gif
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2017/9/25 12:40:00 [只看该作者]

以下是引用江南小镇在2017/9/25 9:20:00的发言：
老师，打开窗口报错。


 下载信息  [文件大小：184.0 KB  下载次数：1]
图片点击可在新窗口打开查看点击浏览该文件:图片上传.rar

老师，窗口关联表是通过代码绑定的，控件也是用代码绑定的，如果关联表子表是空的就为报错代码不执行。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/25 14:42:00 [只看该作者]

加上判断

 

If Tables("出库.出库明细").Current IsNot Nothing Then

 

    '原来代码

 

End If
 回到顶部
总数 15 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.07031 秒, 5 次数据查询