ERRO FLEXGRID

USUARIO.EXCLUIDOS 20/12/2003 12:40:30
#1815
Pessoal,
é o seguinte:

Tenho um Form que possui 4 objetos. São eles: Uma Text Box, 2 Botões e uma FlexGrid.

O que acontece: Quando eu digito o código do cliente na text box e aperto o 1º botão, ele faz uma procura no banco de dados de todos os clientes que possuírem aquele código e larga no flexgrid. Quando eu não sei o código do cliente, eu aperto o 2º botão, que abre um outro Form que também possui uma flexgrid, mas que nessa contém todos os clientes do banco de dados. Dapi eu só seleciono o cliente que eu quiser e exporto para o grid do Form anterior.

O problema está acontecendo quando eu carrego o 2º Form. No evento "Load" dele, eu fiz uma chamada para uma sub-rotina que carrega os itens na flexgrid. Quando eu estou adicionando os registros à  flexgrid, dá o seguinte erro:

"SUBSCRIPT OUT OF RANGE"

A seguir a sub-rotina que carrega os itens na flex grid:

'Sub-Rotina para carregar os registros na flexgrid
Private Sub Carrega()

'abre banco de dados
Set db = OpenDatabase(App.Path & "\database.mdb")

'abre tabela "Clientes"
Set clientes = db.OpenRecordset("SELECT * FROM Clientes", dbOpenDynaset)

If Not clientes.EOF Then

    clientes.MoveLast
    flexClientes.Rows = clientes.RecordCount + 2
    clientes.MoveFirst
    flexClientes.Row = 0
    
    While Not clientes.EOF
        flexClientes.Row = flexClientes.Row + 1
        flexClientes.TextMatrix(flexClientes.Row, 1) = clientes("Codigo")
        flexClientes.TextMatrix(flexClientes.Row, 2) = clientes("Nome")
        flexClientes.TextMatrix(flexClientes.Row, 3) = clientes("DataNasc")
        flexClientes.TextMatrix(flexClientes.Row, 4) = clientes("Identidade")
        flexClientes.TextMatrix(flexClientes.Row, 5) = clientes("Endereco")
        flexClientes.TextMatrix(flexClientes.Row, 6) = clientes("Telefone")
        flexClientes.TextMatrix(flexClientes.Row, 7) = clientes("Indicacao")
        flexClientes.TextMatrix(flexClientes.Row, 8) = clientes("Profissao")
        
        clientes.MoveNext
    Wend
    
'Coloca os títulos nas colunas
flexClientes.TextMatrix(0, 1) = "Código"
flexClientes.TextMatrix(0, 2) = "Nome"
flexClientes.TextMatrix(0, 3) = "Nascimento"
flexClientes.TextMatrix(0, 4) = "Identidade"
flexClientes.TextMatrix(0, 5) = "Endereço"
flexClientes.TextMatrix(0, 6) = "Telefone"
flexClientes.TextMatrix(0, 7) = "Indicação"
flexClientes.TextMatrix(0, 8) = "Profissão"


'Arruma o tamanho das colunas
flexClientes.ColWidth(0) = 1000
flexClientes.ColWidth(1) = 2500
flexClientes.ColWidth(2) = 1300
flexClientes.ColWidth(3) = 1300
flexClientes.ColWidth(4) = 2500
flexClientes.ColWidth(5) = 1300
flexClientes.ColWidth(6) = 2500
flexClientes.ColWidth(7) = 2000

End If

End Sub


Alguém pode me ajudar?
DANIELCPAETE 20/12/2003 19:11:11
#1842 Resposta escolhida
Vc trocou a coluna 0 Por 1 quando adiciona
DANIELCPAETE 20/12/2003 20:07:53
#1856
flexClientes.TextMatrix(0, 0) = "Código"
flexClientes.TextMatrix(0, 1) = "Nome"
flexClientes.TextMatrix(0, 2) = "Nascimento"
flexClientes.TextMatrix(0, 3) = "Identidade"
flexClientes.TextMatrix(0, 4) = "Endereço"
flexClientes.TextMatrix(0, 5) = "Telefone"
flexClientes.TextMatrix(0, 6) = "Indicação"
flexClientes.TextMatrix(0, 7) = "Profissão"
DANIELCPAETE 20/12/2003 20:17:34
#1859
COLDBURN é que esse erro ocorre quando vc tenta adicionar um texto em uma linha ou coluna que não existe
DANIELCPAETE 20/12/2003 20:27:14
#1864
flexClientes.ColWidth(0) = 1000
flexClientes.ColWidth(1) = 2500
flexClientes.ColWidth(2) = 1300
flexClientes.ColWidth(3) = 1300
flexClientes.ColWidth(4) = 2500
flexClientes.ColWidth(5) = 1300
flexClientes.ColWidth(6) = 2500
flexClientes.ColWidth(7) = 2000

Aqui parece que vc so tem 7 colunas mas tenta adicionar em oito

contando com a cinza vc tem 7 ou 8 colunas ?
DANIELCPAETE 20/12/2003 20:28:41
#1865
8 ou 9 ?? [S25]
DANIELCPAETE 20/12/2003 20:34:05
#1867
manda o seu banco pro meu email que eu tento

danielcpaete@ig.com.br
Tópico encerrado , respostas não são mais permitidas
Voltar