报错了，这是什么原因 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.name
Case "物料编号","销售数量" ,"发生日期"
DataTables("生产计划物料需求").DataCols("物料编号").RaiseDataColChanged("销售预算单号= '" & e.DataRow("预算单号") & "'")
    If e.DataRow.Isnull("物料编号") = False AndAlso e.DataRow.Isnull("销售数量") = False Then
        Dim dr1 As DataRow = DataTables("物料档案").find("物料编号= '" & e.DataRow("物料编号") & "'")
        If dr1 Is Nothing Then
            MessageBox.show("输入物料编号错误或者您还没有在物料档案中建立这个物料编号的档案,请先建立后再使用","提示")
            Return
        Else
            Dim dr5 As DataRow = DataTables("产品预算").find("物料编号= '" & e.DataRow("物料编号") & "'And 发生日期 = '" & e.DataRow("发生日期") & "'")
            If dr5 Is Nothing Then
                dr5=DataTables("产品预算").Addnew()
                dr5("发生日期")=e.DataRow("发生日期")
                dr5("物料编号")=e.DataRow("物料编号")
            Else
                DataTables("产品预算").DataCols("物料编号").RaiseDataColChanged("物料编号= '" & e.DataRow("物料编号") & "'And 发生日期 = '" & e.DataRow("发生日期") & "'")
            End If
            Dim drs2 As List (of DataRow) = DataTables("物料清单").Select("产品编号= '" & e.DataRow("物料编号") & "'")
            If drs2 Is Nothing Then
                MessageBox.show("输入物料编号错误或者您还没有在物料清单中建立这个物料编号的BOM,请先建立后再使用")
                Return
            Else


                For Each dr2 As DataRow In drs2
                    Dim dr3 As DataRow = DataTables("生产计划物料需求").find("物料编号= '" & dr2("物料编号") & "' and 销售预算单号 = '" & e.DataRow("预算单号") & "'and 产品编号 = '" & e.DataRow("物料编号") & "'")
                    If dr3 IsNot Nothing Then
                        DataTables("生产计划物料需求").datacols("物料编号").RaiseDataColChanged("物料编号= '" & dr2("物料编号") & "' and 销售预算单号 = '" & e.DataRow("预算单号") & "'and 产品编号 = '" & e.DataRow("物料编号") & "'")
                        'Dim sum As Double = e.DataTable.Compute("sum(销售数量)","物料编号='" & e.DataRow("物料编号") &"'")
                        'dr3("使用数量") = dr2("使用数量")*sum
                    Else
                        Dim dr4 As DataRow = DataTables("生产计划物料需求").addnew
                        dr4("销售预算单号") = e.DataRow("预算单号")
                        dr4("发生日期") = e.DataRow("发生日期")
                        dr4("产品编号") = dr2("产品编号")
                        dr4("使用数量") = dr2("使用数量")*e.DataRow("销售数量")
                        dr4("物料编号") = dr2("物料编号")
                    End If
                Next
            End If
        End If
    End If
End Select

主题：报错了，这是什么原因