Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计所有列内容完善程度


  共有2181人关注过本帖树形打印复制链接

主题：统计所有列内容完善程度
帅哥哟，离线，有人找我吗？
yifan3429
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2457 积分：22673 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/7/23 0:34:00 [只看该作者]

Dim cnt As Integer   '统计数据的完善度:
Dim cnt1 As Integer
For Each dc As DataCol In e.DataTable.datacols
    cnt += IIF(e.DataRow.isnull(dc.name),0,1)
    cnt1 = dc.DataCols.Count
    
Next

e.DataRow("A") = cnt / cnt1

需要   cnt/总数
总数获取不对 要请教  

5列全部填完要显示100%才对


图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20190723001454.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/7/23 0:36:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106168 积分：539957 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/23 8:58:00 [只看该作者]

论坛只是给出一个建议和用法，不一定是完整的。如果用到自己的项目中应该按照语法和规则把代码写完整，先理解代码，然后根据语法规则应用到自己的项目中，不要只停留在抄的阶段：http://www.foxtable.com/webhelp/topics/1522.htm

If e.DataCol.Name <> "A" Then
    Dim cnt As Integer   '统计数据的完善度:
    Dim cnt1 As Integer = e.DataTable.DataCols.Count - 1
    For Each dc As DataCol In e.DataTable.DataCols
        If dc.Name <> "A" Then
            cnt += IIF(e.DataRow.isnull(dc.Name),0,1)
        End If
    Next
    e.DataRow("A") = cnt / cnt1
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2457 积分：22673 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/7/23 11:01:00 [只看该作者]

我想把代码放在全局表事件里面
但是有的表不存在  完善比例   列 就会报错  怎么处理呢


'统计资料的完善度
If e.DataCol.Name <> "完善比例" Then
    Dim cnt As Integer   '统计数据的完善度:
    Dim cnt1 As Integer = e.DataTable.DataCols.Count - 1
    For Each dc As DataCol In e.DataTable.DataCols
        If dc.Name <> "完善比例" Then
            cnt += IIF(e.DataRow.isnull(dc.Name),0,1)
        End If
    Next
    e.DataRow("完善比例") = cnt / cnt1
End If
'统计资料的完善度
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106168 积分：539957 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/23 11:11:00 [只看该作者]

既然知道可能没有这个列，那就判断一下是否存在这个列再继续咯

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2457 积分：22673 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/7/23 12:16:00 [只看该作者]

If e.DataCol.Contains("完善比例") Then
    '统计资料的完善度
    If e.DataCol.Name <> "完善比例" Then
        Dim cnt As Integer   '统计数据的完善度:
        Dim cnt1 As Integer = e.DataTable.DataCols.Count - 1
        For Each dc As DataCol In e.DataTable.DataCols
            If dc.Name <> "完善比例" Then
                cnt += IIF(e.DataRow.isnull(dc.Name),0,1)
            End If
        Next
        e.DataRow("完善比例") = cnt / cnt1
    End If
    '统计资料的完善度
End If

好像不对
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106168 积分：539957 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/23 14:00:00 [只看该作者]

DataColChanged

某一列的内容被更改后执行，此时列的内容已经是更改后的值。

e参数属性：

DataTable：返回发生数据更改的数据表。
DataRow：  返回发生数据更改的数据行。
DataCol：  返回发生数据更改的数据列。
NewValue： Object类型，表示新的值。
OldValue： Object类型，表示旧的值


http://www.foxtable.com/webhelp/topics/1428.htm
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2457 积分：22673 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/7/23 15:56:00 [只看该作者]

还是不理解图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106168 积分：539957 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/23 16:18:00 [只看该作者]

If e.DataTable.DataCols.Contains("完善比例") Then

 回到顶部
总数 18 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询