子表DataColChanged事件
If e.DataCol.Name = "地点" Then
Dim pdr As DataRow = e.DataRow.GetParentRow("订单表")
Dim fdr As DataRow = e.DataTable.Find("产品编号 = '" & e.DataRow("产品编号") & "'", "_Sortkey")
If pdr IsNot Nothing Then
If fdr IsNot Nothing Then
pdr("地点") = fdr("地点")
Else
pdr("地点") = Nothing
End If
End If
End If