主题：自动输入出错

请教各位大师,我想把<出库表>中输入 "产品名称","产品规格","生产厂家","生产日期"四列都跟<产品出库统计>不相同的行自动在<产品出库统计>表中增加行并把这四列内容相应填充.请问以下代码有什么问题呢?实现不了

Select e.DataCol.Name

Case "产品名称","产品规格","生产厂家","生产日期"

        If e.DataRow.IsNull("产品名称") OrElse e.DataRow.IsNull("产品规格") OrElse e.DataRow.IsNull("生产厂家") OrElse e.DataRow.IsNull("生产日期")Then

        Else

            Dim fdr As DataRow = DataTables("产品出库统计").Find("产品名称 = '" & e.DataRow("产品名称") & "'  and 产品规格 = '" & e.DataRow("产品规格") & "' and生产厂家= '" & e.DataRow("生产厂家") & " and生产日期= '" & e.DataRow("生产日期") & "''")

            If fdr Is Nothing Then

                Dim nr As Row = Tables("产品出库统计").AddNew

                nr("产品名称") = e.DataRow("产品名称")

                nr("产品规格") = e.DataRow("产品规格")

                nr("生产厂家") = e.DataRow("生产厂家")

                nr("生产日期") = e.DataRow("生产日期")

            End If

        End If

End Select

Select e.DataCol.Name
   
    Case "产品名称","产品规格","生产厂家","生产日期"
       
        If e.DataRow.IsNull("产品名称") OrElse e.DataRow.IsNull("产品规格") OrElse e.DataRow.IsNull("生产厂家") OrElse e.DataRow.IsNull("生产日期")Then
           
        Else
           
            Dim fdr As DataRow = DataTables("产品出库统计").Find("产品名称 = '" & e.DataRow("产品名称") & "' and 产品规格 = '" & e.DataRow("产品规格") & "' and 生产厂家= '" & e.DataRow("生产厂家") & "' and 生产日期= '" & e.DataRow("生产日期") & "'")
           
            If fdr Is Nothing Then
               
                Dim nr As Row = Tables("产品出库统计").AddNew
               
                nr("产品名称") = e.DataRow("产品名称")
               
                nr("产品规格") = e.DataRow("产品规格")
               
                nr("生产厂家") = e.DataRow("生产厂家")
               
                nr("生产日期") = e.DataRow("生产日期")
               
            End If
           
        End If
       
End Select

OK了谢谢有点甜版主