主题：请教 逻辑方法

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

    Case "物料系数"

        If  dr.IsNull("物料系数") = False And dr.IsNull("加工级别") = False And dr.IsNull("组件序号") = False   Then

            Dim dr2,dr3,dr4 As DataRow

            Dim ab As Byte = dr("加工级别") - 1

            If dr("加工级别") = 1 Then

                dr("系数统计") = dr("物料系数")

            ElseIf dr("加工级别") =  2 Then

                Dim Filter1 As String = " 加工级别 =  '" & ab  & "' and 成品号 =  '" & dr("成品号")  & "'  "

                dr3 = DataTables("表A").find(Filter1)

                If dr3 Is Nothing Then

                    MessageBox.Show("加工级别为  1  的成品行,不存在.无法计算!" )

                Else

                    dr("系数统计") = dr("物料系数") * dr3("系数统计")

                End If   

            Else       

                Dim Filter As String = "组件序号= '" & dr("组件序号") & "' and 加工级别 =  '" & ab  & "'    "

                dr2 = DataTables("表A").find(Filter)

                

                If dr2 Is Nothing Then

                    

                    

                Else

                    dr("系数统计") = dr("物料系数") * dr2("系数统计")

                End If

            End If

            

        End If

End Select