无法使用关系名称

如何解决无法使用关系名称

我需要将关系绑定到文本框。

    Dim bsCustomerRelation As New BindingSource
    ds.Relations.Add(New datarelation("FK_ToCustomerRelation",ds.HTN_TEMP_ORDER_FILE.CUSTOMER_CD,ds.CUSTOMER_MASTER.cumcd,False))
    bsCustomerRelation.DataMember = ds.Relations("FK_ToCustomerRelation").RelationName
    bsCustomerRelation.DataSource = ds

    Me.lblCustomerDescription1.DataBindings.Add("Text",bsCustomerRelation,ds.Relations(0).ChildColumns(0).ColumnName,True)

第一步，我添加与数据集（ds）的关系。 下一步，我将此关系分配给 bindingsorce 的数据成员。 但是在设置了 BindingSource.DataSource 后数据成员被清除了。

另一方面，我尝试像这样在 DataSet 之前设置 DataMember

bsCustomerRelation.DataSource = ds
bsCustomerRelation.DataMember = ds.Relations("FK_ToCustomerRelation").RelationName

但是它有一些像这样的错误

在数据源上找不到 DataMember 属性“FK_ToCustomerRelation”。

尽管如此，我已经添加了关系。

如何添加与 DataMember 的关系？