Visual Basic.NET - Ayuda con true dbGrid

 
Vista:

Ayuda con true dbGrid

Publicado por Joaqui (1 intervención) el 20/04/2007 09:57:43
Hola, como estan?

Estoy trabajando con el trueDBGrid de componentOne, y tengo muchas dudas,y me gustaria que, si alguien sabe de algun manual o tutorial (que no sea por asistente, sino codigo), por favor fuera tab amable de mandarmelo o decirmelo.

Mis problemas estan a la hora de crear nuevas columnas, que no se porque no me las crea, os pongo lo que hago:

Imports C1.Win.C1TrueDBGrid
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim dsUsuario As New DataSet
'Cargo el dataSet con los datos
dsUsuario = datosUsuarios()

Me.tdbPrueba.DataSource = dsUsuario
Me.tdbPrueba.DataMember = "usuarios"
Me.tdbPrueba.Caption = "PRUEBAS"

'Creo una nueva columna y la añado al tdbGrid
Dim miColumna As New C1DataColumn
miColumna.Caption = "Prueba"
miColumna.ValueItems.Presentation = PresentationEnum.CheckBox
Me.tdbPrueba.Columns.Add(miColumna)

Me.tdbPrueba.Rebind(True)
Me.tdbPrueba.Refresh()

End Sub

Public Function datosUsuarios() As DataSet
Dim dsUsuarios As New DataSet
Dim sql As String
sql = "Select Codigo, nombre from P_Usuarios"
Try
If conexion.State = ConnectionState.Closed Then
AbreConexion()
End If
Dim adaptador As New SqlClient.SqlDataAdapter(sql, conexion)
adaptador.Fill(dsUsuarios, "usuarios")
Catch ex As Exception
conexion.Close()
conexion.Dispose()
End Try
Return dsUsuarios
End Function
End Class

Si alguien puede hecharme una mano se lo agradeceria mucho
Un saludo!!!
Joaqui.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder