主题：在数据导入时出现缺失的情况,求指导

你漏掉了一行吧？

         If fdr Is Nothing Then
                Dim r As Row = t.Addnew()
                r("条码") = cs(1)
                r("数量") = cs(2)
            Else
                fdr("数量") =fdr("数量")+cs(2)
            End If