以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  在文件夹中直接创建文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152958)
--  作者：朱女士
--  发布时间：2020/7/27 11:46:00
--  在文件夹中直接创建文件
老师您好！
     我在单击某表的zzh单元格以后，创建了5个文件夹，想不退出操作直接分别建立相应的文件，这些文件类型都不同，有什么办法或在哪里写代码。原创建文件夹的语句已经有了：If e.Col.name = "编号" AndAlso e.Row.isnull("编号") = False Then

        If FileSys.DirectoryExists(ProjectPath & e.Row("编号")) = False Then \'如果目录不存在

            FileSys.CreateDirectory(ProjectPath & e.Row("编号") & "\\1-订单") \'则创建之

            

            FileSys.CreateDirectory(ProjectPath & e.Row("编号") & "\\2-图纸") \'则创建之

            FileSys.CreateDirectory(ProjectPath & e.Row("编号") & "\\3-合同") \'则创建之

            FileSys.CreateDirectory(ProjectPath & e.Row("编号") & "\\4-装箱清单") \'则创建之

            FileSys.CreateDirectory(ProjectPath & e.Row("编号") & "\\5-客户交流") \'则创建

            messagebox.show("建立完毕!")

         Else

          messagebox.show("已经建立!")

        End If

    End If

比如：如果点击装箱清单文件夹，直接进入进入报表模板设计或直接打开已有模块。如果点击合同就进入合同文件的编辑。
--  作者：有点蓝
--  发布时间：2020/7/27 11:53:00
--  
没看懂什么意思？点击单元格直接打开文件？

表格click事件
if e.col.name = "编号" then
Dim Proc As New Process \'定义一个新的Process
Proc.File = ProjectPath & e.Row("编号") & "\\4-装箱清单" \'指定要打开的文件
Proc.Start()
endif