With Tables("表A")
Dim r As Integer
r = .FindRow("打印标记=true")
If r > - 1 Then '如果找到符合条件的行
Dim str As String = ""
For i As Integer = r To Math.Min(r+3,.Rows.count -1)
str = str & "," & .Rows(i)("_Identify")
Next
str = str.Trim(",")
.Filter = "_Identify in (" & str & ")"
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
End With
加好友 
发短信
Post By：2020/1/27 13:46:00 [显示全部帖子]
