主题：[求助]统计出所有列中空白单元格的个数 代码怎么写 我有点思路 但是不会合成代码！

Dim cnt As Integer
For Each cl As col In Tables("人事档案_人事档案Table1").cols
     cnt = cnt & "+" & "'" & Tables("人事档案_人事档案Table1").Compute("") & "'"
Next

 

我是想这样的   该怎么写代码~

Tables("人事档案_人事档案Table1").Compute(cl.Name & " Is NULL ")

Dim cnt As Integer
For Each cl As col In Tables("人事档案_人事档案Table1").cols
     cnt = cnt  +  Tables("人事档案_人事档案Table1").Compute("count(" & cl.name & ")",cl.Name & " Is null ")
Next
output.show(cnt)

 

 

计算结果为0  。。

Tables("人事档案_人事档案Table1").Compute"(Count(*)", cl.Name & " Is NULL ")

Dim cnt As Integer
For Each cl As col In Tables("人事档案_人事档案Table1").cols
     cnt = cnt  +  Tables("人事档案_人事档案Table1").Compute("Count(*)", cl.Name & " Is NULL ")
Next
output.show(cnt)

此主题相关图片如下：121212.jpg

Dim cnt As Integer
For Each cl As col In Tables("表A").cols
     cnt = cnt  +  Tables("表A").Compute("Count([_Identify])", cl.Name & " Is NULL ")
Next
output.show(cnt)

多谢老大了 最后解决了~~~~~~

 

Dim cnt As Integer
For Each cl As col In Tables("人事档案_人事档案Table1").cols
    If cl.name <> "详" And cl.name <> "调" And cl.name <> "合" And cl.name <> "离" And cl.name <> "离职时间" And cl.name <> "备注" And cl.name <> "系统密码" And cl.name <> "系统开启" And cl.name <> "系统在线与否" Then
        cnt = cnt  +  Tables("人事档案_人事档案Table1").Compute("Count([_identify])", cl.Name & " Is NULL ")
    End If
Next
output.show(cnt)

呵呵，没有为什么的，知道怎么处理就行了，因为这个只有微软才知道为什么的。