父表datacolchangedIf e.DataCol.Name = "SOID" Then
e.DataRow("合同号") = DataTables("子表").SQLGetComboListString("合同号+‘-’+合同数量","[SOID] = '" & e.NewValue & "'").replace("|",",")
End If
子表datacolchanged
Select Case e.DataCol.Name
Case "合同号","合同数量"
Dim pr As DataRow
pr = DataTables("父表").Find("SOID = '" & e.DataRow("SOID") & "'")
If pr IsNot Nothing Then
DataTables("父表").DataCols("SOID").RaiseDataColChanged(pr)
End If
End Select