主题：表属性时间触发

上传图片参考

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

 你的代码基本上没问题，请详细说明。

这个意思？

 

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

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

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

 

你肯定有其它代码影响。

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