Foxtable(狐表) → 用户栏目 → 专家坐堂 → 进入了死循环


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

主题：进入了死循环
帅哥哟，离线，有人找我吗？
13796361423
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：179 积分：1932 威望：0 精华：0 注册：2020/2/14 18:49:00 		进入了死循环  发帖心情 Post By：2021/6/12 8:18:00 [只看该作者]

Tables("四年级").Filter = ""
Tables("四年级").Sort = ""
DataTables("四年级").ReplaceFor("是否有照片","False","是否有照片='True'")
For Each r As Row In Tables("四年级").Rows
    Dim m As String = projectpath & "Attachments\" & r("相片")
    If FileSys.FileExists(m)=False Then
        r("是否有照片")= True
    End If
Next
For Each r As Row In Tables("四年级").Rows
    Dim n As String = projectpath & "Attachments\" & r("相片")
    If FileSys.FileExists(n)=True Then
        Messagebox.Show(n & "有相片!","提示")
    Else
        Tables("四年级").Filter = "[是否有照片]=true"
        Dim t As Table = Tables("四年级")
        t.Select(0,0,t.rows.count-1,t.cols.count-1)
        Dim Book As New XLS.Book(ProjectPath &  "Attachments\网络.xls")
        Dim fl As String =  ProjectPath &  "Reports\网络.xls"
        Book.Build() '生成细节区
        Book.Save(fl) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = fl
        Proc.Start()
    End If
Next


我这个名令进入了死循环， 我想是  如果有照片的文件就提示“有相片”， 没有的话就导出无相片学生的报表
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Tables("四年级").Filter = ""
Tables("四年级").Sort = ""
DataTables("四年级").ReplaceFor("是否有照片","False","是否有照片='True'")
For Each r As Row In Tables("四年级").Rows
    Dim m As String = projectpath & "Attachments\" & r("相片")
    If FileSys.FileExists(m)=False Then
        r("是否有照片")= True
    End If
Next
      Tables("四年级").Filter = "[是否有照片]=true"
        Dim t As Table = Tables("四年级")
        t.Select(0,0,t.rows.count-1,t.cols.count-1)
        Dim Book As New XLS.Book(ProjectPath &  "Attachments\网络.xls")
        Dim fl As String =  ProjectPath &  "Reports\网络.xls"
        Book.Build() '生成细节区
        Book.Save(fl) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = fl
        Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
13796361423
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：179 积分：1932 威望：0 精华：0 注册：2020/2/14 18:49:00 		还是不通  发帖心情 Post By：2021/6/12 9:46:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：400.jpg
图片点击可在新窗口打开查看
Tables("四年级").Filter = ""
Tables("四年级").Sort = ""
DataTables("四年级").ReplaceFor("是否有照片","False","是否有照片='True'")
For Each r As Row In Tables("四年级").Rows
    Dim m As String = projectpath & "Attachments\" & r("相片")
    If FileSys.FileExists(m)=False Then
        r("是否有照片")= True
    End If
Next
      Tables("四年级").Filter = "[是否有照片]=true and [代码]='01'"
        Dim t As Table = Tables("四年级")
        t.Select(0,0,t.rows.count-1,t.cols.count-1)
        Dim Book As New XLS.Book(ProjectPath &  "Attachments\网络.xls")
        Dim fl As String =  ProjectPath &  "Reports\网络.xls"
        Book.Build() '生成细节区
        Book.Save(fl) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = fl
        Proc.Start()




如果存在没有照片的班级（代码
图片点击可在新窗口打开查看此主题相关图片如下：2345截图20210612094037.png
图片点击可在新窗口打开查看
），可以出来报表， 如果班级（代码）都照相了就会出错，能不能让都照相的班级出一个提示， 该班级（代码）都照完相了
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

……
Next
      Tables("四年级").Filter = "[是否有照片]=true"
if t.rows.count = 0 then return
        Dim t As Table = Tables("四年级")
        t.Select(0,0,t.rows.count-1,t.cols.count-1)
        Dim Book As New XLS.Book(ProjectPath &  "Attachments\网络.xls")
……
 回到顶部
帅哥哟，离线，有人找我吗？
13796361423
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：179 积分：1932 威望：0 精华：0 注册：2020/2/14 18:49:00 		请问  发帖心情 Post By：2021/6/12 11:44:00 [只看该作者]

Tables("四年级").Filter = ""
Tables("四年级").Sort = ""
DataTables("四年级").ReplaceFor("是否有照片","False","是否有照片='True'")
For Each r As Row In Tables("四年级").Rows
    Dim m As String = projectpath & "Attachments\" & r("相片")
    If FileSys.FileExists(m)=False Then
        r("是否有照片")= True
    End If
Next
      Tables("四年级").Filter = "[是否有照片]=true and [代码]='01'"
If t.rows.count = 0 Then Return
        Dim t As Table = Tables("四年级")
        t.Select(0,0,t.rows.count-1,t.cols.count-1)
        Dim Book As New XLS.Book(ProjectPath &  "Attachments\网络.xls")
        Dim fl As String =  ProjectPath &  "Reports\网络.xls"
        Book.Build() '生成细节区
        Book.Save(fl) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = fl
        Proc.Start()
图片点击可在新窗口打开查看此主题相关图片如下：3.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

换下位置

        Dim t As Table = Tables("四年级")
If t.rows.count = 0 Then Return

基本的代码错误判断能力要学会，总不能别人写的代码，就只能等着别人来改吧
 回到顶部
帅哥哟，离线，有人找我吗？
13796361423
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：179 积分：1932 威望：0 精华：0 注册：2020/2/14 18:49:00 		位置换了，还是不能通  发帖心情 Post By：2021/6/12 13:01:00 [只看该作者]

位置换了，还是不能通

图片点击可在新窗口打开查看此主题相关图片如下：38.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

如果是在命令窗口执行，随便返回什么内容：If t.rows.count = 0 Then Return ""

在事件里执行没有问题的
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 4 次数据查询