父表,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