以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求非空行数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3211)

--  作者:lihe60
--  发布时间:2009/6/19 15:18:00
--  求非空行数

如何求某表某列非空的行数

Dim n as integer=0
dim drs as list(of datarow)=dataTables("日志").Select("[在线用户] is null")
for each dr As datarow in drs
   n=n+1
next
dim m as integer=DataTables("日志").DataRows.Count
Output.Show(m-n)
我这个太复杂,谁能优化一下.

[此贴子已经被作者于2009-6-19 16:03:23编辑过]

--  作者:狐狸爸爸
--  发布时间:2009/6/19 15:39:00
--  
Dim i As Integer
i = DataTables("表A").Compute("第一列 Is Not Null")

--  作者:铜豌豆之首
--  发布时间:2016/10/10 17:51:00
--  
Dim i As Integer
i = DataTables("表A").Compute("第一列 Is Not Null")
老师你的代码怎么运行时出错

--  作者:blackzhu
--  发布时间:2016/10/10 17:55:00
--  
看错了,还是以前的老帖子.
[此贴子已经被作者于2016/10/10 17:58:12编辑过]

--  作者:blackzhu
--  发布时间:2016/10/10 17:57:00
--  
老大,你的这个错误犯的真是低级

Dim i As Integer
i = DataTables("表A").Compute("Count(主键列名)","第一列 Is Not Null")
--  作者:有点蓝
--  发布时间:2016/10/10 18:00:00
--  
所以太老的代码使用都要注意,已经过时图片点击可在新窗口打开查看