父表,DataColChanged事件
If e.DataCol.Name = "编号" Then
e.DataRow("产品概览") = DataTables("明细").GetComboListString("产品名称","[编号] = '" & e.NewValue & "'")
End If
子表,DataColChanged事件
Select Case e.DataCol.Name
Case "产品名称"
DataTables("父表").DataCols("编号").RaiseDataColChanged("[编号] = '" & e.datarow("编号") & "'")
End Select