MSHFLEXGRID

USUARIO.EXCLUIDOS 23/05/2007 13:58:53
#217917
Galera estou com uim problema no meu mshfgrid, quando faço a pesquisa no meu grido ele exclui o topo dos campos que eu coloquei e coloca os conteudo do meu banco de dados, e preciso solocar mais colunas mas ele só da permição para cinco colunas.
Este monta minha grade
msfgrade.Cols = 5
msfgrade.Rows = 2
msfgrade.FixedCols = 1
msfgrade.FixedRows = 0
msfgrade.TextMatrix(0, 0) = "Código"
msfgrade.TextMatrix(0, 1) = "Nome"
msfgrade.TextMatrix(0, 2) = "CPF"
msfgrade.TextMatrix(0, 3) = "RG"
msfgrade.TextMatrix(0, 4) = "Endereço"
msfgrade.ColWidth(0) = 0
msfgrade.ColWidth(1) = 1000
msfgrade.ColWidth(2) = 6000
msfgrade.ColWidth(3) = 1500
msfgrade.ColWidth(4) = 1000
Este carrega ela
Set rs = New ADODB.Recordset
sql = "Select codigofu,nome,cpf,rg,endereco,numero From TabFunc where codigofu = " & txtloc.Text
rs.Open sql, con, adOpenKeyset, adLockPessimistic
Set msfgrade.DataSource = rs
rs.Close
Set rs = Nothing
Este eu coloquei no form load
lin = 0
msfgrade.Rows = lin + 1
msfgrade.TextMatrix(lin, 0) = txtcod.Text
msfgrade.TextMatrix(lin, 1) = txtnom.Text
msfgrade.TextMatrix(lin, 2) = txtcpf.Text
msfgrade.TextMatrix(lin, 3) = txtrg.Text
msfgrade.TextMatrix(lin, 4) = txtendereco.Text
VBAPRENDE 23/05/2007 14:07:04
#217922
tente tirar essas duas linha
msfgrade.FixedCols = 1
msfgrade.FixedRows = 0
USUARIO.EXCLUIDOS 23/05/2007 14:23:10
#217929
Não ainda esta escondendo os titulos das colunas.
DOMLOAD 23/05/2007 14:41:19
#217934

Tente assim...

  
[c]Sub carrega_grid()
 
  MSFlexGrid.Clear
   
  MSFlexGrid.Cols = 5
  MSFlexGrid.Rows = 1
      
  'Titulo do Grid
    MSFlexGrid.TextMatrix(0, 0) = " "
    MSFlexGrid.TextMatrix(0, 1) = "Codigo "
    MSFlexGrid.TextMatrix(0, 2) = "V"
    MSFlexGrid.TextMatrix(0, 3) = "    Preço"
    MSFlexGrid.TextMatrix(0, 4) = "Descrição"

'larguras    
    MSFlexGrid.ColWidth(0) = 350
    MSFlexGrid.ColWidth(1) = 1350
    MSFlexGrid.ColWidth(2) = 350
    MSFlexGrid.ColWidth(3) = 900
    MSFlexGrid.ColWidth(4) = 3620
    
'alinhamento
    MSFlexGrid.ColAlignment(0) = flexAlignCenterCenter
    MSFlexGrid.ColAlignment(1) = flexAlignCenterCenter
    MSFlexGrid.ColAlignment(2) = flexAlignCenterCenter

' Adiciona suas txts em variáveis como no exemplo abaixo..
 
  dia = text1.text
  inicio = text1.text
 '...

   itens = dia & inicio & fim & realizado & credito & debito & observacao
  
   MSFlexGrid.AddItem itens
  
End Sub


Qualquer coisa estamos ai....
Falows !


[/c]
ROBIU 23/05/2007 15:14:15
#217941 Resposta escolhida
bom peguei seu projeto e estou devolvendo corrigido.
USUARIO.EXCLUIDOS 23/05/2007 15:19:29
#217944
blz valew
Tópico encerrado , respostas não são mais permitidas
Voltar