DATAGRID QUE ALIMENTA OUTRO DATAGRID

[Leandro_Pirozzi]

minha dúvida é a seguinte:

Tenho no projeto cerca de 4 DATAGRID´S, um alimenta o outro no evento CLICK, até ai tudo bem.

Porém andei vendo o BD e em determinados clientes não existe dados para se alimentar o grid, porém a visible dele é carregada para TRUE, mas quando clico no GRID em BRANCO ele exite erro, pois não existem dados.

Tem alguma maneira de dizer por exemplo:

if datagrid3.columns(0) = empty then

datagrid3.visible = false

else

datagrid3.visible = true

end if

ou sei lá algo diferente.

[kuroi]

pega pelo recordset q tiver associado ao grid. exemplo:

if rs.EOF then
datagrid3.visible = false
else
datagrid3.visible = true
end if[/code]

[Leandro_Pirozzi]

E se não estiver pelo RS?

Tipo assim:

txtcusto.Text = DataGrid3.Columns(2)

txtcusto.Enabled = False

cbostatus.Text = DataGrid3.Columns(12)

cbostatus.Enabled = False

datapro.Value = DataGrid3.Columns(10)

datapro.Enabled = False

dataproxcont.Value = DataGrid3.Columns(52)

dataproxcont.Enabled = False

txtcodprop.Text = DataGrid3.Columns(55)

txtcodprop.Enabled = False

txtmotivo.Text = DataGrid3.Columns(53)

txtmotivo.Enabled = False

porque pelo rs quando tiver um valor Null ele vai exibir erro não vai?

Editado Março 3, 2009 por Leandro_Pirozzi

[Leandro_Pirozzi]

ele para no rs que o campo esta em branco.

Invalid use of Null

[kuroi]

faca assim:

Text1.Text = rs!Campo & ""

sempre concatene com "" q não acontecera esse erro.

[Leandro_Pirozzi]

legal, mais uma que aprendi.

muito obrigado Kuroi.

isso vai ser muito útil pra mim, pois tenho 4 datagrids e todos eu estava alimentando datagrid1.columns(0) e por ai vai.

obrigado!

[Leandro_Pirozzi]

so uma outra duvida quando coloco

if rs.EOF then

datagrid3.visible = false

else

datagrid3.visible = true

end if

isso seria pra não carregar o terceiro grid.

esse codigo vai no evento click do segundo grid correto?

mas ai ele me exibe essa mensagem:

Run-Timer Erro 91

Object variable or With block variable not set

[kuroi]

esse codigo vai no evento click do segundo grid correto?

não sei... não entendi direito o q você quer fazer??

qual a relacao do segundo com o tercero grid??

e em q linha acontece aquele erro??

[Leandro_Pirozzi]

Assim que o usuário clica no grid1 eu deixo a visible do grid2 como true e ele já busca as informações na tabela do grid2.

Aqui a função pra carregar o grid1

Function Exibircontemp()
    Dim SQL As String
        
    Set cncontemp = New ADODB.Connection
    
    With cncontemp
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;"
      .Open
    End With
    
    Set rscontemp = New ADODB.Recordset
    Set rscontemp.ActiveConnection = cncontemp
    rscontemp.CursorLocation = adUseClient
    
    SQL = "Select CODEMP, NOMCONT, CODCONT, EMAILCONT, CARGOCONT, TELCONT, SECRETARIA from CONTATOS_CONTATO " & _
            " WHERE CODEMP = '" & txtcodemp & "'"
    
    rscontemp.Open SQL
    
    Set Me.DataGrid1.DataSource = rscontemp

End Function


'Click do grid1

Private Sub DataGrid1_Click()
    DataGrid2.Visible = True
    Call Exibirativcont
    txtcontato.Text = DataGrid1.Columns(1)
   
End Sub

'Aqui os dados do grid2 que ele carrega

Function Exibirativcont()
    Dim SQL As String
        
    Set cnativcont = New ADODB.Connection
    
    With cnativcont
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;"
      .Open
    End With
    
    Set rsativcont = New ADODB.Recordset
    Set rsativcont.ActiveConnection = cnativcont
    rsativcont.CursorLocation = adUseClient
    
    SQL = "Select CODEMP, CODCONTATO, ASSESSOR, EQUIPE, TAREFA, DATATAREFA, HISTORICO, CARTA, HORA, IMPORT, CODIMP, TEMPOGASTO from CONTATOS_HISTORICO " & _
            " WHERE CODEMP = '" & txtcodemp & "'"
    
    rsativcont.Open SQL
      
    Set Me.DataGrid2.DataSource = rsativcont
      
End Function

ai se eu coloco aquele If EOF no click do grid ele exibe esse erro.

Será que precisa dar uma Set na RS da function no click do grid?

Editado Março 4, 2009 por kuroi
Adicionar tag CODE

[kuroi]

é, você so pode testar o EOF depois de já ter executado o select dentro do rs