引用上行数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 引用上行数据

共有2123人关注过本帖树形打印复制链接主题：引用上行数据

zhangning

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

引用上行数据 发帖心情

Post By：2017/6/5 13:51:00 [显示全部帖子]

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

老师，您好！

附图所示，显示的是电动CT从01~15工序，每次导入时一齐导入15行，(如果是别的产品，就不是15行）

这15行的前三列“制单号、流动序号、产品序号”的内容完全一样，

（如图，每次导入这一组时，会提前输入一行，）

请问老师，如何将剩余的行的前3列内容自动引入呢？

要达到的效果是：

1 201706-001 01 201706-001-01

2 201706-001 01 201706-001-01

3 201706-001 01 201706-001-01

4 201706-001 01 201706-001-01

......

15 201706-001 01 201706-001-01

zhangning

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/6/5 14:24:00 [显示全部帖子]

谢谢老师，

我用的导入工程代码是：

Select Case e.DataCol.Name

Case "部品ID"

Dim dr As DataRow = e.DataRow

If dr.IsNull("部品ID") Then

dr("工序序号") = Nothing

dr("工程") = Nothing

Else

Dim filter As String

filter = "部品ID = '" & dr("部品ID") & "' and 工序序号 Is Not null"

Dim drs As List(Of DataRow) = DataTables("工程和工时").Select(filter, "工序序号")

Systemready = False

For i As Integer = 0 To drs.count - 1

If i > 0 Then

dr = e.DataTable.addnew()

End If

Dim pr = drs(i)

dr("部品ID") = pr("部品ID")

dr("工序序号") = pr("工序序号")

dr("工程") = pr("工程")

dr("备注") = pr("备注")

dr("投入数量") = "1"

dr("任务名称") = pr("部品ID") + " " + pr("备注")

dr("工程耗时H") = pr("装") / 60

Systemready = True

End If

End Select

想要的结果是每次导入时就引用01序相对应的三列，所以，每次导入时的需要不一样，

如下图：

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

zhangning

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/6/5 14:51:00 [显示全部帖子]

老师，每次导入时，是导入一个组合，需要在这个组合内起到以下代码的效果，

Dim cs() As String = {"第一列", "第二列", "第三列"}
Dim t As Table = CurrentTable
For Each c As String In cs
    For i As Integer = 1 To t.Rows.count-1
        If t.Rows(i).IsNull(c) Then
            t.Rows(i)(c) = t.Rows(i-1)(c)
        End If
    Next
Next

以上代码的效果时整个表都是引用上行前三列的数据了，是不是需要加入范围的限制呢？

zhangning

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/6/5 15:48:00 [显示全部帖子]

解决了，谢谢老师

下一主题 >> << 上一主题

主题：引用上行数据