FiveTech Software tech support forums

Using InsertTable( nRows, nCols )method of Trichedit
How insert data info on each cells?

For a sample I have an array aschema is 3 rows with 10 columns
How create a table on Rtf with this array ?

... * Nueva clase FW_Matrix (para cálculos matriciales) CLASS FW_Matrix: DATAs de sólo lectura y métodos de acceso: DATA aMatrix READONLY DATA nRows, nCols READONLY ACCESS lSquare INLINE ( ::nRows == ::nCols ) ACCESS Determinant INLINE If( ::nRows == ::nCols, m_determinant( ::aMatrix ), 0 ) ACCESS ...

... * New CLASS FW_Matrix (for matrix calculations) CLASS FW_Matrix: READ ONLY DATAS AND ACCESS METHODS: DATA aMatrix READONLY DATA nRows, nCols READONLY ACCESS lSquare INLINE ( ::nRows == ::nCols ) ACCESS Determinant INLINE If( ::nRows == ::nCols, m_determinant( ::aMatrix ), 0 ) ACCESS ...

CLASS FW_Matrix: READ ONLY DATAS AND ACCESS METHODS: DATA aMatrix READONLY DATA nRows, nCols READONLY ACCESS lSquare INLINE ( ::nRows == ::nCols ) ACCESS Determinant INLINE If( ::nRows == ::nCols, m_determinant( ::aMatrix ), 0 ) ACCESS IsIdentity CONSTRUCTOR METHODS: ...

... tienes tu objeto de Excel, puedes usar estar instrucciones de Excel: nFils := oXls:oSheet:UsedRange:Rows:Count() //<--- No de Filas o registros nCols := oXls:oSheet:UsedRange:Columns:Count() //<--- No de Columas Yo lo utilizo, usando la clase TExcelScrip()    cFile := "C:\doctos\excel\doctoexcel.xls"  ...

... tienes tu objeto de Excel, puedes usar estar instrucciones de Excel: nFils := oXls:oSheet:UsedRange:Rows:Count() //<--- No de Filas o registros nCols := oXls:oSheet:UsedRange:Columns:Count() //<--- No de Columas Yo lo utilizo, usando la clase TExcelScrip()    cFile := "C:\doctos\excel\doctoexcel.xls"  ...

... objeto de conexión Dolphin, sin proporcionar información al servidor de nuevo. Por ejemplo: oCn := maria_Connect( oServer ) - El método SetTree( nCols, [aBmps] ) de XBrowse, ahora funciona con "RowSets - Conjunto de filas" también. - Corrección: Error raro en el método CreateTable() ...

... from dolphin connection object, without providing server information again Eg: oCn := maria_Connect( oServer ) - XBrowse method SetTree( nCols, [aBmps] ) now works with RowSets also. - Fix: Rare bug in method CreateTable() when some collations are used for individual columns. - method ...

Noe:

Muchas gracias, parece que las líneas

nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()

Son las que me sacarán del problema.

Saludos

... SetLastError(<nNewErrorCode>)->nOldErrorCode SetLastKey(<nKey>)->cNullString SetMode(<nRows>,<nCols>)->lSuccess SetMouse([<lOnOff>],[<nRow>],[<nCol>])->lIsMouseVisible SetNewDate(<nYear>,<nMonth>,<nDay>)->lSuccess ...

... SetLastError(<nNewErrorCode>)->nOldErrorCode SetLastKey(<nKey>)->cNullString SetMode(<nRows>,<nCols>)->lSuccess SetMouse([<lOnOff>],[<nRow>],[<nCol>])->lIsMouseVisible SetNewDate(<nYear>,<nMonth>,<nDay>)->lSuccess ...

yes of course !!!

BUT I not Know the value of nRows and nCols
if at init I made
aVal:={ }

then not run because the procedure understood the array is simply and not multiple as

aVal:={ { } ,;
{ },;
{ } }

I insert 3 records for make a sample

aData := ARRAY( nRows, nCols )

... Many thanks to Mr Rao and Fwh support! #include "fivewin.ch" FUNCTION Main() local oExcel, oBook, oSheet, oWnd, oClp local nRow, nCol, nCols, uVal, uVal2 FW_SetUnicode( .t. ) DEFINE WINDOW oWnd oClp := TClipboard():New() USE "AA_CHN" GO TOP nCols := FCount() oExcel := ExcelObj() ...

... { |a| cFieldList += "," + a[ 1 ] } ) cFieldList := Substr( cFieldList, 2 ) endif aHead := HB_ATokens( cFieldList, "," ) nCols := Len( aHead ) bLine := &( "{||{" + cFieldList + "}}" ) DbEval( { || oRange:Rows( nRow ):Value := Eval( bLine ), nRow++ ...