Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多列获取不重复值


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

主题：多列获取不重复值
帅哥哟，离线，有人找我吗？
铜豌豆之首
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：91 积分：732 威望：0 精华：0 注册：2016/3/8 11:20:00 		多列获取不重复值  发帖心情 Post By：2018/4/27 17:28:00 [只看该作者]

代码不执行
Select Case e.DataTable.Name
    Case "搜索引擎"
        Dim Arys As List(Of String())
        Arys = DataTables("搜索引擎编译").GetValues("网址标示|名称")
        For Each Ary As String() In Arys
            If e.DataRow("搜索引擎").Contains("Ary(0)") Then   感觉代码应该是出现在这里，用动态方式也不执行
                e.DataRow("后台") = Ary(1)
            Else
                e.DataRow("后台")= 1
            End If
        Next
End Select

把中间代码换成这样也不执行
    Dim drs As List(Of DataRow)
    drs = DataTables("搜索引擎编译").Select("")
    For Each dr As DataRow In drs
    If e.DataRow("搜索引擎").Contains("'" & dr("网址标示") & "'")
    e.DataRow("后台") = 0.12 
End If   
Next

以下在命令框里测试是可以的
Dim Arys As List(Of String())
Arys = DataTables("搜索引擎编译").GetValues("网址标示|名称")
For Each Ary As String() In Arys
    If "www.so.com".Contains(Ary(0)) Then
        output.show(Ary(1))
        Exit For
    End If
Next
[此贴子已经被作者于2018/4/27 18:46:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/27 18:07:00 [只看该作者]

Select Case e.DataTable.Name
    Case "搜索引擎"
        Dim Arys As List(Of String())
        Arys = DataTables("搜索引擎编译").GetValues("网址标示|名称")
        For Each Ary As String() In Arys
            If e.DataRow("搜索引擎").Contains(Ary(0)) Then   感觉代码应该是出现在这里,用动态方式也不执行
            e.DataRow("后台") = Ary(1)
            Exit For
        Else
            e.DataRow("后台")= 1
        End If
    Next
End Select

 回到顶部
帅哥哟，离线，有人找我吗？
铜豌豆之首
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：91 积分：732 威望：0 精华：0 注册：2016/3/8 11:20:00 		  发帖心情 Post By：2018/4/27 18:18:00 [只看该作者]

老师还是没有反应，同时也没有错误提示

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/4/27 20:00:00 [只看该作者]

想要实现什么功能？没看明白

 回到顶部
帅哥哟，离线，有人找我吗？
铜豌豆之首
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：91 积分：732 威望：0 精华：0 注册：2016/3/8 11:20:00 		  发帖心情 Post By：2018/4/27 20:12:00 [只看该作者]


       搜索引擎编译                                 商务通搜索引擎
网址标示     名称                        后台                      搜索引擎 
baidu 百度                       360                m.so.com
sm        神马                  搜狗                   www.sougou.com
sougou 搜狗                       百度                image.baidu.com
so.com 360                       神马              zhidao.sm.com


图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20180427210604.png
图片点击可在新窗口打开查看


底纹部分就是我想要的结果，谢谢老师
C 表是已经提前输入好的数据（相当于数据库），在B表B 列输入数据时，在B表A列会自动得出红色底纹数据


[此贴子已经被作者于2018/4/27 21:06:45编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/4/27 20:53:00 [只看该作者]

代码和给的图都对应不上！

哪个表输入什么数据，然后从其它表获取什么数据。
 回到顶部
帅哥哟，离线，有人找我吗？
铜豌豆之首
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：91 积分：732 威望：0 精华：0 注册：2016/3/8 11:20:00 		  发帖心情 Post By：2018/4/27 21:10:00 [只看该作者]


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

现在不知是否能看清
[此贴子已经被作者于2018/4/27 21:11:47编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/4/27 21:42:00 [只看该作者]

B表datacolchanged事件

Select Case e.DataTable.Name
    Case "搜索引擎"
        Dim dr As DataRow = DataTables("C 表").Find("'" & e.newvalue & "' like '%' + [网址标示] + '%'")
        If dr IsNot Nothing Then
            e.DataRow("后台")= dr("名称")
        End If
    Next
End Select
[此贴子已经被作者于2018/4/27 21:42:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
铜豌豆之首
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：91 积分：732 威望：0 精华：0 注册：2016/3/8 11:20:00 		  发帖心情 Post By：2018/4/27 21:51:00 [只看该作者]

老师不会执行

 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/4/27 21:55:00 [只看该作者]

请上传实例测试

 回到顶部
总数 15 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.07031 秒, 4 次数据查询