主题：表属性时间触发

此主题相关图片如下：qq截图20170817161348.png

图1：销售订单和生产主计划上阶123两张表的品号和客户单号字段都对的上，那修改了销售单号的优先级，会触发“dr9("ITEM_NAME")= "成功"”这条代码，可是并没有成功触发。
 

此主题相关图片如下：qq截图20170817161813.png

图2：生产主计划也没有成功触发

请删除你多余的代码，单独测试那段代码。

你肯定有其它代码影响。

这是所有的代码

Select  e.DataCol.Name '如果是已结帐列的内容变动
Case "品号"  
 Dim pr As DataRow
    pr = DataTables("SUGGESTION_PLAN").Find("ITEM_CODE = '" & e.DataRow("品号") & "'")
    If pr IsNot Nothing Then
       e.DataRow("预计生产")= pr("预计生产")

       e.DataRow("预计到货")= pr("预计到货")
    End If

    Dim dr As DataRow
    dr = DataTables("图纸档案").Find("品号 = '" & e.DataRow("品号") & "'")
    If dr IsNot Nothing Then
       e.DataRow("图纸发放")= dr("日期")
    End If

Dim drs9 = DataTables("生产主计划上阶123").Select("ITEM_CODE= '" & e.DataRow("品号") & "' and CUSTOMER_ORDER_NO =  '" & e.DataRow("客户单号") & "' ")
For Each dr9 As DataRow In drs9
    dr9("ITEM_NAME")= "成功"
    For Each dtr99 As DataRow In DataTables("生产主计划").Select("工单单号= '" & dr9("DOC_NO") & "'")
        dtr99("优先级") = e.DataRow("优先级")
    Next
Next

Case "发货计划"
  Dim qr As DataRow
    qr = DataTables("生产主计划").Find("品号 = '" & e.DataRow("品号") & "' and 客户单号 =  '" & e.DataRow("客户单号") & "' ")
    If qr IsNot Nothing Then
        qr("发货计划")=e.DataRow("发货计划")

    End If

End Select

Select  e.DataCol.Name '如果是已结帐列的内容变动
    Case "品号"
        Dim pr As DataRow
        pr = DataTables("SUGGESTION_PLAN").Find("ITEM_CODE = '" & e.DataRow("品号") & "'")
        If pr IsNot Nothing Then
            e.DataRow("预计生产")= pr("预计生产")
           
            e.DataRow("预计到货")= pr("预计到货")
        End If
       
        Dim dr As DataRow
        dr = DataTables("图纸档案").Find("品号 = '" & e.DataRow("品号") & "'")
        If dr IsNot Nothing Then
            e.DataRow("图纸发放")= dr("日期")
        End If
       
       
    Case "发货计划"
        Dim qr As DataRow
        qr = DataTables("生产主计划").Find("品号 = '" & e.DataRow("品号") & "' and 客户单号 =  '" & e.DataRow("客户单号") & "' ")
        If qr IsNot Nothing Then
            qr("发货计划")=e.DataRow("发货计划")
           
        End If
       
End Select

Select Case e.DataCol.name
    Case "优先级","品号", "客户单号"
        Dim drs9 = DataTables("生产主计划上阶123").Select("ITEM_CODE= '" & e.DataRow("品号") & "' and CUSTOMER_ORDER_NO =  '" & e.DataRow("客户单号") & "' ")
        For Each dr9 As DataRow In drs9
            dr9("ITEM_NAME")= "成功"
            For Each dtr99 As DataRow In DataTables("生产主计划").Select("工单单号= '" & dr9("DOC_NO") & "'")
                dtr99("优先级") = e.DataRow("优先级")
            Next
        Next
       
End Select