如何判断多值字段包含某个字段？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何判断多值字段包含某个字段？

共有2084人关注过本帖树形打印复制链接主题：如何判断多值字段包含某个字段？

ZJZK2018

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

如何判断多值字段包含某个字段？ 发帖心情

Post By：2018/6/28 13:44:00 [只看该作者]

老师：“客户单位”中的“投标地区”为多值字段，需求是，如何判断多值字段包含某个字段

Dim dr As DataRow = Tables("标录明细").Current.DataRow

Dim fdr As DataRow = DataTables("招标信息").Find("项目编号 = '" & dr("项目编号") & "'")

Dim lis As new List(of String)

For Each nd As DataRow In DataTables("客户单位").DataRows

If fdr IsNot Nothing AndAlso nd("投标地区").Contains(fdr("投标地区")) = True Then

lis = DataTables("客户单位").GetValues("客户名称")

End If

MessageBox.Show(String.Join("|",lis.ToArray))

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4723 积分：34352 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/6/28 14:10:00 [只看该作者]

把多值字段值转换为数组或集合进行判断

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/28 14:15:00 [只看该作者]

1、你红色代码有什么问题？

2、如果是精确判断，参考

AndAlso ("," & nd("投标地区") & ",").Contains("," & fdr("投标地区") & ",") = True

ZJZK2018

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2018/6/28 15:08:00 [只看该作者]

老师我需要的是在"招标信息"表中投标地区中的值如：杭州，下拉框中的值是“客户单位”表中所有含有杭州的行，而现是所有行都显示了，如何调整？

此主题相关图片如下：434.png

此主题相关图片如下：555566666666.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:aaaaaaa.table

[此贴子已经被作者于2018/6/28 15:09:41编辑过]

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/28 15:50:00 [只看该作者]

Dim dr As DataRow = Tables("标录明细").Current.DataRow
Dim fdr As DataRow = DataTables("招标信息").Find("项目编号 = '" & dr("项目编号") & "'")
Dim str As String = ""
If fdr IsNot Nothing Then
str = DataTables("客户单位").GetComboListString("客户名称", "',' + 投标地区 + ',' like '%," & fdr("投标地区") & ",%'")
End If
msgbox(str)