none
Aumentar a Coluna do DataGrid RRS feed

  • Pergunta

  •  Estou fazendo um Projeto Pocket PC 2003 e Criei um Select para me trazer os Registros na Tela. Agora preciso Alterar o Tamanho da Columa do DataGrid que está muito pequena. O meu Código para mostrar os Registros é esse

    Dim

     

    Conexao As New SqlCeConnection("Data Source =" & (System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) & "\BancoMobile.sdf;"))

     

    Dim Adapter As New SqlCeDataAdapter("SELECT * FROM produto", Conexao)
    Try
    Conexao.Open()
    Dim ds As New DataSet()
    Adapter.Fill(ds,
    "produto")
    dgvMostrar.DataSource = ds.Tables(0)
    Conexao.Close()
    If dgvMostrar.CurrentRowIndex > -1 Then
    txtDados.Text = dgvMostrar.Item(dgvMostrar.CurrentRowIndex, 0) 'CurrentRows... Mostra qual o Index da Linha do DataGrid e o 0 Index da Coluna "0 porque a 1 Coluna"
    End If
    Catch ex As Exception
    Throw
    End Try

    quinta-feira, 19 de novembro de 2009 14:09

Respostas

  • Consegui Resolver o problema

    Dim

     

    Style As New DataGridTableStyle

    Style.MappingName =

    "produto" 'Colocar nome da Tabela

     

    Dim tcol1 As New DataGridTextBoxColumn

     

    With tcol1

    .HeaderText =

    "ID"

    .MappingName =

    "ID_Produto" 'Colocar nome do Campo da Tabela, cuidade que ele CaseSensitive

    .Width = 50

     

    End With

     

    Dim tcol2 As New DataGridTextBoxColumn

     

    With tcol2

    .HeaderText =

    "Nome"

    .MappingName =

    "Nome" 'Colocar o mesmo nome do campo da tabela, cuidado CaseSensitive

    .Width = 200

     

    End With

    Style.GridColumnStyles.Add(tcol1)

    Style.GridColumnStyles.Add(tcol2)

    dgv.TableStyles.Add(Style)

    dgv.DataSource = ds.Tables(0).DefaultView

    • Marcado como Resposta _Rodolfo segunda-feira, 23 de novembro de 2009 17:52
    quinta-feira, 19 de novembro de 2009 18:40

Todas as Respostas

  • Se fosse pelo Windows Forms eu faria assim

     dataGridView1.Columns.Add("Nome","nome"); 
     Incluir uma nova Coluna


    dataGridView1.Columns[0].Width = 300;
    Mudaria o Tamanho da Coluna.

    O problema é que no Projeto para PocketPC eu não consigo fazer isso, se alguem tiver alguma idéia.
    quinta-feira, 19 de novembro de 2009 16:54
  • Se fosse pelo Windows Forms eu faria assim

     dataGridView1.Columns.Add("Nome","nome"); 
     Incluir uma nova Coluna


    dataGridView1.Columns[0].Width = 300;
    Mudaria o Tamanho da Coluna.

    O problema é que no Projeto para PocketPC eu não consigo fazer isso, se alguem tiver alguma idéia.
    quinta-feira, 19 de novembro de 2009 16:57
  • Rodolfo,

    Dê uma olhada neste artigo abaixo, poderá te ajudar.

    http://www.aspneti.com.br/DataGrid+Mobile+469,0.aspx
    Espero ter ajudado. Se ajudei, favor marcar no fórum falando que foi útil.

    Mauricio Junior - Comunidade www.aspneti.com
    • Sugerido como Resposta Mauricio-Junior quinta-feira, 19 de novembro de 2009 18:09
    quinta-feira, 19 de novembro de 2009 18:09
  • Consegui Resolver o problema

    Dim

     

    Style As New DataGridTableStyle

    Style.MappingName =

    "produto" 'Colocar nome da Tabela

     

    Dim tcol1 As New DataGridTextBoxColumn

     

    With tcol1

    .HeaderText =

    "ID"

    .MappingName =

    "ID_Produto" 'Colocar nome do Campo da Tabela, cuidade que ele CaseSensitive

    .Width = 50

     

    End With

     

    Dim tcol2 As New DataGridTextBoxColumn

     

    With tcol2

    .HeaderText =

    "Nome"

    .MappingName =

    "Nome" 'Colocar o mesmo nome do campo da tabela, cuidado CaseSensitive

    .Width = 200

     

    End With

    Style.GridColumnStyles.Add(tcol1)

    Style.GridColumnStyles.Add(tcol2)

    dgv.TableStyles.Add(Style)

    dgv.DataSource = ds.Tables(0).DefaultView

    • Marcado como Resposta _Rodolfo segunda-feira, 23 de novembro de 2009 17:52
    quinta-feira, 19 de novembro de 2009 18:40