在表BeforeAddFile加入如下代码：
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
Dim ywdwbm As String=e.Form.Controls("fkdwbm").value
ftp2.Host="192.168.254.201"
ftp2.Port="8888"
ftp2.Account = "foxtable"
ftp2.Password = "************"
ftp2.RootDir="/workunit/" & ywdwbm
piv.FTPclient=ftp2
If ftp2.Connected = True '如果FTP没有连接
Else
If ftp2.Connect Then
Else
MessageBox.show("网络不通,请稍后再试!","")
End If
End If
If ftp2.DirExists(ftp2.RootDir) Then
Else
ftp2.MakeDir(ftp2.RootDir)
End If
If e.DataCol.name = "附件" Then
If e.DataRow.IsNull("作业单位编码") = False
If ftp2.Connected Then
e.path = "/workunit/" & Forms("新增业务单位信息").Controls("fkdwbm").value
End If
End If
End If
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
e.Cancel = True
Dim info As new FileInfo(dlg.FileName)
msgbox(info.Name)
msgbox(info.Extension)
msgbox(info.Name.replace(info.Extension, ""))
msgbox(_pathzyba)
Forms("新增业务单位信息").Controls("fjdz").value=e.path & "/" & Info.name
End If
Dim Files As List(of String) = piv.FtpClient.SelectFile()
For Each File2 As String In Files
piv.AddFile(File2)
Next
ftp2.Close
在点击PictureViewer增加按钮是，弹出从本地选择图片文件的对话框，选中后，又弹出ftp对话框，选择从本地上传文件。弹出两次，怎么才能只弹出ftp的对话框。是不是代码写的有问题，麻烦您老师看一下，怎么处理。
加好友 
发短信
Post By：2017/7/4 14:39:00 [只看该作者]
