Foxtable(狐表)用户栏目专家坐堂 → 【求助】范围内查找的问题


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

主题:【求助】范围内查找的问题

帅哥哟,离线,有人找我吗?
王小风
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:43 积分:462 威望:0 精华:0 注册:2021/9/2 16:35:00
【求助】范围内查找的问题  发帖心情 Post By:2022/9/30 11:06:00 [只看该作者]

With Tables("备件出入库")
    For i As Integer = .TopPosition To .BottomPosition
        查找选定区域内("是否打印")列如果找到有True标识的,信息提示   各位大佬这里应该怎么写

        Else
        Dim Book As New XLS.Book(ProjectPath & "Attachments\入库单.xls")
        Dim fl As String = ProjectPath & "Reports\入库单.xls"
        Book.Build() '生成细节区
        ' Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
        Book.Save(fl) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = fl
        Proc.Start()
        .Rows(i)("是否打印") =True
        endif
    Next
    
End With


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/30 11:22:00 [只看该作者]

For i As Integer = .TopPosition To .BottomPosition
if .rows(i)("是否打印") = true

 回到顶部