专家坐堂-[求助]代码合并Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码合并  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107231)

--  作者：江南小镇
--  发布时间：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("发票原件") = 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("发票原件")) = False Then
e.Form.Controls("文件名1").text = "文件已被删除!"
e.Form.Controls("PictureBox2").image = getimage("del.png")
Else
e.Form.Controls("文件名1").text = Tables("出库.出库明细").Current("发票原件")
Functions.Execute("出库票据上传") \'函数名
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("送货单票上传")) \'函数名
End If
End If

[此贴子已经被作者于2017/9/23 21:34:59编辑过]

--  作者：有点甜
--  发布时间：2017/9/24 23:22:00
--

1、你的逻辑是什么？

2、例子说明问题。

--  作者：江南小镇
--  发布时间：2017/9/25 9:20:00
--

老师，打开窗口报错。

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:图片上传.rar

--  作者：有点甜
--  发布时间：2017/9/25 9:29:00
--
打开你的例子，没有报错。

--  作者：江南小镇
--  发布时间：2017/9/25 9:37:00
--

此主题相关图片如下：图像 1.png

--  作者：有点甜
--  发布时间：2017/9/25 9:39:00
--
我测试没问题，你把你项目的bin文件夹删除，重新打开。

--  作者：江南小镇
--  发布时间：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("发票原件") = 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("发票原件")) = False Then
e.Form.Controls("文件名1").text = "文件已被删除!"
e.Form.Controls("PictureBox2").image = getimage("del.png")
Else
e.Form.Controls("文件名1").text = Tables("出库.出库明细").Current("发票原件")
Functions.Execute("出库票据上传") \'函数名
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("送货单票上传")) \'函数名
\' End If
\'End If

--  作者：有点甜
--  发布时间：2017/9/25 10:24:00
--

测试没问题。

此主题相关图片如下：test.gif

--  作者：江南小镇
--  发布时间：2017/9/25 12:40:00
--

以下是引用江南小镇在2017/9/25 9:20:00的发言：

老师，打开窗口报错。

下载信息  [文件大小：184.0 KB  下载次数：1]
点击浏览该文件:图片上传.rar

老师，窗口关联表是通过代码绑定的，控件也是用代码绑定的，如果关联表子表是空的就为报错代码不执行。

--  作者：有点甜
--  发布时间：2017/9/25 14:42:00
--

加上判断

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

    \'原来代码

End If