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


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

主题:统计所有列内容完善程度

帅哥哟,离线,有人找我吗?
yifan3429
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1607 积分:14896 威望: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


加好友 发短信
等级:超级版主 帖子:31530 积分:160690 威望:0 精华:8 注册: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


加好友 发短信
等级:七尾狐 帖子:1607 积分:14896 威望: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


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

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

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


加好友 发短信
等级:七尾狐 帖子:1607 积分:14896 威望: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


加好友 发短信
等级:超级版主 帖子:31530 积分:160690 威望:0 精华:8 注册: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


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

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

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


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

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

 回到顶部
总数 18 上一页 1 2