主题：求助：不重复值填充代码优化

各位老师:

  下列代码，我要达到两组不重复值填充的效果：

Dim Vals As List(of String()) = DataTables("作业表号统计").GetValues("左|投料区")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("工艺Users").Find(" 工序号='" & Vals(i)(0) & "' And 投料区='" & Vals(i)(1) & "' ")
    If dr Is Nothing Then
        dr = DataTables("工艺Users").AddNew()
        dr("工序号") = Vals(i)(0)
        dr("投料区") = Vals(i)(1)
    End If
Next

Dim Vals1 As List(of String()) = DataTables("作业表号统计").GetValues("左|右")
For i As Integer = 0 To Vals1.Count - 1
    Dim dr1 As DataRow = DataTables("工艺Users").Find("工序号索引='" & Vals1(i)(0) & "'") '
    If dr1 Is Nothing Then
        dr1 = DataTables("工艺Users").AddNew()
        dr1("工序号索引") = Vals1(i)(0)
        dr1("作业表内容写入") = Vals1(i)(1)
    End If
Next

现在，可以进行填充，因在同一个表，第二组不重复值填充时，新增行了，图片如下：

 

 
此主题相关图片如下：微信图片_20210820155210.png

 

我想让老师们费心看看，

1、能不能不增加行，直接从第一行开始填充！

效果像这样的：

 

 
此主题相关图片如下：微信图片_20210820155518.png

 

2、能否合并在一个FOR循环中完成?

 

各位老师请指教！

谢谢！