GRID COM HIERARQUIA MOSTRANDO MESMO REGISTRO

 Tópico anterior Próximo tópico Novo tópico

GRID COM HIERARQUIA MOSTRANDO MESMO REGISTRO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#482011 - 29/05/2018 22:31:20

WMR2018
BALSAS
Cadast. em:Outubro/2017


Pessoal, estou preenchendo um grid, com dados da consulta da consulta

exemplo:
"SELECT CODIGO,  COD_OS, COD_SERVICO, VALOR, QUANTIDADE, TOTAL, OBS  " & _
"FROM OS_Grafica_servicos  " & _
"WHERE (cod_os = " & varCodOs & ") " & _
"ORDER BY codigo;"


tudo ok...

ai mostro no grid assim (codigo parcial)
Dim i As Integer
   With Grid_Servicos
      .Clear
      .Cols = 6
      .Rows = 2
      
      .ColWidth(0) = 0
      .ColWidth(1) = 0
      .ColWidth(2) = 5900
      .ColWidth(3) = 1000
      .ColWidth(4) = 1000
      .ColWidth(5) = 1000
      
      .TextMatrix(0, 1) = "COD"
      .TextMatrix(0, 2) = "SERVIÇOS"
      .TextMatrix(0, 3) = "VALOR"
      .TextMatrix(0, 4) = "QUANT."
      .TextMatrix(0, 5) = "TOTAL"
      
      .Redraw = False
      
      If Not rTabela Is Nothing Then
         Do While Not rTabela.EOF
            .TextMatrix(.Rows - 1, 1) = rTabela("codigo")
            .TextMatrix(.Rows - 1, 2) = rTabela("vardesc")
            .TextMatrix(.Rows - 1, 3) = Format(rTabela("valor"), ocMONEY)
            .TextMatrix(.Rows - 1, 4) = Format(rTabela("quantidade"), "00")
            .TextMatrix(.Rows - 1, 5) = Format(rTabela("total"), ocMONEY)
            
            rTabela.MoveNext
            .Rows = .Rows + 1
            i = i + 1
         Loop
      End If
      
      .Rows = .Rows - 1
      .Redraw = True
   End With


estar exibindo normal, porem quero exibir o campo (OBS) de cada registro, numa linha abaixo e oculta
ou seja, ele vai exibir os campos (codigo, vardesc, valor, quantidade e total) numa linha... vai ter um sinal de mais no cabeçalho da linha, quando clicar no sinal de mais (+), aparecerar a segunda linha contento o campo OBS daquele registro.

Sei que tem como fazer tanto com o MsFlexGrid ou MSHFlexGrid... mais nao sei como fazer em nenhum dos 2 componentes

VB6 + SqlServer2008




#482090 - 04/06/2018 09:59:28

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Aparecerar? Você quer dizer "aparecerá"?

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#482231 - 11/06/2018 21:51:12

WMR2018
BALSAS
Cadast. em:Outubro/2017


Alem da correção gramatical, nada mais? nenhuma ideia?



#482232 - 11/06/2018 22:17:01

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Cada ítem possui um código, faça uma busca por ele no evento de mudança de linha do grid.

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário