Passaggio di items da una ListBox ad un'altra [Risolto]

[claudiocarletta]

Salve a tutti,
ho la necessità di passare alcuni elementi selezionati (nominativo e IdRecord) da una ListBox con selezione multipla ad un'altra ListBox adiacente alla prima tramite un metodo (pulsante o altro)

Immagine1.png (73.58 KiB) Viewed 1439 times

Ho provato con questi due metodi che vi posto, ma con nessuno dei due sono riuscito a risolvere il problema

Code: Select all

METHOD Passa( )
    local nPos	as DWORD
    local nEle	as DWORD
    
    nEle := SELF:oDCListaDocenti:ItemCount
    FOR nPos := 1 TO nEle							// Fase di selezione
        SELF:oDCListaDocenti:CurrentItemNo := nPos
        if SELF:oDCListaDocenti:IsSelected(nPos)
            SELF:oDCListaScelti:AddItem(SELF:oDCListaDocenti:TextValue, 0, SELF:oDCListaDocenti:Value)
        endif
	NEXT
    
    nPos := SELF:oDCListaDocenti:FirstSelected()	               // Fase di eliminazione
    do while nPos > 0
        SELF:oDCListaDocenti:DeleteItem(nPos)
		nPos := SELF:oDCListaDocenti:FirstSelected()   
	enddo
RETURN NIL
    
METHOD PassaOld( )
    local nPos	as DWORD
    nPos := SELF:oDCListaDocenti:FirstSelected()	                            // Fase di selezione
    do while nPos > 0
        SELF:oDCListaScelti:AddItem(SELF:oDCListaDocenti:TextValue, 0, SELF:oDCListaDocenti:Value)
		nPos := SELF:oDCListaDocenti:NextSelected()   
	enddo
    
    nPos := SELF:oDCListaDocenti:FirstSelected()	                           // Fase di eliminazione
    do while nPos > 0
        SELF:oDCListaDocenti:DeleteItem(nPos)
		nPos := SELF:oDCListaDocenti:NextSelected()   
	enddo
RETURN NIL

Cosa mi suggerite?
Vi ricordo che adopero X# nel dialetto VO

Grazie a tutti
Claudio

[ic2]

Hello Claudio,

You don't write what doesn't work.

My approach in general is like this. The function returns an array of the content of the passed column (as symbolic name, in my function I can add multiple columns) for selected elements:

Code: Select all

FUNCTION SelectedLVItems(oLVControl,sKol1)
	nItems:=oLVControl:SelectedCount
	IF nItems>0
		oItem:=oLVControl:GetNextitem(LV_GNIBYITEM,,,,TRUE,,)	// 1st item
		uZoek:= oItem:GetValue(sKol1)
               AAdd(aValues,uZoek)
		FOR ni:=2 TO nItems          			// next selected items, if any
			oItem:=oLVControl:GetNextitem(LV_GNIBYITEM,,,,TRUE,oItem:ItemIndex)
			uZoek:= oItem:GetValue(sKol1)
                       AAdd(aValues,uZoek)
                NEXT
        ENDIF
RETURN aValues

Then (with some extra steps we added) I empty both Listviews first:

Code: Select all

	IF SELF:oDCLV1:ItemCount>0
		oDCLV1:DeleteAll()
	ENDIF
	IF SELF:oDCLV2:ItemCount>0
		oDCLV2:DeleteAll()
	ENDIF

and finally we add the value retrieved from 1 LV for each line to the second:

Code: Select all

METHOD VulLVLine(cKol1 AS STRING,cKey AS STRING,oLV AS OBJECT) AS LOGIC PASCAL CLASS SelectReceivers
//#s Add item cKol1 with key cKey to listview oLV
LOCAL oItem AS ListViewItem
	oItem := ListViewItem{}
	oItem:SetValue(cKol1,#Kol1)
	oItem:SetValue(cKey,#KEY)
	oLV:AddItem(oItem)
RETURN TRUE

I realize it's done differently but I think you left some septs out and looking at this code you can hopefully solve it.

Dick

[claudiocarletta]

Alla fine era più facile di quanto pensassi :whistle: :whistle: :whistle:

Code: Select all

        
METHOD Passa( )
    local dItem	as DWORD
    
    dItem := SELF:oDCListaDocenti:FirstSelected()
    do while dItem > 0
        SELF:oDCListaDocenti:CurrentItemNo := dItem
        SELF:oDCListaScelti:AddItem(SELF:oDCListaDocenti:CurrentItem, 0, SELF:oDCListaDocenti:Value)
        SELF:oDCListaDocenti:DeleteItem(dItem)
	dItem := SELF:oDCListaDocenti:FirstSelected()   
	enddo
RETURN NIL

Buona notte a tutti