主题：多字段find

此主题相关图片如下：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