这个表中有一列(图纸文件)设为多文件,并对列属性做了设置,见上图1;
打开这个窗口时利用 Tables("销售合同").Cols("图纸文件").OpenWindow() 打开了内置文件管理器;
远程根目录为/图纸文件;但是销售合同表中的图纸文件内容是多行且都是/图纸文件下属目录,见上图二;
Dim fm1 As WinForm.FileManager = Tables("销售合同").Cols("图纸文件").FileManager
fm1.DeleteCommand.Enabled = False
fm1.ClearCommand.Enabled = False
Dim ftp As New FTPClient
ftp.Host="kennt.vicp.cc"
ftp.Account = "XXXXX"
ftp.password = "XXXXXXXXXXX"
Dim mlm As String="/图纸文件/"
If ftp.DirExists(mlm)=False Then ftp.MakeDir(mlm) \'则创建Data目录
ftp.DeleteEnabled =False \'禁用删除文件按钮
ftp.RenameEnabled = False \'禁用重命名文件按钮
ftp.MakerDirEnabled=False
ftp.RootDir = mlm \'设置根目录
fm1.FTPclient = ftp