主题：求一段代码

老师你的代码可以解决，不过我笨点，呵呵，想一举反三，就修改了下，谁知道又出现问题了，麻烦再看看有什么问题 吧

Dim Vals As List(of String())
Vals = DataTables("定单明细").GetValues("定单号|物料编号|物料名称|规格型号|定单数量|用料系数")
For i As Integer = 0 To Vals.Count - 1
    Dim fdr As DataRow = DataTables("采购计划").Find("定单号 = '" & Vals(i)(0) & "' and 物料编号 = '" & Vals(i)(1)  & "' and 物料名称 = '" & Vals(i)(2)  & "' and 规格型号 = '" & Vals(i)(3)  & "' and 定单数量 = '" & Vals(i)(4)  & "' and 用料系数 = '" & Vals(i)(5) &  "'")
    If fdr Is Nothing Then
        fdr = DataTables("采购计划").AddNew()
        fdr("定单号") = Vals(i)(0)
        fdr("物料编号") = Vals(i)(1)
 fdr("物料名称") = Vals(i)(2)
 fdr("规格型号") = Vals(i)(3)
 fdr("定单数量") = Vals(i)(4)
 fdr("用料系数") = Vals(i)(5)
    End If
Next

谢谢红袍老师