主题：提取的问题问问

加上不触发事件的代码

If e.DataCol.Name = "产品编号" Then
    systemready = False
    For Each dr As DataRow In DataTables("工价表").Select("产品编号 = '" & e.NewValue.Replace("'", "''") & "'")
        Dim nr As Row = Tables("制令工序").Addnew()
        nr("物料编号") = dr("物料编号")
        nr("品名规格") = dr("品名规格")
        nr("单位") = dr("单位")
        nr("工序") = dr("工序")
        nr("模具") = dr("模具")
        nr("系数") = dr("用料系数")
        nr("工价") = dr("修改工价")
        nr("订单号") = e.DataRow("订单号")
        nr("产品编号") = e.DataRow("产品编号")
    Next
    systemready = True
End If