vba中执行SQL Group的怪问题

guxiangdefeng 2012-09-12 11:47:16
各位大虾
我在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个集计列,任何一列是全空,集计就不成功
哪位大虾有高招?
...全文
211 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