Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码遍历问题？


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

主题：[求助]代码遍历问题？
帅哥哟，离线，有人找我吗？
zgjmost
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4605 威望：0 精华：0 注册：2013/4/25 8:02:00 		[求助]代码遍历问题？  发帖心情 Post By：2016/3/15 20:08:00 [只看该作者]

下面这段代码怎么执行不了？

Forms("主界面").Open()
MainTable = Tables("主界面")

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim fl As String = dlg.FileName
    Dim book As new XLS.Book
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For i As Integer = 1 To sheet.Rows.Count -1
        If sheet(i,22).value = "本科" AndAlso sheet(i,26).value = "中央广播电视大学" AndAlso sheet(i,30).value = "自考" Then
            Dim r As Row = Tables("校对信息").AddNew
            r("姓名") = sheet(i,3).value
            r("身份证号") = sheet(i,7).value
            r("教学点名称") = sheet(i,1).value
            r("创建人") = sheet(i,39).value
            r("错误原因") = "中央广播电视大学的学习形式不可能是自考"
        ElseIf sheet(i,22).value = "本科" AndAlso sheet(i,32).text.SubString(1,5) = "51161" AndAlso sheet(i,30).value = "自考" Then
            Dim r As Row = Tables("校对信息").AddNew
            r("姓名") = sheet(i,3).value
            r("身份证号") = sheet(i,7).value
            r("教学点名称") = sheet(i,1).value
            r("创建人") = sheet(i,39).value
            r("错误原因") = "51161的学习形式不可能是自考"
        ElseIf sheet(i,22).value = "本科" AndAlso sheet(i,26).value = "国家开放大学" AndAlso sheet(i,30).value = "自考" Then
            Dim r As Row = Tables("校对信息").AddNew
            r("姓名") = sheet(i,3).value
            r("身份证号") = sheet(i,7).value
            r("教学点名称") = sheet(i,1).value
            r("创建人") = sheet(i,39).value
            r("错误原因") = "国家开放大学的学习形式不可能是自考"
        ElseIf sheet(i,22).value = "本科" AndAlso sheet(i,32).text.SubString(1,6) = "511615" AndAlso sheet(i,30).value <> "中央广播电视大学" Then
            Dim r As Row = Tables("校对信息").AddNew
            r("姓名") = sheet(i,3).value
            r("身份证号") = sheet(i,7).value
            r("教学点名称") = sheet(i,1).value
            r("创建人") = sheet(i,39).value
            r("错误原因") = "511615的学校名称不正确,应是中央广播电视大学"
        ElseIf sheet(i,22).value = "本科" AndAlso sheet(i,32).text.SubString(1,6) = "511618" AndAlso sheet(i,30).value <> "国家开放大学" Then
            Dim r As Row = Tables("校对信息").AddNew
            r("姓名") = sheet(i,3).value
            r("身份证号") = sheet(i,7).value
            r("教学点名称") = sheet(i,1).value
            r("创建人") = sheet(i,39).value
            r("错误原因") = "511618的学校名称不正确,应是国家开放大学"
        ElseIf sheet(i,22).value = "本科" AndAlso sheet(i,32).text.SubString(1,5) = "51305" AndAlso sheet(i,30).value <> "湖北广播电视大学" Then
            Dim r As Row = Tables("校对信息").AddNew
            r("姓名") = sheet(i,3).value
            r("身份证号") = sheet(i,7).value
            r("教学点名称") = sheet(i,1).value
            r("创建人") = sheet(i,39).value
            r("错误原因") = "51305的学校名称不正确,应是湖北广播电视大学"
        ElseIf sheet(i,22).value = "本科" AndAlso sheet(i,32).text.SubString(1,5) = "51305" AndAlso sheet(i,30).value = "自考" Then
            Dim r As Row = Tables("校对信息").AddNew
            r("姓名") = sheet(i,3).value
            r("身份证号") = sheet(i,7).value
            r("教学点名称") = sheet(i,1).value
            r("创建人") = sheet(i,39).value
            r("错误原因") = "湖北广播电视大学的学习形式不可能是自考"
        ElseIf sheet(i,22).value = "本科" AndAlso sheet(i,32).text.SubString(1,8) <> "51161520" AndAlso sheet(i,30).value = "中央广播电视大学" Then
            Dim r As Row = Tables("校对信息").AddNew
            r("姓名") = sheet(i,3).value
            r("身份证号") = sheet(i,7).value
            r("教学点名称") = sheet(i,1).value
            r("创建人") = sheet(i,39).value
            r("错误原因") = "学校名称不正确,应是中央广播电视大学"
        ElseIf sheet(i,22).value = "本科" AndAlso sheet(i,32).text.SubString(11,2) = "05"  AndAlso  sheet(i,30).value = "自考" AndAlso sheet(i,32).text.SubString(17,2) = "" Then
            Dim r As Row = Tables("校对信息").AddNew
            r("姓名") = sheet(i,3).value
            r("身份证号") = sheet(i,7).value
            r("教学点名称") = sheet(i,1).value
            r("创建人") = sheet(i,39).value
            r("错误原因") = "该学员的学习形式不可能是自考"
        ElseIf sheet(i,22).value = "本科" AndAlso sheet(i,32).text.SubString(11,2) = "06"  AndAlso  sheet(i,30).value = "自考" AndAlso sheet(i,32).text.SubString(17,2) = "" Then
            Dim r As Row = Tables("校对信息").AddNew
            r("姓名") = sheet(i,3).value
            r("身份证号") = sheet(i,7).value
            r("教学点名称") = sheet(i,1).value
            r("创建人") = sheet(i,39).value
            r("错误原因") = "该学员的学习形式不可能是自考"
        ElseIf sheet(i,22).value = "本科" AndAlso sheet(i,32).text.SubString(11,2) = "06"  AndAlso  sheet(i,30).value = "非自考"  AndAlso  sheet(i,25).value = "本科" AndAlso sheet(i,32).text.SubString(17,2) = "" Then
            Dim r As Row = Tables("校对信息").AddNew
            r("姓名") = sheet(i,3).value
            r("身份证号") = sheet(i,7).value
            r("教学点名称") = sheet(i,1).value
            r("创建人") = sheet(i,39).value
            r("错误原因") = "该学员的学习形式学习形式错误"
        ElseIf sheet(i,22).value = "本科" AndAlso sheet(i,32).text.SubString(11,2) = "05"  AndAlso  sheet(i,30).value = "非自考"  AndAlso  sheet(i,25).value = "专科" AndAlso sheet(i,32).text.SubString(17,2) = "" Then
            Dim r As Row = Tables("校对信息").AddNew
            r("姓名") = sheet(i,3).value
            r("身份证号") = sheet(i,7).value
            r("教学点名称") = sheet(i,1).value
            r("创建人") = sheet(i,39).value
            r("错误原因") = "该学员的学习形式学习形式错误"
        Else
           MainTable = Tables("主界面")
        End If
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/15 20:40:00 [只看该作者]

Dim fl As String = dlg.FileName
Dim book As new XLS.Book
 
改成
 
Dim fl As String = dlg.FileName
Dim book As new XLS.Book(fl)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询