以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  换行后，ftp不能自动创建或打开相应的文件夹  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103520)
--  作者：qwz405
--  发布时间：2017/7/10 17:28:00
--  换行后，ftp不能自动创建或打开相应的文件夹
换行代码如下所示，但不管怎么移动，都会打开第一次开启时的文件夹。

例如：通过FileManager1的《管理》，第一次开启时的文件夹：电控档案\\001
         通过换行，到了002/003或者004/...
　　　打开《管理》后，还是：电控档案\\001


With CurrentTable
    If .Current IsNot Nothing Then
        If .Current.DataRow.RowState = DataRowState.Unchanged Then   \'如果当前行未曾修改
            .Position = .Position + 1
        Else
            MessageBox.Show("资料已修改,请先保存.","提示",MessageBoxButtons.OK)
        End If
    End If
End With

Dim bm As String = Tables("电控档案").Current("制令编号")      \'为获取文件所在位置作准备
Dim f2 As WinForm.FileManager = e.Form.Controls("FileManager1")
If f2.FTPclient.DirExists("\\电控资料\\"& bm &"") Then     \'要判断的目录是否存在,即是否已存放过资料,则直接开启相应机台存放的文件夹
    f2.FTPclient.RootDir = "\\电控资料\\"& bm &""          \'设置ftp的根目录,管理用
Else     \'如果不存在,则创建相应的目录
    f2.FTPclient.MakeDir("\\电控资料\\"& bm &"")         \'创建相应的目录
    f2.FTPclient.RootDir = "\\电控资料\\"& bm &""        \'开启新建的目录
End If
--  作者：有点甜
--  发布时间：2017/7/10 18:03:00
--  

msgbox(bm) 看看弹出什么。

 

如果弹出的值不同，说明你表名搞错了。