BeforeAddFile 事件
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