主题：跨表引用数据

产品表和订单表通过产品编号联系起来，想要在订单表输入产品编号后，品名、型号、规格、单价四列内容从产品表自动继承输入，我在订单表的DataColChanged输入下面的事件代码， 为什么不通过啊， 我帮助看看代码呗

If

e.DataCol.Name = "产品编号"Then
If e.NewValue Is Nothing Then
e.DataRow("品名") = Nothing
e.DataRow("型号") = Nothing
e.DataRow("规格") = Nothing
e.DataRow("单价") = Nothing
Else
Dim dr AsDataRow
dr = DataTables("产品").Find("[产品编号] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("品名") = dr("品名")
e.DataRow("型号") = dr("型号")
e.DataRow("规格") = dr("规格")
e.DataRow("单价") = dr("单价")
End If
End If
End If