- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何横向统计个数？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114596)
-- 发布时间：2018/2/10 16:40:00
-- 如何横向统计个数？
老师你好：
我不想用表达式进行个数统计，如何采用代码统计个数？？
此主题相关图片如下：qq截图20180210164213.png
[此贴子已经被作者于2018/2/10 16:42:06编辑过]
-- 发布时间：2018/2/10 17:24:00
--
参考代码
If e.DataCol.name.startswith("市内_") Then
Dim i As Integer = 0
For Each dc As DataCol In e.DataTable.datacols
If dc.name.StartsWith("市内_") AndAlso e.DataRow.isnull(dc.name) = False Then
i += 1
End If
Next
e.DataRow("市内家数") = i
End If
-- 发布时间：2018/2/11 14:17:00
--
有点甜老师：
如何提取多列数据中不重复的值及个数到临时数据表中？如楼1图中市内、市外下面的数据？？
[此贴子已经被作者于2018/2/11 14:23:39编辑过]
-- 发布时间：2018/2/11 14:44:00
--
参考：http://www.foxtable.com/webhelp/scr/2747.htm
-- 发布时间：2018/2/12 13:37:00
--
老师你好：
如何提取多列数据中不重复的值及个数到临时数据表中？如楼1图中市内_1号到市内_15号之间列数据不重复值？
-- 发布时间：2018/2/12 14:58:00
--
比如
If e.DataCol.name.startswith("市内_") Then
Dim ls As new List(Of String)
For Each dc As DataCol In e.DataTable.datacols
If dc.name.StartsWith("市内_") AndAlso e.DataRow.isnull(dc.name) = False Then
If ls.Contains(e.DataRow(dc.name)) = False Then
ls.add(e.DataRow(dc.name))
End If
End If
Next
msgbox(String.join(",", ls.ToArray))
End If