主题：关于跨表调用数据的问题

请教专家：前面我请教的问题，关于跨表调用数据，我将编码复制到另外一个类似的表中，所有列的属性一致，都是数值列。然后在下面位置加上MessageBox

Select Case e.DataCol.Name
    Case "本工序_交付日期","本工序_投产日期"
        If e.DataRow.IsNull("本工序_投产日期") OrElse e.DataRow.IsNull("本工序_交付日期") Then
            e.DataRow("本工序_安排生产天数_天")=Nothing
        Else
            Dim tp As TimeSpan = e.DataRow("本工序_交付日期") - e.DataRow("本工序_投产日期")
            e.DataRow("本工序_安排生产天数_天")=tp.TotalDays+1
        End If
       
    Case "品种_杆径","品种_长度","日生产能力_杆体探伤"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("品种_杆径") OrElse dr.IsNull("品种_长度") Then
            dr("日生产能力_杆体探伤") = Nothing
        Else
            Dim filter As String
            filter = "品种_杆径 = '" & dr("品种_杆径") & "' And 品种_长度 = '" & dr("品种_长度") & "'And 日生产能力_杆体探伤 = '" & dr("日生产能力_杆体探伤") & "'"
            MessageBox.Show(filter)
            pr = DataTables("工序能力表").Find(filter)
            MessageBox.Show(filter)
            If pr IsNot Nothing Then
                dr("日生产能力_杆体探伤") = pr("日生产能力_杆体探伤")
               
            End If
        End If
End Select

 

第一次显示结果 ”品种_杆径 = "02（φ16）"And 品种_长度 = "8.00"And 日生产能力_杆体探伤 = "0"，这是显示的“排产表”中的数据，

第二次显示结果应该是"工序能力表"中的数据，而在该表中，我在“日生产能力_杆体探伤”列输入的数据为1000，但显示的结果同第一次的一样，为： ”品种_杆径 = "02（φ16）"And 品种_长度 = "8.00"And 日生产能力_杆体探伤 = "0"，没有显示1000，“排产表”中的数据也没有变化。

请教问题出在哪里？

此外，如果表达式列不能触发DataColChanged事件，我应该在哪里实现上述功能（我必须保留表达式列）。

我修改了值，而且新录入了值，问题没有解决，我再看看加入msgbox的办法

谢谢您，继续请教：

我在编码中进入了msgbox,但没有弹出对话框

如下：

Select Case e.DataCol.Name
    Case "本工序投产日期","完成生产日期"
        If e.DataRow.IsNull("本工序投产日期") OrElse e.DataRow.IsNull("完成生产日期") Then
            e.DataRow("安排生产天数_天")=Nothing
        Else
            Dim tp As TimeSpan = e.DataRow("完成生产日期") - e.DataRow("本工序投产日期")
            e.DataRow("安排生产天数_天")=tp.TotalDays+1
        End If
       
    Case "品种_杆径","品种_长度"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("品种_杆径") OrElse dr.IsNull("品种_长度") Then
            dr("日生产能力_浸漆") = Nothing
        Else
            Dim filter As String
            filter = "品种_杆径 = '" & dr("品种_杆径") & "' And 品种_长度 = '" & dr("品种_长度") & "'"
            pr = DataTables("工序能力表").Find(filter)
            If pr IsNot Nothing Then
                dr("日生产能力_浸漆") = pr("日生产能力_浸漆")
                MessageBox.Show("一点不难!")
           End If
        End If
End Select

谢谢，我再试试

继续请教：

我在编码中将msgbox对话框加入到紫色位置，有对话框弹出，但加入到蓝色位置则没有对话框弹出

如下：

Select Case e.DataCol.Name
    Case "本工序投产日期","完成生产日期"
        If e.DataRow.IsNull("本工序投产日期") OrElse e.DataRow.IsNull("完成生产日期") Then
            e.DataRow("安排生产天数_天")=Nothing
        Else
            Dim tp As TimeSpan = e.DataRow("完成生产日期") - e.DataRow("本工序投产日期")
            e.DataRow("安排生产天数_天")=tp.TotalDays+1

             MessageBox.Show("一点不难!")
        End If
       
    Case "品种_杆径","品种_长度"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("品种_杆径") OrElse dr.IsNull("品种_长度") Then
            dr("日生产能力_浸漆") = Nothing
             MessageBox.Show("一点不难!")
        Else
            Dim filter As String
            filter = "品种_杆径 = '" & dr("品种_杆径") & "' And 品种_长度 = '" & dr("品种_长度") & "'"
            pr = DataTables("工序能力表").Find(filter)
            If pr IsNot Nothing Then
                dr("日生产能力_浸漆") = pr("日生产能力_浸漆")
                 MessageBox.Show("一点不难!")
                End If
        End If
