主题：求一段代码

Dim Vals As List(of String())
Vals = DataTables("定单明细").GetValues("定单号|物料编号")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("采购计划").AddNew()
    dr("定单号") = Vals(i)(0)
    dr("物料编号") = Vals(i)(1)
Next

按下按钮后不是更新，还是重复填充啊，比如第一次按下是50行，第二次按下就变成100行..........重复相同的行复制，我希望的是每次按下只是更新而不是重复，请老师指教

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

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

谢谢红袍老师