以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  【求助】范围内查找的问题  (http://foxtable.com/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