Se lect 'ETD变更' as 变更内容,OrderDate,批号,EndCustomer,CustomerPO,Pos,PartNo,OrderQty,ETD,ShippingTerms,ID,产品,数量,发货日期,发货方式,订单日期,{Orderlist}.Remark From {Orderlist} Inner JOIN {myOrderlistBackup} ON {myOrderlistBackup}.[ID] = {Orderlist}.[批号] Where {Orderlist}.ETD <> {myOrderlistBackup}.发货日期
union all
Se lect '批号新增' as 变更内容,OrderDate,批号,EndCustomer,CustomerPO,Pos,PartNo,OrderQty,ETD,ShippingTerms,ID,产品,数量,发货日期,发货方式,订单日期,{Orderlist}.Remark From {Orderlist} Left JOIN {myOrderlistBackup} ON {myOrderlistBackup}.[ID] = {Orderlist}.[批号] Where {myOrderlistBackup}.ID is null
union all
其它表数据自己补充
然后全部代码改为：
Tables("MyplanningDiff").Fill("select * from {视图名称或者查询表名称}",True)
Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
'Tables("MyplanningDiff").SaveExcel("d:\myPlanningDiff\myPlanningDiff " &format(Date.now,"yyyyMMddHHmmss") & ".xlsx","Diff",flg)
ShowAppWindow("myPlanningDiff.xls",5)
Tables("MyplanningDiff").SaveExcel(ProjectPath & "Attachments\myPlanningDiff.xls",format(Date.now,"yyyyMMddHHmmss") ,flg)
If ShowAppWindow("myPlanningDiff.xls",1) = False Then
Dim Proc As New Process
msgbox ("有变更内容产生!!!")
Proc.File = ProjectPath & "Attachments\myPlanningDiff.xls"
Proc.Start
End If
加好友 
发短信
Post By：2019/10/12 11:46:00 [显示全部帖子]
