PowerBuilder Arrastrar y Soltar en un Datawindow(Dragdrop)

Para implementar este pequeño ejemplo usaremos el siguiente codigo:
En el datawindow origen(dw_1) en el evento click

this.selectrow( 0,false)
this.SelectRow(row,true) //Selecciona la fila
this.drag(begin!) 


En el datawindow destino(dw_2) colocamos el siguiente codigo en el evento dragdrop.

datawindow ldw //Defines una variable donde se instanciará el dw fuente.
long ll_row ,ll_fila
if isvalid(source) then
    if source.typeof() = datawindow! then //Preguntamos si el objeto arrastrado es un dw
    ldw=source //Instanciamos
    ll_row=ldw.getrow()
    ll_fila=this.rowcount()+1
    this.insertrow( ll_fila)

    this.setitem( ll_fila, 1, ldw.getitemstring( ll_row, 1))
    end if
end if


Si deseamos que se muestre un icono mientras se arrastra la fila, podemos ir a la propiedad DragIcon de la pestañana Other del control datawindow origen(dw_1) y seleccionar cualquier icono.

Descargar Ejemplo