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

请教专家：前面我请教的问题，关于跨表调用数据，我将编码复制到另外一个类似的表中，所有列的属性一致，都是数值列。然后在下面位置加上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事件，我应该在哪里实现上述功能（我必须保留表达式列）。

 1、代码没错，你修改这两列的值了吗？或者你重置列了吗？修改值，才会执行代码。

 

 2、你可以加入msgbox，弹出看是否进入了事件，进入执行了最后的代码。

我修改了值，而且新录入了值，问题没有解决，我再看看加入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。

如果只是最后的不触发，就是条件不满足，查不到数据。

 

 filter = "品种_杆径 = '" & dr("品种_杆径") & "' And 品种_长度 = '" & dr("品种_长度") & "'"

谢谢，我再试试

继续请教：

我在编码中将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

1、修改 品种_杆径 、 品种_长 两列的内容

 

2、msgbox加入

 

filter = "品种_杆径 = '" & dr("品种_杆径") & "' And 品种_长度 = '" & dr("品种_长度") & "'"

msgbox(filter)

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

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

这里有问题吗？