主题：设置文件管理器的动态位置

你要去设置currentChanged事件

If e.Table.Current IsNot Nothing AndAlso Forms("窗口1").opened Then
    Dim TP2 As WinForm.FileManager = forms("窗口1").Controls("FileManager1")
    TP2.Remote = False
    tp2.FolderName = ProjectPath & "成本分析\" & e.Table.current("客户")& "\" & e.Table.current("编号")
End If