主题：发现一个bug

在使用BeforeOpenFile事件时，e.FileName参数不包括路径

使用BeforeOpenFile事件下列代码时，打开文件提示找不到指定文件，不能进行文件复制，但能打开原文件。

If e.DataCol.Name = "合同文本" Then
    Dim fn As String = ProjectPath & "temp\" & FileSys.GetName(e.Filename) '新的文件名和路径
    FileSys.CopyFile(e.FileName, fn) '复制文件
    e.FileName = fn '指定要打开的文件为新复制的文件
End If

 

后在代码中增加全局变量查询

 

If e.DataCol.Name = "合同文本" Then
    Dim fn As String = ProjectPath & "temp\" & FileSys.GetName(e.Filename) '新的文件名和路径
Vars("p_tdpjxmtn") = e.FileName
Vars("p_pjxmlxzd") = fn
    FileSys.CopyFile(e.FileName, fn) '复制文件
    e.FileName = fn '指定要打开的文件为新复制的文件
End If

 

在命令窗口中显示全局代码：

Output.Show(Vars("p_tdpjxmtn"))
Output.Show(Vars("p_pjxmlxzd"))

 

显示结果：

hr诊断报告.ppt
D:\jnzy\法审管理\temp\hr诊断报告.ppt

好吧，坐等