换行代码如下所示，但不管怎么移动，都会打开第一次开启时的文件夹。
例如：通过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
加好友 
发短信
Post By：2017/7/10 17:28:00 [显示全部帖子]
