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
加好友 
发短信
Post By：2022/9/30 11:06:00 [显示全部帖子]
