vba中执行SQL Group的怪问题

guxiangdefeng guxiangdefeng 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
各位大虾
我在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个集计列,任何一列是全空,集计就不成功
哪位大虾有高招?
...全文
评论
收藏 已收藏
分享
返回顶部
guxiangdefeng
Office开发/ VBA 5,174 成员 17,906 内容