Dim dt As DataTable = DataTables("xpxx")
If Relations.Contains("xpxxgs") = False Then
Relations.Add("xpxxgs", DataTables("xpxx").DataCols("xpbh"), DataTables("xpgs").DataCols("xpbh"), False, RelationPathEnum.None)
End If
If dt.DataCols.Contains("xpgsqyrs") = False Then
dt.DataCols.Add("xpgsqyrs", GetType(Integer))
Tables("xpxx").Cols("xpgsqyrs").Move(1)
dt.DataCols("xpgsqyrs").Expression = "Parent(xpxxgs).xpgsqyrs "
End If
提示:找不到父关系“xpxxgs”