以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在文件夹中直接创建文件  (http://foxtable.net/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