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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：不重复值填充代码优化  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171177)

--  作者：cxmxjwlmq
--  发布时间：2021/8/20 15:58:00
--  求助：不重复值填充代码优化

各位老师:

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

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

各位老师请指教！

谢谢！

--  作者：有点蓝
--  发布时间：2021/8/20 16:15:00
--
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

--  作者：cxmxjwlmq
--  发布时间：2021/8/20 17:12:00
--

蓝老师：谢谢！

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

照片如下：

此主题相关图片如下：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

再次感谢！

--  作者：有点蓝
--  发布时间：2021/8/20 17:15:00
--
请上传实例说明

--  作者：cxmxjwlmq
--  发布时间：2021/8/20 17:50:00
--

老师：请指教！

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.table

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

谢谢！

--  作者：有点蓝
--  发布时间：2021/8/21 8:53:00
--
使用代码排序：
Tables("作业表号统计").Sort = "左,投料区,右"
得到下面排序结果，以前8行数据为例，填充到"工艺Users"表后正确的效果是怎么样的？手工填写然后把结果截图发上来对比一下

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

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

--  作者：cxmxjwlmq
--  发布时间：2021/8/21 11:06:00
--

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

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

请老师费心！

谢谢！

--  作者：有点蓝
--  发布时间：2021/8/21 11:27:00
--
也就是不用考虑对应关系，按顺序填就行了，没有的就留空？

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编辑过]

--  作者：客人
--  发布时间：2021/8/23 12:29:00
--

达成效果！

谢谢！

--  作者：cxmxjwlmq
--  发布时间：2021/8/23 12:30:00
--

达成效果！

谢谢！