求助  ：数组相减从SQL读取完的数放在两个数组中，然后将这两个数组相减，两个数组行和列都相同     

Sub Main()
Dim totelA As Integer
Dim b()
Dim c()    As Variant

Dim d()   
Dim e()     As Variant
 Dim f()
 Dim ar As Variant, br As Variant
 'ar = c
  'br =e   
     
Dim i As Integer

  id& = SQLOpen("DSN=DATASEVR",,3)
   
   sel="Select F1累重,F2累重  FROM  dbo.View_1  Where  ((DatePart(hh, dbo.View_1.timestamp)) = 0 And (DatePart(MI, dbo.View_1.timestamp)) = 0) "         
      qry& = SQLExecQuery(id&,SEL)
i% = SQLBind(id&,b,1)
i% = SQLBind(id&,b,2)
l& = SQLRetrieve(id&,c)
For x = 0 To (i% - 1)
    MsgBox c(0,x)
  Next x
    sel="Select F1累重,F2累重  FROM  dbo.View_1  Where  ((DatePart(hh, dbo.View_1.timestamp)) = 8 And (DatePart(MI, dbo.View_1.timestamp)) = 0) "         
  qry& = SQLExecQuery(id&,SEL)
i% = SQLBind(id&,d,1)
i% = SQLBind(id&,d,2)
l& = SQLRetrieve(id&,e)
For x = 0 To (i% - 1)
    MsgBox e(0,x)
   
  Next x
 f(0,0) = Evaluate("{" & Join(e, ",") & "}-{" & Join(c, ",") & "}")
'For x = 0 To (i% - 1)
    'f(0,0)=cint(e(0,0))-cint(c(0,0))

              ' Next x
      
 


  sel="INSERT INTO Table_1 VALUES("+f(0,0)+","+f(0,1)+")"
   qry& = SQLExecQuery(id&,SEL)


End Sub

问题？