Autor Tema: Datagrid Para Vb .net 2003 (Leído 7766 veces)

Sagma · « **en:** Martes 6 de Julio de 2004, 18:21 »

Hola a todos:
soy nuevo en este foro, ya que estoy buscando ayuda por todos lados.
Tambien soy nuevo en la programacion Visual, yo desarrollo con Informix, ahora estoy pasando todos mis codigo a visual, algo tedioso pero me ayuda a comprender los demas.

Mi problema esta con el datagrid, al llenar los datos, este muestra las columnas que uno le pide, pero, aqui esta mi pregunta, como hago para que las columnas sean de diferentes tamaños??

Ya busque en las propiedades y no me resulta nada, esta pero no se aplica

.

Por eso pido ayuda a este foro, es algo sencillo, pero yo no lo se

Gracias

Sagma

CyberGatito

hola amigo te contesto porque me imagino lo que estas pasando con ese tema .
private ntabla as datatable
sub configurarGrilla
dim stylostabla as datagridtablesstyles = new datagridteablesstyles
with stylostabla
.mappingname=ntabla.tablename
end with
dim EstColCodigo as datagridtexboxcolumn= new datagridtexboxcolumn
dim EstcolNombre as datagridtexboxcolumn= new datagridtexboxcolumn
with EstColCodigo
.mappingname=ntabla.columns(0).columnname
.headtext="Codigo"
.wicyh=50 ''''aqui ve que como es ancho en ingles te sale automaticamente
.readonly=true
end with

with EstcolNombre
.mappingname=ntabla.columns(0).columnname
.headtext="Codigo"
.wicyh=100 ''''aqui ve que como es ancho en ingles te sale automaticamente
.readonly=true
end with

stylostabla.gridcolumname.add(EstColCodigo)
stylostabla.gridcolumname.add(EstcolNombre)
me.datagrid1.tablesstyles.add(stylostabla)
end sub

ahora has lo sgte antes que enlace el datagrid a los resultados:
ntabla = new datatable
ntabla=aqui pon el enlace de datos que sea el resultado datatable
ntabla.tablename="" un nombre cualquiera
me.datagrid1.tablesstyles.clear
call configurargrilla
me.datagrid1.datasource=ntabla
ntabla=nothing

y solucionado tu problema si te queda duda escribeme inggchrpd@hotmail.com
nos vemos espero haberte ayudado.
atte

un gatito

sergiotarrillo

Aqui yo tambien hice mi codigo:

En el Windows.Form, solo hay tres objetos, CmdCn(boton para conectarse a la base de datos), CmdChange(boton para cambiar el tamño de la grilla), y la grilla por supiesto todo es codigo:

En el boton conexion, no queria poner todo pero por siaca, uso SQL, Pubs:
creo mi conexion, lleno mi adapter, lleno mi data set, y lleno mi grilla:

Código: Text

 
 
        Try
            'inicializando los datos
            myCn = New SqlConnection(&#34;Data Source=(local); database=Pubs; User Id=sa; password=sa&#34;)
 
            dSetPubs = New DataSet()
 
            'aca en esta se esta abriendo la conezion y cerrandola, no hay porque abrirla
            dAdpPubs = New SqlDataAdapter(&#34;SELECT * FROM Authors&#34;, myCn)
 
            'llenando el dataSet
            dAdpPubs.Fill(dSetPubs, &#34;Authors&#34;)
 
        Catch err As SqlException
            MsgBox(err.Message.ToString())
        Finally
            myCn.Close()
        End Try
 
 
 
        'llenando por defecto un ancho de 150
        dgPubs.PreferredColumnWidth = 150
 
        'ahora si llenando el datagris
        dgPubs.SetDataBinding(dSetPubs, &#34;Authors&#34;)
 

"ahora en el boton Change llamo a una funcion hace todo el cambio

Código: Text

 
 Private Sub CmdChangeGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdChangeGrid.Click
        'dgPubs.CaptionText = &#34;Tabla de Autores de la Base de Datos&#34;
        'llamando a la funcion efectos de la Grilla
        ChangeGrid()
        CmdChangeGrid.Enabled = False
    End Sub 
 

Código: Text

 
 Private Sub ChangeGrid()
        dgPubs.CaptionText = &#34;Tabla de Autores de la Base de Datos&#34;
        dgPubs.CaptionForeColor = Color.Aquamarine
 
        'crenado un estilo personalizado y una columna personlizada
        Dim myEstiloGrid As DataGridTableStyle = New DataGridTableStyle()        
 
        'aginando la tabla al que asocia el estilo
        myEstiloGrid.MappingName = &#34;Authors&#34;
 
        'agregando caracteristica a una columna
        Dim myEstiloCol As New DataGridTextBoxColumn()
        myEstiloCol.MappingName = &#34;au_fname&#34;
        myEstiloCol.HeaderText = &#34;Nombre&#34;
        myEstiloCol.Width = 90
 
        Dim myEstiloCol2 As New DataGridTextBoxColumn()
        'Para Otro Campo
        myEstiloCol2.MappingName = &#34;au_lname&#34;
        myEstiloCol2.HeaderText = &#34;Apellido&#34;
        myEstiloCol2.Width = 150
 
        'agregando el primer estilo
        myEstiloGrid.GridColumnStyles.Add(myEstiloCol)
        'agrengando el segundo estilo
        myEstiloGrid.GridColumnStyles.Add(myEstiloCol2)
 
        'agrengando el estilo a la grilla
        dgPubs.TableStyles.Add(myEstiloGrid)
 
 
    End Sub
 

puedes usar todas las columnas que quieras en este caso solo use dos.....

Una pregunta mas: se podra cambiar el tamaño de las columnas una vez llenado la Grilla, por ejemplo con ScroolBar, disminuir el tamaño de una colmna........

Sagma

Agradesco a SerGhio y a CyberGatito por haberme colaborado en el desarrollo

FUNCIONAAAaaaa

sergiotarrillo

cuando tengas cualquier duda pasa la voz, que con cada pregunta uno se da cuenta que no sabe mucho, y es motivo para aprender un nuevo tema..

SoloCodigo

Autor Tema: Datagrid Para Vb .net 2003 (Leído 7766 veces)

Sagma

Datagrid Para Vb .net 2003

CyberGatito

Re: Datagrid Para Vb .net 2003

sergiotarrillo

Re: Datagrid Para Vb .net 2003

Sagma

Re: Datagrid Para Vb .net 2003

sergiotarrillo

Re: Datagrid Para Vb .net 2003