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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动转换数据

共有1917人关注过本帖树形打印复制链接主题：自动转换数据

zhangning

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

加好友

发短信

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

自动转换数据 发帖心情

Post By：2017/5/2 14:48:00 [只看该作者]

“加工排产”中，如各工序的“工程名”和“调度设备”均不为空，则，

就在“设备别任务”里追加一行，并将“设备别任务”里其他列的内容从“加工排产”中引入，

在追加时，希望按设备扎堆（按设备名升序排列，同种设备，按照开始日期升序排列）

请问老师，如何达到这种效果，谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:精益制造管理系统.rar

管理员 qdrA001

有点蓝

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

加好友

发短信

等级：超级版主帖子：110610 积分：562952 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/2 14:56:00 [只看该作者]

关联引用参考：http://www.foxtable.com/webhelp/scr/1451.htm

排序参考：http://www.foxtable.com/webhelp/scr/0451.htm

zhangning

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

加好友

发短信

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

Post By：2017/5/2 15:31:00 [只看该作者]

老师，谢谢！

我写了第1序的转换，如下：

Select Case e.DataCol.Name

Case "第1序_工程名","第1序_调度设备"

If e.DataRow.IsNull("第1序_工程名") = False AndAlso e.DataRow.IsNull("第1序_调度设备") = False Then

Dim dr6 As DataRow

dr6 = DataTables("设备别任务").Find("设备 = '" & e.DataRow("第1序_调度设备") & "'")

If dr6 Is Nothing Then

dr6 = DataTables("设备别任务").AddNew()

dr6("设备") = e.DataRow("第1序_调度设备")

dr6("指令单") = e.DataRow("指令单")

dr6("部品ID") = e.DataRow("部品ID")

dr6("工序") = e.DataRow("第1序_工程名")

dr6("开始日期") = e.DataRow("第1序_开始日")

dr6("结束日期") = e.DataRow("第1序_结束日")

dr6("加工数量") = e.DataRow("第1序_投入数量")

End If

End Select

最多设置了12个工序的位置，有些产品最多是6道工序，

笨办法是按照上述代码，一直写到12道工序，

请问老师，有没有简单点的办法，谢谢！

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/2 16:19:00 [只看该作者]

If e.DataCol.name Like "*序_工程名*" OrElse e.DataCol.name Like "*序_调度设备*" Then
    Dim idx As Integer = e.DataCol.name.replace("第", "").replace("序_工程名", "").replace("序_调度设备", "")
    msgbox(idx)
    If e.DataRow.IsNull("第" & idx & "序_工程名") = False AndAlso e.DataRow.IsNull("第" & idx & "序_调度设备") = False Then
        Dim dr6 As DataRow
        dr6 = DataTables("设备别任务").Find("设备 = '" & e.DataRow("第" & idx & "序_调度设备") & "'")
        If dr6 Is Nothing Then
            dr6 = DataTables("设备别任务").AddNew()
            dr6("设备") = e.DataRow("第" & idx & "序_调度设备")
            dr6("指令单") = e.DataRow("指令单")
            dr6("部品ID") = e.DataRow("部品ID")
            dr6("工序") = e.DataRow("第" & idx & "序_工程名")
            dr6("开始日期") = e.DataRow("第" & idx & "序_开始日")
            dr6("结束日期") = e.DataRow("第" & idx & "序_结束日")
            dr6("加工数量") = e.DataRow("第" & idx & "序_投入数量")
        End If
    End If
End If