主题：自动输入出错

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

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了谢谢有点甜版主