End Select

加了msgbox(filter)依然没有反应，删除了原有的行，重新写入，没有反应

两个表的“品种_杆径”和“品种_长度”列都是字符串，但“生产安排表”的相应列是表达式列，“工序能力表”的相应列是数值列，“日生产能力_浸漆”列一样，都是数值列，为整数型

这里有问题吗？

请教专家：前面我请教的问题，关于跨表调用数据，我将编码复制到另外一个类似的表中，所有列的属性一致，都是数值列。然后在下面位置加上MessageBox

Select Case e.DataCol.Name
    Case "本工序_交付日期","本工序_投产日期"
        If e.DataRow.IsNull("本工序_投产日期") OrElse e.DataRow.IsNull("本工序_交付日期") Then
            e.DataRow("本工序_安排生产天数_天")=Nothing
        Else
            Dim tp As TimeSpan = e.DataRow("本工序_交付日期") - e.DataRow("本工序_投产日期")
            e.DataRow("本工序_安排生产天数_天")=tp.TotalDays+1
        End If
       
    Case "品种_杆径","品种_长度","日生产能力_杆体探伤"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("品种_杆径") OrElse dr.IsNull("品种_长度") Then
            dr("日生产能力_杆体探伤") = Nothing
        Else
            Dim filter As String
            filter = "品种_杆径 = '" & dr("品种_杆径") & "' And 品种_长度 = '" & dr("品种_长度") & "'And 日生产能力_杆体探伤 = '" & dr("日生产能力_杆体探伤") & "'"
            MessageBox.Show(filter)
            pr = DataTables("工序能力表").Find(filter)
            MessageBox.Show(filter)
            If pr IsNot Nothing Then
                dr("日生产能力_杆体探伤") = pr("日生产能力_杆体探伤")
               
            End If
        End If
End Select

 

第一次显示结果 ”品种_杆径 = "02（φ16）"And 品种_长度 = "8.00"And 日生产能力_杆体探伤 = "0"，这是显示的“排产表”中的数据，

第二次显示结果应该是"工序能力表"中的数据，而在该表中，我在“日生产能力_杆体探伤”列输入的数据为1000，但显示的结果同第一次的一样，为： ”品种_杆径 = "02（φ16）"And 品种_长度 = "8.00"And 日生产能力_杆体探伤 = "0"，没有显示1000，“排产表”中的数据也没有变化。

请教问题出在哪里？

此外，如果表达式列不能触发DataColChanged事件，我应该在哪里实现上述功能（我必须保留表达式列）。

我是在DataColChanged事件中写的。

还有一个问题，按照“表达式列的特殊性”一节中讲的，我的“排产表c”的父表是另外一个“排产表b”，而调用数据的表同该“排产表c”没有关联，同时，“排产表b”的该列也是表达式列，数据从父表“排产表a”调用，“表达式列的特殊性”一节中的下面的编码怎么用？

当我们在订单明细表输入数量时，订单表的数量会自动更新，但是上面的代码永远不会执行，因为数量是一个表达式列，不会触发事件。
我们需要在订单明细表的DataColChanged事件加上代码：

If e.Col.name = "数量" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("订单") '找出对应的父行
    If pr IsNot Nothing Then
        DataTables("订单").DataCols("数量").RaiseDataColChanged(pr)  '通知系统此父行的数量列发生了改变,触发DataColChanged事件
    End If
End If

各表关系如下图：为了减少输入工作，产品品种都从父表中继承

 

合同表→排产表a→排产表b→排产表c→排产表d→排产表e→排产表f→排产表g

     父→子     父→子     父→子    父→子     父→子    父→子     父→子

        

                   （排产表a-g）都要从（ 生产能力表 ）中调用数据