专家坐堂-多列获取不重复值Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多列获取不重复值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118267)

--  作者：铜豌豆之首
--  发布时间：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编辑过]

--  作者：有点甜
--  发布时间：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

--  作者：铜豌豆之首
--  发布时间：2018/4/27 18:18:00
--
老师还是没有反应，同时也没有错误提示

--  作者：有点蓝
--  发布时间：2018/4/27 20:00:00
--
想要实现什么功能？没看明白

--  作者：铜豌豆之首
--  发布时间：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编辑过]

--  作者：有点蓝
--  发布时间：2018/4/27 20:53:00
--
代码和给的图都对应不上！

哪个表输入什么数据，然后从其它表获取什么数据。

--  作者：铜豌豆之首
--  发布时间：2018/4/27 21:10:00
--

此主题相关图片如下：微信图片_20180427210604.png

现在不知是否能看清
[此贴子已经被作者于2018/4/27 21:11:47编辑过]

--  作者：有点蓝
--  发布时间：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编辑过]

--  作者：铜豌豆之首
--  发布时间：2018/4/27 21:51:00
--
老师不会执行

--  作者：有点蓝
--  发布时间：2018/4/27 21:55:00
--
请上传实例测试