主题：表属性时间触发

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

用你的代码，出现这样的问题。

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

然后重新定义下，出现这样问题。

此主题相关图片如下：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