ListView.AddItem Method |
Namespace: VO
1LOCAL cCoachName AS string 2LOCAL oItem AS ListViewItem 3DO WHILE !SELF:oCoachesServer:eof 4cCoachName := Trim( SELF:oCoachesServer:FIELDGET( #LastName ) ) ; 5+ ", " + ; 6Trim( SELF:oCoachesServer:FIELDGET( #FirstName ) ) + " " + ; 7SELF:oCoachesServer:FIELDGET( #MiddleInit ) 8oItem:SetText( SELF:oCoachesServer:FIELDGET( #Season ), #cSeason ) 9oItem:SetValue( SELF:oCoachesServer:RecNo, #cCoachName ) 10oItem:SetText( CoachName, #cCoachName ) 11oItem:SetText( SELF:oCoachesServer:FIELDGET( #Gender ), #cGender ) 12oItem:SetText( SELF:oCoachesServer:FIELDGET( #ClubCode ), #cClubCode ) 13oItem:SetText( SELF:oCoachesServer:FIELDGET( #TeamNr ), #cTeamNr ) 14oItem:SetText( SELF:oCoachesServer:FIELDGET( #HomePhone ), #cHomePhone ) 15oItem:SetText( SELF:oCoachesServer:FIELDGET( #WorkPhone ), #cWorkPhone )
1SELF:oDClvCoaches:AddItem( oItem ) 2SELF:oCoachesServer:skip() 3ENDDO