以下代码“试验参数”如果是单值字段，运行正常，如果是多值字段，则运行无结果。

现请教代码如何修改，查找多值字段并正常运行。

Select Case e.DataCol.Name

    Case "委托日期","工程分类" , "试验对象" , "试验参数"

        Dim dr As DataRow

        Dim Filter As String

        dr = DataTables("C试验参数").Find(Filter)

        If dr IsNot Nothing Then 

            e.DataRow("工程分类") = dr("工程分类代码")

            e.DataRow("试验对象") = dr("试验对象代码")

            e.DataRow("试验参数") = dr("试验参数")

            e.DataRow("委托日期") = now()

            Dim d As Date = e.DataRow("委托日期")

            Dim y As Integer = d.Year

            Dim m As Integer = d.Month

            Dim Days As Integer = Date.DaysInMonth(y,m)

            Dim fd As Date = New Date(y,m,1) \'获得该月的第一天

            Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天

            Dim bh As String = e.DataRow("工程分类") & "-" & Format(d,"yyyyMM") & "-" \'生成编号的前缀

            If e.DataRow("委托单号").StartsWith(bh) = False \'如果单据编号前缀不符

                Dim max As String

                Dim idx As Integer

                Dim flt As String

                flt = "工程分类 = \'"& e.DataRow("工程分类") & "\' And 委托日期 >= #" & fd & "# And 委托日期 <= #" & ld & "#"

                max = e.DataTable.Compute("Max(委托单号)",flt) \'取得该月的相同工程代码的最大单据编号

                If max > "" Then \'如果存在最大单据编号

                    idx = CInt(max.Substring(10,4)) + 1 \'获得最大单据编号的后四位顺序号,并加1

                Else

                    idx = 1 \'否则顺序号等于1

                End If

                e.DataRow("委托单号") = bh & Format(idx,"0000")

            End If

      

        End If

End Select

日期不用输入，在代码中有输入日期