主题：求一段代码

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行..........重复相同的行复制，我希望的是每次按下只是更新而不是重复，请老师指教