FiveTech Software tech support forums

...    @ 0,0 XBROWSE oBrw OF oWnd ;      DATASOURCE oTb ;      COLUMS "Codigo", "Nombre" ;      LINES CELL // AUTOSORT     // oBrw:SetMySql( oTb, .F. )    // USAR .F. // remove this     oBrw:CreateFromCode()  Hello Mr. Rao, Changes on XBrowse.prg were made. I got this error ...

Mr Rao. I have a xBrowse which I need to update with a different FwhMysql rowset. When I created it I do oDbDat:=oSvr:Rowset(xSelect) oBrow:setMysql(oDbDat,.T.,.T.) Later on I need to change the select (same fields, but different data), then I do. oDbNew:=oSvr:Rowset(NewSelect) oDbDat:=oDbNew ...

... //refrescaba el Query por cualquier motivo un cambio en consulta etc oBrw:Refresh() oBrw:SetFocus() //opcional Actualmente la solucioné asi oBrw:SetMysql( oRcs ) oBrw:Refresh() oBrw:SetFocus() //opcional

... by dateline DESC") DEFINE DIALOG odlg RESOURCE "msg1" TITLE "即时通信系统" FONT ofont14 obrow := TXBrowse():New( odlg ) obrow:SetMySQL(@odb1) obrow:nMarqueeStyle:=4 obrow:bSkip:=obrow:bSkipper oCol := obrow:AddCol() oCol:bStrData := {||odb1:sender} oCol:cHeader := "发送人" ...

... code of the function TraPre ()? Meanwhile, I leave these parts of code I use. I hope you serve as an example. oLbx := TXBrowse():New( oDlg ) oLbx:SetMySql(oCatalogo,.f.) oCol = oLbx:AddCol() oCol:bEditValue = { || oCatalogo:Codicont } oCol:cHeader = "Codigo Contable" oCol:nWidth = 164 ...

obrow := TXBrowse():New( odlg ) obrow:SetMySQL(@odb2) obrow:bKeyDown := {|nKey|sto0120(nkey,odlg,otabs),if(ledit,if(nKey==VK_DELETE .and. LEN(ALLTRIM(odb1:stockid))>0, (if(msgyesno("删除这行吗？","请选择"),(sto0103(odb2:qty,0),odb2:DELETE(),obrow:Refresh()),)),if(nKey==VK_INSERT ...

1. @ r,c XBROWSE .... command itself calls oBrw:SetMySql(oQry). Please remove the specific call to SetMySql in the next line and try. Have you tried this? May I know the result? I have received the xbrowse.prg. I shall refer to that whenever necessary. ...

1. @ r,c XBROWSE .... command itself calls oBrw:SetMySql(oQry). Please remove the specific call to SetMySql in the next line and try.

Have you tried this? May I know the result?

I have received the xbrowse.prg. I shall refer to that whenever necessary.

1. @ r,c XBROWSE .... command itself calls oBrw:SetMySql(oQry). Please remove the specific call to SetMySql in the next line and try. 2. I do not have the version 11.11 with me. In the absence of the actual source code, I may not be able to advise ...

... := oServ:Query( cSql ) Now begin to describe xBrowse : aFld := aDgr[ 2 ] // fields in needfuls sequence ... oBrw := TXBrowse():New( oWnd ) oBrw:SetMySQL( @oQry ) for u := 1 to len( aFld ) oCol := oBrw:AddCol() oCol:bStrData := { ||oQry:aFld[ u ] } ... next Here I stoped . I didn't tried this ...

... @ 10,10 SAY oSay PROMPT cBusca OF oDlg SIZE 200,12 PIXEL COLOR CLR_YELLOW,CLR_GRAY BORDER @ 30,10 XBROWSE oBrw ; SIZE 200,200 PIXEL ; OF oDlg oBrw:SetMySql( oQry, .F. ) oBrw:bKeyDown := { |nKey| IF( nKey == VK_RETURN,(lOk:=.T.,oDlg:End()),; IF( nKey<>13, ( SeekProd(nKey,@oQry,LOWER(cTmp),"nombre",oBrw,@cBusca,,,@lKeyboard),oSay:Refresh() ...

... "cdiario" LEFT 2007 ACTION ( oTbTemp:End(), oTbTemp := oServer:Query("SELECT * FROM comprobd ORDER BY numdoc ;"), oLbx:SetMySql(oTbTemp,.f.), oTbTemp:Gotop(), oTbTemp:Refresh(), oLbx:Refresh(), cDocum := 'CD', oDocu:Refresh() ) Saludos.

... * FROM catalogo WHERE codicont LIKE '"+substr(cVar,1,len(NIV1))+"%' ORDER BY codicont;") ,; oLbx:SetMySql(oCatalogo,.f.),; oCatalogo:Refresh(),; oLbx:Refresh() ) Lo del catalogo lo dejo momentáneamente filtrado por grupos. Puse un button por si ...

...     oCatalogo:Goto(nRecNo)        MsgInfo("Registro no fue encontrado","Informacion" )     endif endif   oLbx:SetMySql(oCatalogo,.f.)   oCatalogo:Refresh()    oLbx:Refresh()    oLbx:SetFocus()return nil  //pero filtra por el registro ...