Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于终止程序运行的问题


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

主题：关于终止程序运行的问题
帅哥哟，离线，有人找我吗？
czy66ds
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1691 积分：16460 威望：0 精华：0 注册：2013/7/31 13:03:00 		关于终止程序运行的问题  发帖心情 Post By：2020/5/11 11:14:00 [只看该作者]

在导入Excel表时，希望实现当Excel表中某指定列的单元格内容不是“已通过”时，终止运行。
我的代码如下：
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
    dlg.Filter= "Excel2007文件|*.xlsx" '设置Excel文件筛选器  'Excel2003文件|*.xls|
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        Dim Book As New XLS.Book(dlg.FileName)  '获取用户选择的工作簿
        Dim Sheet As XLS.Sheet = Book.Sheets(0) '工作簿中第一个表
        '------检查审批记录表是否存在非已通过的记录------------
        For n As Integer = 1 To Sheet.Rows.Count -1  'n为循环到的行数
            If sheet(n,26).Text <> "已通过" Then
                MessageBox.Show("差旅费列表中存在没有审批通过的记录,请处理!")
                Exit For
                Return 
            End If
        Next
但是没有达到目的，这是为何？
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1691 积分：16460 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2020/5/11 11:35:00 [只看该作者]

就是在正式导入前，检查一下excel表某列中是否存在不正确的内容，以决定导入是否正式运行。

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


加好友 发短信
等级：超级版主 帖子：110795 积分：563913 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/11 12:12:00 [只看该作者]

是不是数据里有空格或者其他看不见的字符？

If sheet(n,26).Text.trim() <> "已通过" Then

可以把单元格内容复制到记事本或者word里面看看有没有其他字符
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1691 积分：16460 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2020/5/11 12:18:00 [只看该作者]

实际情况是
当sheet(n,26).Text <> "已通过" 时，
MessageBox.Show("差旅费列表中存在没有审批通过的记录,请处理!")正常运行
但Return 没运行
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110795 积分：563913 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/11 12:19:00 [只看该作者]

去掉Exit For试试

 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1691 积分：16460 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2020/5/11 12:27:00 [只看该作者]

去掉Exit For，好了！！这是为何？
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1691 积分：16460 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2020/5/11 12:33:00 [只看该作者]

明白了，Exit For挡住了Return
谢谢
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 4 次数据查询