las cabeceras de las columnas, se me desconfiguran
Publicado por Richard Pérez (16 intervenciones) el 15/12/2006 01:19:39
Hola a todos.
y en especial al que me pueda ayudar.
tengo un DataGridView con sus cabeceras configuradas. la primera vez cuando se ejecuta no me desconfigura el tamaño de las columnas. pero si hago por ejemplo refrescar sobre este mismo procedimiento, se me desconfiguran el tamaño de las cabeceras de las columnas.
por favor si me pueden ayudar. se los agradezco.
Richard Pérez
[email protected]
Caracas - Venezuela
Saludos.
Friend Sub Llenar_DataGridView(ByVal SqlCadena As String, ByVal Tabla As String, ByVal DataGridViewTemp As DataGridView, ByRef RecordCount As Integer)
If AbrirBD() Then
Try
Dim dbDataAdapter As New Data.SqlClient.SqlDataAdapter(SqlCadena, dbConnection)
Dim dbDataSet As DataSet = New DataSet
dbDataAdapter.Fill(dbDataSet, Tabla)
DataGridViewTemp.DataSource = dbDataSet
DataGridViewTemp.DataMember = Tabla
RecordCount = DataGridViewTemp.Rows.Count
Catch E1 As SqlClient.SqlException
MessageBox.Show("Excepción: " & vbCrLf & E1.Message, " ERROR WARNING ", MessageBoxButtons.OK)
dbConnection.Close()
Exit Sub
End Try
dbConnection.Close()
End If
End Sub
y en especial al que me pueda ayudar.
tengo un DataGridView con sus cabeceras configuradas. la primera vez cuando se ejecuta no me desconfigura el tamaño de las columnas. pero si hago por ejemplo refrescar sobre este mismo procedimiento, se me desconfiguran el tamaño de las cabeceras de las columnas.
por favor si me pueden ayudar. se los agradezco.
Richard Pérez
[email protected]
Caracas - Venezuela
Saludos.
Friend Sub Llenar_DataGridView(ByVal SqlCadena As String, ByVal Tabla As String, ByVal DataGridViewTemp As DataGridView, ByRef RecordCount As Integer)
If AbrirBD() Then
Try
Dim dbDataAdapter As New Data.SqlClient.SqlDataAdapter(SqlCadena, dbConnection)
Dim dbDataSet As DataSet = New DataSet
dbDataAdapter.Fill(dbDataSet, Tabla)
DataGridViewTemp.DataSource = dbDataSet
DataGridViewTemp.DataMember = Tabla
RecordCount = DataGridViewTemp.Rows.Count
Catch E1 As SqlClient.SqlException
MessageBox.Show("Excepción: " & vbCrLf & E1.Message, " ERROR WARNING ", MessageBoxButtons.OK)
dbConnection.Close()
Exit Sub
End Try
dbConnection.Close()
End If
End Sub
Valora esta pregunta
0