各位大虾
我在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个集计列，任何一列是全空，集计就不成功
哪位大虾有高招？