主题：跨表定位行

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


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

这个我知道  我不回的是在我找到有这行后   后在这行的下面增加一行而不是图标的最后一行增加    因为我后期想做甘特图  做原始计划跟实际计划的对比

Select Case e.DataCol.Name
    Case "生产流程单_实际接序时间", "生产流程单_实际完工时间"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr("生产流程单_实际完工时间") = Not Nothing And dr("生产流程单_接序") = Not Nothing Then
            Dim filter As String= "订单号 = '" & dr("生产流程单_订单编号") & "' And 加工工序 = '" & dr("生产流程单_工序") & "' "
            pr = Tables("客户交付管理系统").FindRow(filter)
            If pr IsNot Nothing Then
                Dim r As Row = Tables("客户交付管理系统").InsertNew()
                r("加工工序") = dr("生产流程单_工序") + "实际"
                r("加工设备") = dr("生产流程单_加工设备")
               
            End If
        End If
End Select
此主题相关图片如下：10121.png

麻烦帮着改一下

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

我改了一下  还是不对啊   是不是 Dim pr As DataRow  这句有问题   怎么老是提示相似的报警

 Select Case e.DataCol.Name
    Case "生产流程单_实际接序时间", "生产流程单_实际完工时间", "生产流程单_接序"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.isnull("生产流程单_实际接序时间") = False AndAlso dr.isnull("生产流程单_实际完工时间") = False AndAlso dr("生产流程单_接序") = True Then
           pr = Tables("客户交付管理系统").FindRow( "订单号 = '" & dr("生产流程单_订单编号") & "' And 加工工序 = '" & dr("生产流程单_工序") & "' ")
            If pr IsNot Nothing Then
                Dim r As Row
                If Tables("客户交付管理系统").rows.count = pr + 1 Then
                    r = Tables("客户交付管理系统").addnew
                Else
                    Tables("客户交付管理系统").position = pr + 1
                    r = Tables("客户交付管理系统").InsertNew()
                End If
                r("加工工序") = dr("生产流程单_工序") + "实际"
                r("加工设备") = dr("生产流程单_加工设备")
               
            End If
        End If
End Select

谢谢   万分感谢   和一个代码弄完了  又学了不少知识   以前看帮助文件太不仔细了

 

 

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


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

 

这个我选择允许编辑了  怎么还是提醒错误