DBCombo - Resolvido

[Valdir]

Pessoal...

Comecei a usar a DbCombo e reparei que a primeira informação apresentada é vazia.

Tem como eliminar isso ?

Obrigado.

[kapiaba]

/*

Program : DBC1.PRG

Purpose : Test DBCombo

Notes   :

*/


#include "fivewin.ch"

#include "dbcombo.ch"



function main()


   local oDlg, oDBC1, oDBC2, cVar, oCust, cStateID:="CA", oBtn, cState:="  "

   local cDept:= "200", oStates, aItems, aList

   field NAME


   if file("states.dbf")

      use states

      index on upper(NAME) to temp

      database oStates

   else

      msgInfo("File states.dbf not found.")

   endif


   define dialog oDlg


   @ 10,30 dbcombo oDBC1 var cStateID of oDlg;

      alias oStates:cAlias;

      size 100,200 pixel;

      itemfield "CODE" ;

      listfield "NAME";

      update;


   aList:= {"Accounting","HR","Marketing","Production","Research","Shipping","Sales"}


   aItems:= {"100","200","400","300","600","500","700"}


   @ 30,30 DBCOMBO oDBC2 VAR cDept;

      items aItems;

      size 100,200 pixel;

      list aList;

      of oDlg;

      update



   @ 50, 50 button oBtn prompt "Selected";

      of oDlg pixel ;

      action msgInfo( "cStateId: " +cStateID +CRLF+"DeptNo: "+cDept,"Selected" );

      default


   activate dialog oDlg center;


   ferase("temp.ntx")


return nil


// EOF

[Valdir]

Fala Tranka...

Obrigado por responder.

Já tinha testado esse exemplo e não funfou.

Tens alguma outra sugestão ?

Abraços.

[kapiaba]

Tranka, mostre como estais haciendo, pois deveria funcionar corretamente.

[kapiaba]

Veja ai se consegue usar RSCOMBO

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=28938&p=162822&hilit=dbcombo#p162822

[kapiaba]

Veja se não é esse o problema com sua versão:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=25343&p=138167&hilit=dbcombo#p138167

[kapiaba]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=21750&p=115783&hilit=dbcombo#p115783

[Euclidao]

Olá Valdir.

Para eliminar a 1/o item em branco, é só fazer isso:

- No programa do Kapi depois de DBCOMBO oDbc1...

oDbc1:del(1)

Acho que é isso... T+

Euclides

[Valdir]

Amigos...

Kapiaba e Euclides.

Obrigado pelas respostas.

Euclides... Resolveu o problema. Valeu.

Abraços