主题：引用父表出错

父表是购进合同，子表新增一行默认值引用父表数据，DataRowAdding代码如下：

Dim pr As DataRow = e.DataRow.GetParentrow("购进合同")
e.DataRow("币种") = pr("币种")

出错提示  Exception has been thrown by the target of an invocation.

求解。