主题：代码

            If e.DataRow("物资说明") = "紧固件" Then
                Dim ndr As DataRow = DataTables("领料清单").Find("预算编号 = '" & e.DataRow("预算编号") & "'")
                If ndr Is Nothing Then
                    ndr = Tables("领料清单").AddNew
                End If
                ndr("编号") = e.DataRow("编号")
                ndr("预算编号") = e.DataRow("预算编号")
                ndr("生产令号") = e.DataRow("生产令号")
                ndr("项目名称") = e.DataRow("项目名称")
                ndr("物资说明") = e.DataRow("物资说明")
                ndr("名称") = "/"
                ndr("规格") = "/"
                ndr("材质") = "/"
                ndr("单位") = "批"
                ndr("领料数量") = "1"
                ndr("领料日期") = Date.today

 ndr.Move(0)
            End If
        End If

 这段代码加了ndr.Move(0)这句后，显示

此主题相关图片如下：捕获.jpg

要怎么改？