vba中执行SQL Group的怪问题
各位大虾
我在vba里有如下代码
Dim strSql As String
Dim reCordEntity As New ADODB.Recordset
strSql = "select [COMMITEM2],[COMMITEM16],[COMMITEM17],[COMMITEM18],[COMMITEM7],[COMMITEM9],"
strSql = strSql & "sum([COMMITEM26]) as COMMITEM26, sum([COMMITEM50]) as COMMITEM50"
。。。
strSql = strSql & " from [commMtlHearMatlDataTable$]"
strSql = strSql & " group by [COMMITEM2], [COMMITEM16],[COMMITEM17],[COMMITEM18],[COMMITEM7],[COMMITEM9]"
If conn.State = adStateOpen Then
reCordEntity.Open strSql, conn, adOpenKeyset, adLockOptimistic
Do Until reCordEntity.EOF
Call groupsheetmaker(reCordEntity)
reCordEntity.MoveNext
Loop
reCordEntity.Close
End If
碰到一个奇怪的问题:
commMtlHearMatlDataTable 这个sheet里上面6个集计列,任何一列是全空,集计就不成功
哪位大虾有高招?