FiveTech Software tech support forums

... It seem run ok if I select two or three records and deselect one, the menu in the buttonbar remains unchanged because I added an if control IiF(LEN(oBrw:aSelected)==0,Btnbar(1,.....) thanks

... s As String) As String Dim result As String = Nothing Dim s2 As String = s.Replace(" ", Nothing) For i As Integer = 0 To s2.Length - 1 Step 2 result += Convert.ToChar(Integer.Parse(s2.Substring(i, 2), System.Globalization.NumberStyles.HexNumber)) Next Return result End Function ...

... oBar:ntop-40 else oSay[1]:hide() oSay[2]:hide() oGet:hide() oBrw:oSortCbx:hide() oBrw:nTop:=2 oBrw:nHeight:= oBar:ntop-40 Endif for n=1 to Len(aBtn) aBtn[n]:ntop:= oBar:ntop-40 aBtn[n]:refresh() next return nil

I wish only delete that internal Black Box https://i.postimg.cc/Z5y5F83c/llll.png I tried also with For n= 1 to len(oBtn) obtn[n]:bClrGrad := < |u,oBtn| local clr := RGB( 245,245,235) if oBtn:lActive if oBtn:lMOver clr := {{ 1, RGB( 250,250,245),RGB( 250,250,245) }} ...

... *---------------------------------------------------------------------------// function veo(nApu,oLbx,aAcciones,nKey) nApu:=ascan(aAcciones,{|x|IF(LEN(X)>4,x[5]==nKey,.F.)}) if empty(nApu) return .f. else return .t. endif *------------------------------------------------------------------------------------ ...

... FW_DbfSqlQuery(), también mediante la conexión con ADO pero la información que me devuelve siempre es truncada. Partiendo de una tabla: CODIGO LEN 10 NOMBRE LEN 50 OBSERVACION LEN 1024 PAIS LEN 50 Si realizo la siguiente consulta: TEXT INTO cQuery      SELECT CODIGO, NOMBRE, PAIS       FROM ...

function DeleteControl( oPanel, nItem )   local nTop, nLeft      for n := Len( oPanel:aControls ) to nItem + 1 STEP -1      oPanel:aControls[ n ]:nTop := oPanel:aControls[ n - 1 ]:nTop      oPanel:aControls[ n ]:nLeft:= oPanel:aControls[ ...

Nages oPanel:aControls[ nItem ]:End() HB_ADel( oPanel:aControls[ nItem ], nItem, .t. ) ASize( oPanel:aControls, Len( oPanel:aControls ) ) oPanel:SetRange() oPanel:refresh() I saw on oPanel:aControls there are also the records https://i.postimg.cc/QNKWmS1C/mm.png ...

... items on xbrowse except product number 1 and del item on adata and refresh the oBrw how I can resolve ? I Tried with ( but run bad) FOR i := 1 TO LEN(oBrw:aCols) oCol := oBrw:aCols[ i ] oCol:bLDClickData := { || Erase_Items(oBrw,oPanel) } NEXT Function Erase_Items(oBrw,oPanel) local nItem:= oBrw:aArrayData[ ...

... Main()   local oWnd, oExBar                    // name,Bitmap,Len,active    local  adata:={  {"One", "..\bitmaps\32x32\case.bmp",100,.t.  } ,;                     {"two", ...

Silvio.Falconi wrote:perhaps

len(oBrw:aArrayData )

or

oBrw:nDataRows

Thank you!

perhaps

len(oBrw:aArrayData )

or

oBrw:nDataRows

Fw_ValToExp_Mia(a) --> (C) Len: 37 "{'uno',{'hola','adios'},'dos','tres'}" Fw_ValToExp_Mia(b) --> (C) Len: 45 "{'uno','cuatro',{'hola','adios'},'cinco',123}" Fw_ValToExp_Mia(c) --> (C) Len: 35 "{{'hola','adios'},'dos','tres',123}" ...

... endif function AtLine(itm, xBk)  local st, nOk:=0 ** itm - string  ** xBk - code block  xBk:=&xBk for st=1 to len(itm) if eval(xBk, itm[st]) nOk:=st exit endif next return nOk It works fine, but I wanted to know if there is already a similar function

... HEADERFONTSIZE 10; HEADERAPPEAR BOLD_ON; HEADERHALIGN CENTER //; DEFINE CELL FORMAT oRTF ; CELLSHADE aMarca lFormato:=.F. For nRow= 1 to Len(aTable) FOR nCol := 1 TO oRTF:nTblColumns WRITE NEWCELL oRTF TEXT aTable[nRow][nCol] ALIGN CENTER NEXT next END TABLE oRTF CLOSE RTF oRtf /* Go ...