×
Linguagem de Programação ADVPL
Perguntas Meu TComboBox só carrega pela metade
9 anos 5 meses atrás #26278
por dgs
Meu TComboBox só carrega pela metade foi criado por dgs
Olá, tenho esse código fonte do TComboBox onde ele pega os dados do Banco de Dados, só que ele
me trás somente os dados pela metade, existe dados com a letra "A" mais ele só me mostra a partir da Letra "M".
Obrigado
//vendedor
Private vItems := {}
Private vCombo := {}
//vendedor
@050,090 MSCOMBOBOX aCombo VAR vItems ITEMS vCombo SIZE 100,10 OF oDlg PIXEL
//Vendedor
vCombo := {}
vItems := space(15)
dbSelectArea("SA3")
dbSetOrder(2)
dbSeek(xFilial("SA3")+A3_NOME,.T.)
DO WHILE !EOF().AND.A3_Filial==xFilial("SA3")
AADD(vCombo , SA3->A3_NREDUZ )
vItems := IIF(EMPTY(vItems) , SA3->A3_NREDUZ , vItems )
ObjectMethod(aCombo,"SetItems(vCombo)")
dbSkip()
ENDDO
me trás somente os dados pela metade, existe dados com a letra "A" mais ele só me mostra a partir da Letra "M".
Obrigado
//vendedor
Private vItems := {}
Private vCombo := {}
//vendedor
@050,090 MSCOMBOBOX aCombo VAR vItems ITEMS vCombo SIZE 100,10 OF oDlg PIXEL
//Vendedor
vCombo := {}
vItems := space(15)
dbSelectArea("SA3")
dbSetOrder(2)
dbSeek(xFilial("SA3")+A3_NOME,.T.)
DO WHILE !EOF().AND.A3_Filial==xFilial("SA3")
AADD(vCombo , SA3->A3_NREDUZ )
vItems := IIF(EMPTY(vItems) , SA3->A3_NREDUZ , vItems )
ObjectMethod(aCombo,"SetItems(vCombo)")
dbSkip()
ENDDO
Tempo para a criação da página:0.117 segundos