1、畫面內(nèi)容畫面內(nèi)容Excel畫面內(nèi)容查:IfUserDB.OpenConnect查:IfUserDB.OpenConnect(FameViewUserDataSource,)0Then Exit SubEndIfUserDB.OpenRecordset(Select*fromTaskTablewhereTaskNo=&taskNo&,1,2,2)0Then UserDB.CloseConnect:Exit SubEndIf UserDB.IsEmpty()=1 Then UserDB.CloseRecordset:UserDB.CloseConnect:ExitSubEnd= UserDB.Ge

2、tFieldValue(jobNo,0) recipeNo = UserDB.GetFieldValue(recipeNo,0) recipeName=UserDB.GetFieldValue(recipeName,0) downloadTime=UserDB.GetFieldValue(downloadTime,0) saveTime = UserDB.GetFieldValue(saveTime,0)CallQueryBatchNo Call QueryStepNo-ReDimMaterialArray(10,8) Sub QueryBatchNoGridListXObj.SetRowsA

3、AA,1 IfUserDB.OpenConnect(FameViewUserDataSource,)0Then Exit SubEndIfUserDB.OpenRecordset(Select*fromWeightTablewhereTaskNo=&taskNo&and BatchNo=&CStr(batchNo),1,2,2)0 ThenUserDB.CloseConnect:ExitSub End IfIf UserDB.IsEmpty()=1 Then UserDB.CloseRecordset:UserDB.CloseConnect:ExitSubEndGridListXObj.Set

4、RedrawAAA,0 GridListXObj.SetRowsAAA,100 While UserDB.IsEOF()=0 GridListXObj.SetText AAA,n,0,MaterialArray(n,0),0 GridListXObj.SetTextGridListXObj.SetText AAA,n,2,MaterialArray(n,2),0 GridListXObj.SetText AAA,n,2,MaterialArray(n,2),0 GridListXObj.SetText AAA,n,3,MaterialArray(n,3),0 GridListXObj.SetT

5、ext AAA,n,4,MaterialArray(n,4),0 GridListXObj.SetText AAA,n,5,MaterialArray(n,5),0 StringObj.Format %g,s GridListXObj.SetText AAA,n,6,MaterialArray(n,6),0 StringObj.SetText 不合格,合格 GridListXObj.SetText AAA,n,7,MaterialArray(n,7),0 MaterialCount=n-GridListXObj.SetText AAA,n,2,合計(jì)isticalValueAAA,n,3,1,n

6、-1,1 isticalValueAAA,n,4,1,n-1,1 isticalValue AAA,n,5,1,n-isticalValue AAA,n,6,1,n-GridListXObj.SetRows AAA,n+1 GridListXObj.SetRedraw AAA,1 -ReDimStepArray(30,14) Sub QueryStepNoGridListXObj.SetRowsBBB,1 IfUserDB.OpenConnect(FameViewUserDataSource,)0Then Exit SubEndIfUserDB.OpenRecordset(Select*fro

7、mStepTablewhereTaskNo=&taskNo&and BatchNo=&CStr(batchNo),1,2,2)0 ThenUserDB.CloseConnect:ExitSub End IfIf UserDB.IsEmpty()=1 Then UserDB.CloseRecordset:UserDB.CloseConnect:ExitSubEndGridListXObj.SetRedrawGridListXObj.SetRowsBBB,100 While UserDB.IsEOF()=0 GridListXObj.SetRowsBBB,100 While UserDB.IsEO

8、F()=0 GridListXObj.SetText BBB,n,0,StepArray(n,0),0 StringObj.SetText 投膠,投粉料,注油,升栓,排油 GridListXObj.SetText BBB,n,1,StepArray(n,1),0 StringObj.SetText 時(shí)間,溫度 GridListXObj.SetText BBB,n,2,StepArray(n,2),0GridListXObj.SetText BBB,n,3,StepArray(n,3),0GridListXObj.SetText BBB,n,4,StepArray(n,4),0 GridList

9、XObj.SetText BBB,n,5,StepArray(n,5),0 GridListXObj.SetText BBB,n,6,s,StepArray(n,6) GridListXObj.SetText BBB,n,7,StepArray(n,7),0 GridListXObj.SetText BBB,n,8,StepArray(n,8),0 GridListXObj.SetText BBB,n,9,StepArray(n,9),0 GridListXObj.SetTextGridListXObj.SetTextGridListXObj.SetTextBBB,n,12,StepArray

10、(n,12),0 StringObj.SetText 不合格,合格,不判斷 GridListXObj.SetTextBBB,n,13,StepArray(n,13),0 GridListXObj.SetRows BBB,n GridListXObj.SetRedrawBBB,1Excel導(dǎo):SetExcelObj=CreateObject(Excel.Application) ExcelObj.Visible = False ExcelObj.Application.DisplayAlerts= False Excel導(dǎo):SetExcelObj=CreateObject(Excel.Appli

11、cation) ExcelObj.Visible = False ExcelObj.Application.DisplayAlerts= False ExcelObj.Cells(1,1) = 煉膠車報(bào)表 ExcelObj.Cells(2,1) = 任務(wù)ExcelObj.Cells(3,1) = 配方工配方名稱ExcelObj.Cells(4,1)=時(shí)間保存時(shí)間ExcelObj.Cells(5,1)車次總數(shù):&batchCount& Setrange=ExcelObj.Range(A6:H&CStr(MaterialCount+7) 車ExcelObj.Cells(6,2)=物Fori=1ToMaterialCount For j=0 To 7 ExcelObj.Cells(n,4)=SUM(D7:D&CStr(n-ExcelObj ExcelObj.Cells(n,4)=SUM(D7:D&CStr(n-ExcelObj.Cells(n,6