Tables("四年级").Filter = ""
Tables("四年级").Sort = ""
DataTables("四年级").ReplaceFor("是否有照片","False","是否有照片='True'")
For Each r As Row In Tables("四年级").Rows
Dim m As String = projectpath & "Attachments\" & r("相片")
If FileSys.FileExists(m)=False Then
r("是否有照片")= True
End If
Next
Tables("四年级").Filter = "[是否有照片]=true"
Dim t As Table = Tables("四年级")
t.Select(0,0,t.rows.count-1,t.cols.count-1)
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()
加好友 
发短信
Post By：2021/6/12 9:24:00 [显示全部帖子]
