Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于关闭附件窗体问题


  共有3735人关注过本帖树形打印复制链接

主题：关于关闭附件窗体问题
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106076 积分：539479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/13 21:48:00 [显示全部帖子]

如果都是execl文件，直接杀掉进程

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
    output.show(p.processName)
    If ("Excel" = p.ProcessName)
        msgbox(p.MainWindowTitle)
        'p.kill
    End If
Next

如果杂七杂八什么类型文件都有，就不好办了
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106076 积分：539479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/13 21:59:00 [显示全部帖子]

txt文件一般不会有影响

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106076 积分：539479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/13 22:01:00 [显示全部帖子]

word
Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
    output.show(p.processName)
    If ("WINWORD" = p.ProcessName)
        msgbox(p.MainWindowTitle)
     '   p.kill
    End If
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106076 积分：539479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/13 22:40:00 [显示全部帖子]

Dim fjzl As String = "充值凭证附件资料"
Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
    output.show(p.processName)
    If ("Excel" = p.ProcessName)
        p.kill
    End If
Next
    If FileSys.DirectoryExists( ProjectPath & fjzl) = True Then
        FileSys.DeleteDirectory(ProjectPath & fjzl,2,2) '则彻底删除之
    End If
If jinzhihangjianyidong=False Then
    Dim Result As DialogResult
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106076 积分：539479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/13 23:16:00 [显示全部帖子]

output.show(p.processName) '检查进程名称，不同系统可能execl显示的名称不一样的。

或者使用try处理一下，提醒用户手工关闭文件：http://www.foxtable.com/webhelp/topics/2070.htm
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106076 积分：539479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/14 8:37:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106076 积分：539479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/14 10:06:00 [显示全部帖子]

    If ShowAppWindow(dr("文件名称"),1) = False Then
Dim dr As DataRow = Tables("充值凭证表.充值凭证附件数据表").Current.DataRow
Dim fl As String =  ProjectPath & "流量卡充值凭证附件资料/" & dr("文件名称")
If dr.SQLLoadFile("附件",fl) = False Then '如果提取文件失败
    Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
    Else
        MessageBox.Show("是")
    End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106076 积分：539479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/14 10:25:00 [显示全部帖子]

凡是代码使用到Current 的地方请先判断是否空值再使用：http://www.foxtable.com/webhelp/topics/0641.htm

类似的问题之前已经解决过无数次了，到现在还是犯同样的错误，就没有一点记性么？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106076 积分：539479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/14 10:32:00 [显示全部帖子]

判断行，不是单元格

If Tables("xxxx").Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106076 积分：539479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/14 10:45:00 [显示全部帖子]

都先使用了，再判断有什么用！

 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询