- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]统计出所有列中空白单元格的个数 代码怎么写 我有点思路 但是不会合成代码！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19671)
-- 发布时间：2012/5/17 15:43:00
-- [求助]统计出所有列中空白单元格的个数 代码怎么写 我有点思路 但是不会合成代码！
Dim cnt As Integer
For Each cl As col In Tables("人事档案_人事档案Table1").cols
cnt = cnt & "+" & "\'" & Tables("人事档案_人事档案Table1").Compute("") & "\'"
Next
我是想这样的 该怎么写代码~
-- 发布时间：2012/5/17 15:47:00
--
Tables("人事档案_人事档案Table1").Compute(cl.Name & " Is NULL ")
-- 发布时间：2012/5/17 16:29:00
--
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 。。
-- 发布时间：2012/5/17 16:31:00
--
Tables("人事档案_人事档案Table1").Compute"(Count(*)", cl.Name & " Is NULL ")
-- 发布时间：2012/5/17 16:33:00
--
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)
-- 发布时间：2012/5/17 16:34:00
--
此主题相关图片如下：121212.jpg
-- 发布时间：2012/5/17 16:51:00
--
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)
-- 发布时间：2012/5/17 16:59:00
--
多谢老大了 最后解决了~~~~~~
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)
-- 发布时间：2012/5/17 17:31:00
--
-- 发布时间：2012/5/17 17:34:00
--
呵呵，没有为什么的，知道怎么处理就行了，因为这个只有微软才知道为什么的。