主题：[求助]附件消失？

点击浏览，上传后，附件是有内容的。

可是发现当选择严重程度后，附件自燃消失了，是怎么回事？

 

此主题相关图片如下：附件消失.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:临时版本跟踪系统1225.rar

取的是附件的值：

上传按钮代码：

Dim ftp1 As New FtpClient
ftp1.Host="192.168.1.72"
ftp1.Account = "bug"
ftp1.Password = "bug"
Dim txt As  WinForm.TextBox = e.Form.Controls("textbox2")
txt.Value = Tables("BUG录入表").Current("附件")
If ftp1.Upload(txt.value, FileSys.GetName(txt.value)) = True Then
    Messagebox.show("恭喜你附件上传完成!","博达BUG综合管理系统",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("不好意思附件上传失败!极有可能本地文件与ftp server的文件重名了,请修改名称重新上传","博达BUG综合管理系统",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

.NET Framework 版本：2.0.50727.8009
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,BUG录入系统,上传,Click
详细错误信息：
路径不能为空。
参数名: path

浏览按钮代码如下：增加了红色代码，现在上传是可以了。

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok  Then  '如果用户单击了确定按钮
    Dim f1 As String = dlg.filename
    MessageBox.Show("你选择的是:" & f1,"博达BUG综合管理系统提示您") '提示用户选择的文件
    Dim txt As WinForm.TextBox = e.Form.Controls("TextBox2")
    txt.Value = f1
    Tables("BUG录入表").Current("附件") = txt.value
End  If