子表datacolchanged事件
If e.DataCol.Name = "单价" Dim Filter As String = "[品名] = '" & e.DataRow("品名") & "'" Dim dr As DataRow = DataTables("父表").find(Filter) If dr IsNot Nothing Then dr("单价") = e.DataRow("单价") End IfEnd If