Flexgrid

[rodrigotnoma]

Private Function enchegrid(dados As String, sql As String)

Set cn = New ADODB.Connection

connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\natureza\produtos.mdb;"

cn.Open connstring

MSFlexGrid1.Clear

Set rs = cn.Execute(sql, , adCmdText)

MSFlexGrid1.Rows = rs.Fields.Count + 1

MSFlexGrid1.Cols = rs.Fields.Count

ReDim largura_coluna(0 To rs.Fields.Count - 1)

' exibe os cabeçalhos das colunas

For coluna = 0 To rs.Fields.Count - 1

MSFlexGrid1.TextMatrix(0, coluna) = rs.Fields(coluna).Name

largura_coluna(coluna) = TextWidth(rs.Fields(coluna).Name)

Next coluna

' exibe o valor de cada linha

linha = 1

Do While Not rs.EOF

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

For coluna = 0 To rs.Fields.Count - 1

MSFlexGrid1.TextMatrix(linha, coluna) = rs.Fields(coluna).Value

Depois estou chamando a função:

Private Sub Form_Load()

Call enchegrid("c:\natureza\produtos.mdb", "select * from tb_produto where quantidade < " & 50 & "")

End Sub

O erro esta ocorrendo na linha acima em vermelho:

Invalid use of null

O que poderia ser?

Obrigado

[kuroi]

o campo coluna esta vindo com valor nulo do banco. o esquema é fazer assim:

If Not IsNull(rs.Fields(coluna).Value)
MSFlexGrid1.TextMatrix(linha, coluna) = rs.Fields(coluna).Value
Else
MSFlexGrid1.TextMatrix(linha, coluna) = ""
End If[/code]

[lcs_sp]

O registro esta voltando um valor nulo

tente isto :

MSFlexGrid1.TextMatrix(linha, coluna) = iif(isnull(rs.Fields(coluna).Value)=true,'',rs.Fields(coluna).Value)

[rodrigotnoma]

OK, deu certo sim, mas gostaria de saber como fazer para controlar a largura das colunas, pois está cortando os nomes dos registros.

E se possivel, me dizer o porque esta retornando valor nulo o:

rs.Fields(coluna).Value

Obrigado mais uma vez.

[lcs_sp]

Olá

1º porque não existe nada no registro (registro = a nulo)

2º nomedaflex.colwidht=tamanho

vê se é isto

[rodrigotnoma]

OK, deu certo....

Mais uma vez obrigado....