主题：求非空行数

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

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)
我这个太复杂，谁能优化一下．