求助：不重复值填充代码优化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

请上传实例说明

使用代码排序：

Tables("作业表号统计").Sort = "左,投料区,右"

得到下面排序结果，以前8行数据为例，填充到"工艺Users"表后正确的效果是怎么样的？手工填写然后把结果截图发上来对比一下

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

[此贴子已经被作者于2021/8/21 8:53:36编辑过]

也就是不用考虑对应关系，按顺序填就行了，没有的就留空？

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("左|右")

dim idx as integer = 0
For i As Integer = 0 To Vals1.Count - 1
Dim dr1 As DataRow = DataTables("工艺Users").Find("工序号索引='" & Vals1(i)(0) & "'") '
If dr1 Is Nothing Then

if idx<Tables("工艺Users").rows.count

dr1 = Tables("工艺Users").rows(idx).datarow

else
dr1 = DataTables("工艺Users").AddNew()

end if

idx = idx + 1
        dr1("工序号索引") = Vals1(i)(0)
        dr1("作业表内容写入") = Vals1(i)(1)
    End If
Next

[此贴子已经被作者于2021/8/21 11:27:40编辑过]

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