以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助】范围内查找的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180142)

--  作者:王小风
--  发布时间: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


--  作者:有点蓝
--  发布时间:2022/9/30 11:22:00
--  
For i As Integer = .TopPosition To .BottomPosition
if .rows(i)("是否打印") = true