你这么改一下看看:
If pr IsNot Nothing Then
DataTables("订单明细").DataCols("产品编码").RaiseDataColChanged(pr)
MessageBox.show("我触发了")
Else
MessageBox.show("订单明细表没有符合条件的行,是不是合成的条件有问题")
End If