MS FLEXGRID

CLEVERTON 01/03/2005 21:00:33
#70632 Resposta escolhida

vamos lá.
faça assim

Function carrega_flex()
dim i as long
Set tabClientes = BD.OpenRecordset("select * from Clientes order by codigo")

flex.clear
Flex.Rows = tabclientes.recordcount + 1

for i = 1 to tabclientes.recordcount

Flex.TextMatrix(i, 0) = tabClientes("codigo")
Flex.TextMatrix(i, 1) = tabClientes("telefone")
Flex.TextMatrix(i, 2) = tabClientes("nome")
Flex.TextMatrix(i, 3) = tabClientes("endereco")
Flex.TextMatrix(i, 4) = tabClientes("numero")
Flex.TextMatrix(i, 5) = tabClientes("complemento")
Flex.TextMatrix(i, 6) = tabClientes("bairro")
Flex.TextMatrix(i, 7) = tabClientes("celular")
Flex.TextMatrix(i, 8) = tabClientes("datacad")
tabClientes.MoveNext
next i

End Sub

AGORA NO LOAD DO FORM

FORM_LOAD()
DOEVENTS
carrega_flex
end sub


cmd_salvar_click()
if msgbox ("Salvar registro ?",vbyesno) = vbyes then
'rua rotina para salva
'agora use a funcao para carregar o flex
carrega_flex
end if
end sub

USUARIO.EXCLUIDOS 01/03/2005 21:38:33
#70635

engraçado...Cleverton
quando eu uso o For...Next para carregar a FlexGrid ele só lista o primeiro registro, sendo que na tabela tem vários registros...por isso que eu uso o
Do Until ....
.....
Loop

mesmo assim continua sem funcionar !!!