---------------------------
错误
---------------------------
编译错误:“e”是“Private”，因此它在此上下文中不可访问。
错误代码：If e.Col.name = "图片" Then
---------------------------
确定
---------------------------
If e.Col.name = "图片" Then
baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized
ClipBoard.Clear
Dim proc As new Process
proc.File = ApplicationPath & "/capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
Dim f As String = e.Row("客户名称") & "\" & e.Row("楼层")& "\" & "3.报价配图" & "\" & Format( Date.Today,"yyyy-MM-dd") & "\"& e.Row("产品名") &"-" & e.Row("产品号")&".png"
Dim path As String = e.Col.DataCol.DefaultFolder
If path = "" Then
path ="D:\艾迪尔整体定制\TOCASA2017\2.项目文件"
msgbox(1)
End If
basemainform.WindowState = 2
Dim dir As String = FileSys.GetParentPath(path & "/" & f)
If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)
ClipBoard.GetImage.save(path & "/" & f)
e.Row(e.Col.name) = f
Dim ftp1 As New FtpClient
'
'ftp1.Host="ftp5
'ftp1.Account = " tocasa"
'ftp1.Password = "Yi
'
ftp1.Host="47.
ftp1.Account = "foxftp"
ftp1.Password = "Yi
Dim path2 As String = ""
Dim file As String = e.Row("客户名称") & "\" & e.Row("楼层")& "\" & "3.报价配图" & "\" & Format( Date.Today,"yyyy-MM-dd")
For Each s As String In file.split("\")
path2 = path2 & "/" & s
If ftp1.DirExists(path2) = False Then
ftp1.MakeDir(path2)
End If
Next
If ftp1.Upload(path & "/" & f, path2 & "/" & e.Row("产品名") &"-" & e.Row("产品号") & ".png") = True Then
'If ftp1.Upload(path & "\" & f, "/" & f) = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
e.cancel = True
Tables("订单总表.订单明细").Current.Save() '保存文件的行
End If
加好友 
发短信
Post By：2017/12/13 9:03:00 [只看该作者]
