Why doesn't my listview get updated? I have a Active X listview component, where I would like to present to columns NAME and DESCRIPTION from tableXX. Every object seems to be stated correct but neither headers or subitems(DESCRIPTION) is printed out. What am I doing wrong?

LOCAL lcAlias, lcAlias2, loHeader, loItem, lcValue, i, j

lcAlias2		= SYS(2015)

IF !EMPTY(lcAlias)
	SELECT idkey, name, description FROM (tableXX) INTO CURSOR (lcAlias2)
	j = 1
	
	THISFORM.clsrcplistview1.ColumnHeaders.CLEAR
		
	FOR j = 1 TO 2
		IF j > THISFORM.clsrcplistview1.ColumnHeaders.COUNT
			loHeader = THISFORM.clsrcplistview1.ColumnHeaders.ADD()
		ELSE
			loHeader = THISFORM.clsrcplistview1.ColumnHeaders(j)
		ENDIF
	
		loHeader.KEY	=  SYS(2015)
		
		DO CASE
			CASE j = 1
				loHeader.TEXT	= 'Name'
				loHeader.WIDTH	=  500
			CASE j = 2 
				loHeader.TEXT 	= 'Description'
				loHeader.WIDTH	=  500
		ENDCASE
	ENDFOR

	THISFORM.clsrcplistview1.REFRESH()	
	
	SELECT (lcAlias2)
	SCAN
		i = 1
		FOR i = 1 TO 2
			lcValue	= &lcAlias2..idkey + &lcAlias2..name
			IF i = 1
				loItem	= THISFORM.clsrcplistview1.ListItems.ADD(, lcValue, &lcAlias2..name)
			ELSE
				loItem.SubItems(i-1)	= &lcAlias2..description
			ENDIF
		ENDFOR
	ENDSCAN
	
	THISFORM.clsrcplistview1.REFRESH()
ENDIF 



Regards,
Jenny