Case "报价单"
Dim dr As Row = Tables("订单表").Current
Dim Book As New XLS.Book(ProjectPath & "Attachments\订单报价.xls")
Dim fl As String = Vars("IPgt") &"\"& dr("文件编号") &"\" & "报价文件" &"\"& User.Name & "\" & User.name & format(Date.Today,"yyyy年MM月dd日") & "文字报价表.xls" 'format(Date.Now,"yyyy年MM月dd日")
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
Case "查看"
Dim dr As Row = Tables("订单表").Current
Dim Proc As New Process
Proc.File = Vars("IPgt") &"\"& dr("文件编号") & "\" & "报价文件" &"\"& User.Name
Proc.Start()
通过这样查看就不能起到保护文件的作用 全部暴露了文件隐藏 我想将我文件在窗口显示 达到影藏的目的如何做呢 谢谢老师们
此主题相关图片如下：qq截图20160725203722.png
加好友 
发短信
Post By：2016/7/25 20:41:00 [显示全部帖子]
