- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何判断多值字段包含某个字段？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121057)
-- 发布时间：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
Next
MessageBox.Show(String.Join("|",lis.ToArray))
-- 发布时间：2018/6/28 14:10:00
--
把多值字段值转换为数组或集合进行判断
-- 发布时间：2018/6/28 14:15:00
--
1、你红色代码有什么问题？
2、如果是精确判断，参考
AndAlso ("," & nd("投标地区") & ",").Contains("," & fdr("投标地区") & ",") = True
-- 发布时间：2018/6/28 15:08:00
--
老师我需要的是在"招标信息"表中投标地区中的值如：杭州，下拉框中的值是“客户单位”表中所有含有杭州的行，而现是所有行都显示了，如何调整？
此主题相关图片如下：434.png
[此贴子已经被作者于2018/6/28 15:09:41编辑过]
-- 发布时间：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)
-- 发布时间：2018/6/28 15:59:00
--
老师代码是对了，但不知道下面代码红色部份是什么意思，特别是这个“+”？
str = DataTables("客户单位").GetComboListString("客户名称", "\',\' + 投标地区 + \',\' like \'%," & fdr("投标地区") & ",%\'")
-- 发布时间：2018/6/28 17:23:00
--
类似代码
str = DataTables("客户单位").GetComboListString("客户名称", "投标地区 like \'%" & fdr("投标地区") & "%\'")
类似代码
str = DataTables("客户单位").GetComboListString("客户名称", "投标地区 like \'%杭州%\'")