単一の別名テーブルに対するメンバーから別名の組合せを削除します。
構文
EsbOtlDeleteAliasCombination ( hOutline, hMember, pszAliasTable, pszAlias ) ByVal hOutline As Long ByVal hMember As Long ByVal pszAliasTable As String ByVal pszAlias As String
パラメータ | 説明 |
---|---|
hOutline |
アウトラインのコンテキスト・ハンドル。 |
hMember |
別名の組合せを削除するメンバーのハンドル。 |
pszAliasTable |
組合せを削除する別名テーブル。このパラメータが""の場合、デフォルトの別名テーブルが使用されます。 |
pszAlias |
削除する別名。 |
戻り値
正常終了の場合は0が戻されます。それ以外の場合は、次のいずれかの値が戻されます:
OTLAPI_BAD_ALIASTABLE
OTLAPI_ERR_NOALIASCOMBO
例
Declare Function EsbOtlDeleteAliasCombination Lib "ESBOTLN" (ByVal hOutline As Long, ByVal hMember As Long, ByVal pszAliasTable As String, ByVal pszAlias As String) As Long Sub ESB_OtlDeleteAliasCombination() Dim sts As Long Dim Object As ESB_OBJDEF_T Dim hOutline As Long Dim hMemberJan As Long Object.hCtx = hCtx Object.Type = ESB_OBJTYPE_OUTLINE Object.AppName = "Sample" Object.DbName = "Basic" Object.FileName = "Basic" sts = EsbOtlOpenOutline(hCtx, Object, ESB_YES, ESB_YES, hOutline) If sts = 0 Then sts = EsbOtlFindMember(hOutline, "Jan", hMemberJan) End If If sts = 0 And hMemberJan <> 0 Then sts = EsbOtlDeleteAliasCombination(hOutline, hMemberJan, "Default", "alias combination") End If End Sub
関連トピック