- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 多字段find (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=180765)
-- 发布时间：2022/10/16 14:06:00
-- 多字段find
请问表a有一列是多字段，其中一行数据为 “cod、bod、abac”，
现在请问输入“cod”如何用find直接定位这行
-- 发布时间：2022/10/16 20:16:00
--
.find("\'、\'+多值列+\'、\'" like "%、cod、%")
[此贴子已经被作者于2022/10/16 20:16:24编辑过]
-- 发布时间：2022/10/16 21:28:00
--
此主题相关图片如下：qq截图20221016212643.jpg
Select Case e.DataCol.Name
Case "样品类型", "检测项目", "来样日期"
Dim dr As DataRow = DataTables("HJ_JCList").SQLFind("样品类型 = \'" & e.DataRow("样品类型") & "\' and 检测项目 = \'" & e.DataRow("检测项目") & "\'")
If dr IsNot Nothing Then
e.DataRow("表单编号") = dr("表单编号")
e.DataRow("样品有效期") = e.DataRow("来样日期").adddays(dr("有效天数"))
Else
Dim xz As String = "," & e.DataRow("检测项目") & ","
Dim fr As DataRow = DataTables("HJ_JCList").SQLFind("样品类型 = \'" & e.DataRow("样品类型") & "\' and \',\'+ 检测项目别名 +\',\'" Like "% xz %")
If fr IsNot Nothing Then
e.DataRow("表单编号") = fr("表单编号")
e.DataRow("样品有效期") = e.DataRow("来样日期").adddays(fr("有效天数"))
End If
e.DataRow("表单编号") = Nothing
e.DataRow("样品有效期") = Nothing
End If
End Select
此主题相关图片如下：qq截图20221016212624.jpg
以上代码还是不行，需要红色先输入COD 或量，能在表JCList中找到对应化学需氧量行
-- 发布时间：2022/10/16 22:18:00
--
Dim fr As DataRow = DataTables("HJ_JCList").SQLFind("样品类型 = \'" & e.DataRow("样品类型") & "\' and \',\'+ 检测项目别名 +\',\'" Like "%" & xz & "%")