FiveTech Software tech support forums

... Maurizio, I got another problem for ::nFreeze. If you scroll to right until the column hide under freeze, the :cExpr will show incorrected. I use cField := oBrw:aCols[oBrw:nColSel]:cExpr Maurizio Dear Master, It works correctly. Thx. Try cField := oBrw:SelectedCol():cExpr

dutch wrote:Dear Mst.Rao and Maurizio,
I got another problem for ::nFreeze. If you scroll to right until the column hide under freeze, the :cExpr will show incorrected.

Maurizio wrote:I use

cField := oBrw:aCols[oBrw:nColSel]:cExpr

Maurizio

Try

Code: Select all  Expand view

cField := oBrw:SelectedCol():cExpr

Dear Mst.Rao and Maurizio,
I got another problem for ::nFreeze. If you scroll to right until the column hide under freeze, the :cExpr will show incorrected.

Maurizio wrote:I use

cField := oBrw:aCols[oBrw:nColSel]:cExpr

Maurizio

... RETURN NIL FUNCTION TESTA_PROCESSO_01(cCompetencia) LOCAL aRet := {} LOCAL dData LOCAL nSele := Select() LOCAL cAvulso LOCAL cField, nLen LOCAL oMes,oEmp,oAvu LOCAL oPan, aCargo, cAno,lAllOk, nPos, aTemp, a // LOCAL cComp LOCAL nConti:=0 LOCAL nContador :=0 LOCAL nContador2:=0 ...

How to write a right name of a field Since you are already using a database object, instead of this: oDbf:FieldGet( cField ) oDbf:FieldPut( cField, <newvalue> ) You can just do: oDBF:ID oDBF:Name Where ID and NAME are fieldnames. Then you can do: msgInfo( oDBF:ID ) To put ...

How to write a right name of a field Since you are already using a database object, instead of this: oDbf:FieldGet( cField ) oDbf:FieldPut( cField, <newvalue> ) You can just do: oDBF:ID oDBF:Name Where ID and NAME are fieldnames. Then you can do: msgInfo( oDBF:ID ) To put ...

I must only read it What do you mean? Did I not tell you oDbf:FieldGet( cField )? Is it not reading? Next, oDbf:&cField also works.   local cField   := "NAME"   oDbf  := TDataBase():Open( nil, "STATES.DBF", ...

Perhaps I found a solution

nNumero := eval(oDbf:fieldWBlock(cField ))

For a sample the field is oDbf:CA1 If I have cField:="Ca1" // but I not Know the name of the field I made a function to create name of field with cRuota:= NomeRuota(nRuota) cField:= Left(cRuota,2)+ltrim(str(nPosizione)) How I can make ...

I use

cField := oBrw:aCols[oBrw:nColSel]:cExpr

Maurizio

... hFile := FOpen( cFile ) nFileLines := FLineCount( cfile ) i := 1 DO WHILE i <= nFileLines HB_FReadLine( hFile, @Linea ) Linea := LTrim( Linea ) cField := hb_AtX( "<[^>]*>", Linea, .F. ) cField := SubStr( cField, 2, Len( cField ) -2 ) IF cField == 'Attachment How take the text ...

Linea:="<REPORTNUM>001</REPORTNUM>"

cField := hb_AtX( "<[^>]*>", Linea, .F. )

give me cField empty , why ?

I'm using Harbour, perhaps it is a xharbour function ?

Correct function Builddbf(aHeader,Alengte,cDbf,cdeli) local aStru := {} local aFields := HB_ATokens(aHeader[1], cdeli ) for i = 1 to len(aFields) cField = (aFields[i]) aAdd( aStru, { cField , "C", 255 , 0 } ) // I insert 255 is the max lenght next dbCreate( cDbf , aStru ) return nil ...

... n=0 for i = 1 to len(aData) cField := aData[i] cField is all line and it is bad because cField must be the string until the ";" symbol then this function e not create ...

... local nWidth := 0 local n, cField, hDef IF lMultiSelect .OR. lSingleSelect cHtml += '<th data-field="st" data-checkbox="true"></th>' ENDIF FOR ...