DataTables("作业单位").DataCols("附件").FTPClient.Host="150.168.254.201"

    DataTables("作业单位").DataCols("附件").FTPClient.Port="*****"

    DataTables("作业单位").DataCols("附件").FTPClient.Account = "*******"

    DataTables("作业单位").DataCols("附件").FTPClient.Password = "********"

在窗口1的 AfterLoad 添加了如下代码：

Dim lst As WinForm.Table = e.Form.Controls("Table1")

Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")

If lst.Table.Rows.Count>0 Then

    Dim file1 As String=trim(lst.Table.Current("作业单位编码"))

    ftp2.Host="150.168.254.201"

    ftp2.Port="****"

    ftp2.Account = "*******"

    ftp2.Password = "**********"

    piv.FTPclient=ftp2

    piv.FTPclient.RootDir=_pathzyba & "/" & file1

    If ftp2.Connected = True \'如果FTP没有连接

        _pathzyba=ftp2.CurrentDir & "workunit/"

DataTables("作业单位").DataCols("附件").SourceFolder=_pathzyba & "/" & file1

    Else

        If ftp2.Connect Then

            _pathzyba=ftp2.CurrentDir & "workunit/"

DataTables("作业单位").DataCols("附件").SourceFolder=_pathzyba & "/" & file1

End If

在datatabels("作业单位"）的BeforeAddFile 事件里面写入如下代码：

If e.DataCol.name = "附件" Then

    If e.DataRow.IsNull("作业单位编码") = False

       If ftp2.Connected Then

        e.path = ftp2.CurrentDir & "workunit/" & e.DataRow("作业单位编码")

            End If

    End If

End If

在datatabels("作业单位"）的BeforeAttachFile 事件里面写入如下代码：

Select Case e.DataCol.Name

    Case "附件" \'如果在图片列插入文件

        If ftp2.Connected  Then

            e.Subfolder = ftp2.CurrentDir & "workunit/" & e.DataRow("作业单位编码")\'将此文件存放在目录名为部门名称的子目录中.

         End If

End Select