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

各位老师:

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

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循环中完成?

 

各位老师请指教！

谢谢！

蓝老师：谢谢！

 按照你的指点，从第一行开始填充，但工序号索引里有重复值！

照片如下：

 

此主题相关图片如下：1.png

是不是我那里还有错的地方，请指教！

 

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)
        dr("工序号索引") = Vals(i)(0)
        dr("作业表内容写入") = Vals(i)(2)
    End If
Next

 

再次感谢！

老师：请指教！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

 

工序号索引及作业表内容写入是不重复的值！

 

谢谢！

老师：以前8行为例，填充后的结果如下图：

 

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

 

请老师费心！

谢谢！

达成效果！ 谢谢！