Barra de Desplazamiento Verticul en Datagrid

20/10/2005 - 17:38 por jmrivera | Informe spam

Hola Foro, necesito su ayuda

Al aplicarle estilo a un datagrid, éste pierde la función de la barra de desplazamiento vertical (siempre que las filas en el datatable sobrepasan el espacio visible del grid). El estilo aplicado, solo configura las columnas y su ancho

Ver código
Sub Configura_DTMateriales(
Dim dataAdapter As New OleDb.OleDbDataAdapte
Dim miCmd As New System.Data.OleDb.OleDbComman
'dsAsigna = New DataSe
'dtAsigna = New DataTabl
Dim miDataSet As New DataSe

Dim sqlString As Strin

'Declarar y añadir columna ARTICUL
Dim colARTICULO As DataColumn = MIdt.Columns.Add("ARTICULO", GetType(System.Int32)
colARTICULO.AllowDBNull = Fals
colARTICULO.ReadOnly = Tru
colARTICULO.Unique = Tru

'Declarar y añadir columna DESCRIPCIO
Dim colDESCRIPCION As DataColumn = MIdt.Columns.Add("DESCRIPCION", GetType(System.String)
colDESCRIPCION.AllowDBNull = Fals
colDESCRIPCION.ReadOnly = Tru

'Declarar y añadir columna CANTIDA
Dim colCANTIDAD As DataColumn = MIdt.Columns.Add("CANTIDAD", GetType(System.Int32)
colCANTIDAD.AllowDBNull = Fals
colCANTIDAD.ReadOnly = Fals
colCANTIDAD.DataType = System.Type.GetType("System.Int32"
colCANTIDAD.DefaultValue =

''Asignar Llave primaria al Datatable. En este caso la columna ARTICUL
MIdt.PrimaryKey = New DataColumn()
{MIdt.Columns("ARTICULO")

'MIdt.DefaultView.AllowEdit = Fals
MIdt.DefaultView.AllowNew = Fals

Dim tableStyle As New DataGridTableStyl
tableStyle.MappingName = MIdt.TableNam

Dim i As Intege

While i < MIdt.Columns.Coun
'Campos representados en TextBox (ARTICULO, DESCRIPCION, CANTIDAD
Dim TextCol As New DataGridTextBoxColum
TextCol.MappingName = MIdt.Columns(i).ColumnNam
TextCol.HeaderText = MIdt.Columns(i).ColumnNam

Select Case
Case
'Col. ARTICUL
TextCol.ReadOnly = Tru
'TextCol.Width = 1
Case
'Col. DESCRIPCIO
TextCol.ReadOnly = Tru
TextCol.Width = 36
TextCol.ReadOnly = Tru
Case
'Col. CANTIDA
TextCol.ReadOnly = Fals
TextCol.TextBox.Enabled = Tru
TextCol.ReadOnly = Fals
TextCol.NullText =

End Selec
tableStyle.GridColumnStyles.Add(TextCol
i = i +
End Whil

DataGrid1.TableStyles.Clear(
DataGrid1.TableStyles.Add(tableStyle
DataGrid1.DataSource = MId
DataGrid1.Refresh(
End Su

jmrivera

Ver este tema: http://www.softwaremix.net/viewtopic-445650.htm

Enviado desde http://www.softwaremix.net

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Arturo

21/10/2005 - 00:26 | Informe spam

Intenta eliminando la linea de comando
DataGrid1.TableStyles.Clear()

"jmrivera" escribió en el mensaje
news:

Hola Foro, necesito su ayuda.

Al aplicarle estilo a un datagrid, éste pierde la función de la barra

de desplazamiento vertical (siempre que las filas en el datatable sobrepasan
el espacio visible del grid). El estilo aplicado, solo configura las
columnas y su ancho.

Ver código.
Sub Configura_DTMateriales()
Dim dataAdapter As New OleDb.OleDbDataAdapter
Dim miCmd As New System.Data.OleDb.OleDbCommand
'dsAsigna = New DataSet
'dtAsigna = New DataTable
Dim miDataSet As New DataSet

Dim sqlString As String

'Declarar y añadir columna ARTICULO
Dim colARTICULO As DataColumn = MIdt.Columns.Add("ARTICULO",

GetType(System.Int32))

colARTICULO.AllowDBNull = False
colARTICULO.ReadOnly = True
colARTICULO.Unique = True

'Declarar y añadir columna DESCRIPCION
Dim colDESCRIPCION As DataColumn MIdt.Columns.Add("DESCRIPCION", GetType(System.String))
colDESCRIPCION.AllowDBNull = False
colDESCRIPCION.ReadOnly = True

'Declarar y añadir columna CANTIDAD
Dim colCANTIDAD As DataColumn = MIdt.Columns.Add("CANTIDAD",

GetType(System.Int32))

colCANTIDAD.AllowDBNull = False
colCANTIDAD.ReadOnly = False
colCANTIDAD.DataType = System.Type.GetType("System.Int32")
colCANTIDAD.DefaultValue = 0

''Asignar Llave primaria al Datatable. En este caso la columna

ARTICULO

MIdt.PrimaryKey = New DataColumn() _
{MIdt.Columns("ARTICULO")}

'MIdt.DefaultView.AllowEdit = False
MIdt.DefaultView.AllowNew = False

Dim tableStyle As New DataGridTableStyle
tableStyle.MappingName = MIdt.TableName

Dim i As Integer

While i < MIdt.Columns.Count
'Campos representados en TextBox (ARTICULO, DESCRIPCION,

CANTIDAD)

Dim TextCol As New DataGridTextBoxColumn
TextCol.MappingName = MIdt.Columns(i).ColumnName
TextCol.HeaderText = MIdt.Columns(i).ColumnName

Select Case i
Case 0
'Col. ARTICULO
TextCol.ReadOnly = True
'TextCol.Width = 15
Case 1
'Col. DESCRIPCION
TextCol.ReadOnly = True
TextCol.Width = 360
TextCol.ReadOnly = True
Case 2
'Col. CANTIDAD
TextCol.ReadOnly = False
TextCol.TextBox.Enabled = True
TextCol.ReadOnly = False
TextCol.NullText = 0

End Select
tableStyle.GridColumnStyles.Add(TextCol)
i = i + 1
End While

DataGrid1.TableStyles.Clear()
DataGrid1.TableStyles.Add(tableStyle)
DataGrid1.DataSource = MIdt
DataGrid1.Refresh()
End Sub

jmrivera

Ver este tema: http://www.softwaremix.net/viewtopic-445650.html

Enviado desde http://www.softwaremix.net

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida