Dim file As String = Tables("计划表窗口_Table7").Current("文件路径")
If file <> "" Then Dim Proc As New Process '定义一个新的Process Proc.File = FileSys.GetParentPath(file) Proc.Start()End If