Foxtable(狐表) → 用户栏目 → 专家坐堂 → 类比代码


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

主题：类比代码
帅哥哟，离线，有人找我吗？
wen123
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：8 积分：145 威望：0 精华：0 注册：2021/2/20 14:36:00 		类比代码  发帖心情 Post By：2021/2/20 15:01:00 [只看该作者]

请教版主，如图：1 第一列是数据（数据有甲，乙，丙）。对比方式是用第一列第一行对比第二到十二行，如果第二到十二行没有相同的值那么第二列第一行的结果是“*无”。第一列第二行对比第三到十三行，如果第三到十三行没有相同的值那么第二列第二行的结果是“*无”。2 数据甲，乙对比，丙不对比
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20210220175900.png
图片点击可在新窗口打开查看能写代码吗？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110743 积分：563641 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/20 15:33:00 [只看该作者]

Dim t As Table = Tables("A")
For i As Integer = 0 To t.rows.count - 1
        If t.rows(i)("第一列") = "丙" Then Continue For
    Dim b As Boolean = false
    For j As Integer = i+1 To math.min(i+11,t.rows.count - 1)
        If t.rows(i)("第一列") = t.rows(j)("第一列") Then
            b=True
            Exit For
        End If
    Next
    If b=False Then
        t.rows(i)("第二列") = t.rows(i)("第一列") & "无"
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
wen123
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：8 积分：145 威望：0 精华：0 注册：2021/2/20 14:36:00 		  发帖心情 Post By：2021/2/20 16:31:00 [只看该作者]

感谢版主细致的解答！

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