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

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

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

 

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

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

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

开发者密码?

 看完这里

 

http://www.foxtable.com/help/topics/2436.htm

 

取的是附件的值：

上传按钮代码：

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

 赋值的时候啊，直接给表赋值啊。

 

Tables("BUG录入表").Current("附件") = "D:\test.doc"

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

 

 

 说明你浏览按钮没有写对啊。你能好好看我3楼和5楼么？

 

http://www.foxtable.com/help/topics/2436.htm

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

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