![]() |
FlowFact - Entwicklungstools |
![]() |
Function | AD_GetPhoneList(ByVal rsAd As ADODB.Recordset) As clsPhoneList |
rsAD: Recordset der von AD_New oder AD_Find_XXX zurückgegeben wurde. Auch ein 'm_oBase.FF_GetRecordset("SELECT * FROM AD ...")' ist möglich. Rückgabewert: Telefonliste vom Typ clsPhoneList Public Function AD_GetPhoneList(ByVal rsAd As ADODB.Recordset) As clsPhoneList Dim oPhoneList As clsPhoneList Set oPhoneList = New clsPhoneList oPhoneList.AsString = m_oUtil.k(rsAd("TELEFON").value) Set AD_GetPhoneList = oPhoneList End Function |