Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

samesdavis

Merge em Datagridview

Mensagens Recomendadas

samesdavis

<p>Pessoal,

Tenho esse código que carrega a minha grid:


    Private Sub FillDISTR()
        Dim RsDistr As New DataSet
        GridDistr.Columns.Clear()
        RsDistr = Banco.RetornarDataSet("SELECT * from Qry_Distr WHERE IDFUNC_FERIAS =" & varID_FUNC & ";")

        'preenche a Grid
        With GridDistr
            .DataSource = RsDistr.Tables(0)

            .Columns(0).Name = "ID_DISTR"
            .Columns(0).Visible = False

            .Columns(1).Name = "IDFUNC_DISTR"
            .Columns(1).Visible = False

            .Columns(2).Width = 80
            .Columns(2).HeaderText = "Data"
            .Columns(2).Name = "DT_DISTR"

            .Columns(3).Width = 80
            .Columns(3).HeaderText = "Tipo"
            .Columns(3).Name = "TIPO_DISTR"

            .Columns(4).Width = 60
            .Columns(4).HeaderText = "Crédito"
            .Columns(4).Name = "CRED_ALI_DISTR"

            .Columns(5).Width = 60
            .Columns(5).HeaderText = "Taxa"
            .Columns(5).Name = "TX_ALI_DISTR"

            .Columns(6).Width = 80
            .Columns(6).HeaderText = "Emissão"
            .Columns(6).Name = "EMI_ALI_DISTR"

            .Columns(7).Width = 60
            .Columns(7).HeaderText = "Crédito"
            .Columns(7).Name = "CRED_REF_DISTR"

            .Columns(8).Width = 60
            .Columns(8).HeaderText = "Taxa"
            .Columns(8).Name = "TX_REF_DISTR"

            .Columns(9).Width = 80
            .Columns(9).HeaderText = "Emissão"
            .Columns(9).Name = "EMI_REF_DISTR"

            .Columns(10).Width = 80
            .Columns(10).HeaderText = "Total Crédito"
            .Columns(10).Name = "TOTALCRED_DISTR"

        End With

        RsDistr = Nothing

    End Sub

Só que preciso deixá-la assim:

https://skydrive.live.com/redir?resid=689D4EAE06C8AB96!203&authkey=!APfvcgSxtPqrseU

Nunca fiz nada igual no VS2010, alguém pode me ajudar?

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
samesdavis

Mas então no caso não tem como fazer da mesma forma do link acima?

O link que você me mandou faz merge das células e não dos títulos das colunas como eu quero.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.