Foxtable(狐表)用户栏目专家坐堂 → 请教重复值的一个算法


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

主题:请教重复值的一个算法

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


加好友 发短信
等级:幼狐 帖子:68 积分:546 威望:0 精华:0 注册:2019/9/6 7:59:00
请教重复值的一个算法  发帖心情 Post By:2019/9/20 11:56:00 [只看该作者]

表的结构是 出席日期 出席人 场号 出席否

现在想实现 如果某个人在某天的某场演出中出席过 出席次数就算1  但是同一个场号即使出席多次 都只算1

比如张三在918 919都出席过了A001号演出 那么第一次的出席次数算1 第二次就不再计算出席次数

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



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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/20 13:34:00 [只看该作者]

试试

Dim t As Table = Tables("某表")
t.filter = "出席否='Y'"
t.sort = "出席人,场号,出席日期"
Dim r1 As Row
r1 = t.rows(0)
r1("出席多次") = 1
Dim r2 As Row
For i As Integer =1 To t.rows.count - 1
    r2 = t.rows(i)
    If r2("出席人") = r1("出席人")  AndAlso  r2("场号") = r1("场号")
        r2("出席多次") = 0
    Else
        r2("出席多次") = 1
    End If
    r1 = r2
Next

 回到顶部