If e.DataCol.name = "第十列" Then ' 这一列有特别的设置要求吗?
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim ftp As ftpclient = e.DataCol.FTPClient '这一列有特别的设置要求吗?
If ftp.Upload(dlg.FileName, "/" & FileSys.GetName(dlg.fileName))
e.DataRow("第十列") &= iif(e.DataRow("第十列")>"", vbcrlf, "") & FileSys.GetName(dlg.fileName)
End If
End If
e.cancel = True
End If
If e.DataCol.name = "图片1" Then
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim ftp As ftpclient = e.DataCol.FTPClient
If ftp.Upload(dlg.FileName, "/" & FileSys.GetName(dlg.fileName)) = True Then
Msgbox("ok") 不会弹出这个
Else
Msgbox("ng") 也不会弹出这个
End If
End If
e.cancel = True
End If
If e.DataCol.name = "图片1" Then
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim ftp As ftpclient = e.DataCol.FTPClient
Msgbox(ftp.CurrentDir) 也不会弹出这个
End If
e.cancel = True
End If
此主题相关图片如下：2015-08-05_152843.jpg
[此贴子已经被作者于2015/8/5 15:35:48编辑过]
加好友 
发短信
Post By：2015/8/5 9:42:00 [只看该作者]
