Cortar y Pegar de Excel a xBrowse (Solucionado)
Posted: Fri Aug 30, 2013 5:04 pm
Que tal , saludos a Todos
Pues eso, estoy viendo como pegar en xbrowse
Me que de en la versión Sep/2010
y se supone que si lo debe de hacer pero no me funciona
Alguien podría tirarme un hilo de como hacerlo
Este es mi prg del browse
y al momento de pegar (Ctrl-v)
Me marca error :
Array acces en la línea 6154 de TXBROWSE
Saludos
Solo fue modificar un poco la clase Xbrowse
Pues eso, estoy viendo como pegar en xbrowse
Me que de en la versión Sep/2010
y se supone que si lo debe de hacer pero no me funciona
Alguien podría tirarme un hilo de como hacerlo
Code: Select all
oBrow := TxBrowse():New(oDlg1)
PoneFormasBrowse(oBrow)
oBrow:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrow:lFastEdit := .T.
oBrow:lCanPaste := .T.
oBrow:lAutoAppend := .T.
oBrow:cAlias := cFile
oBrow:SetRDD(,,aFieldA)
oBrow:aCols[01]:nWidth := 85
oBrow:aCols[02]:nWidth := 385
oBrow:aCols[03]:nWidth := 85
oBrow:aCols[04]:nWidth := 85
oBrow:aCols[05]:nWidth := 85
oBrow:aCols[01]:nEditType := EDIT_GET
oBrow:aCols[02]:nEditType := EDIT_GET
oBrow:aCols[03]:nEditType := EDIT_GET
oBrow:aCols[04]:nEditType := EDIT_GET
oBrow:aCols[05]:nEditType := EDIT_GET
oBrow:lFooter := .T. // Sí queremos línea de footer
oBrow:nFooterHeight := 30 // Altura del footer
oBrow:nFooterLines := 2 // Número de líneas en el footer
oBrow:CreateFromResource( 101 )
y al momento de pegar (Ctrl-v)
Me marca error :
Array acces en la línea 6154 de TXBROWSE
Saludos
Solo fue modificar un poco la clase Xbrowse