Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

456 - Campo boolean en datagrid

Código de ejemplo que muestra una forma de poder modificar en una columna de tipo Boolean de un datagrid, el valor mediante un List desplegable

Formulario

El proyecto lo hice basado en parte del siguiente ejemplo de la web de Microsoft, que muestra como usar la referencia a Microsoft Data formating objects library para poder aplicar un tipo de formato específico a las columnas.

Descargar

Código fuente

Option Explicit ' referencias : '- Microsoft ado '- Microsoft Data Formating objects ' un datagrid ' un List1 ' el campo 2 debe ser boolean '''''''''''''''''''''''''''''''''''''''' ' variables '''''''''''''''''''''''''''''''''' Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim oFormato As StdDataFormat Const VALOR_FALSE As String = "No" Const VALOR_TRUE As String = "Si" Const VALOR_NULO As String = "" Const COLUMNA_BOOLEAN As Integer = 2 Private Sub DataGrid1_KeyUp( _ KeyCode As Integer, _ Shift As Integer) List1.Visible = False End Sub Private Sub Form_Load() ' Abre la conexión cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\db1.mdb" & ";" ' propiedades del recordset With rs .ActiveConnection = cn .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockOptimistic .Open "Select * From tpaises" ' sql End With ' propiedades del datagrid With DataGrid1 Set .DataSource = rs ' source End With ' nuevo objeto StdDataFormat Set oFormato = New StdDataFormat With oFormato ' tipo de dato boolean .Type = fmtBoolean ' valores .TrueValue = VALOR_TRUE .FalseValue = VALOR_FALSE .NullValue = VALOR_NULO End With ' indica la columna 2 para aplciarle el formato anetrior Set DataGrid1.Columns(2).DataFormat = oFormato ' habilitael botón en la columna 2 DataGrid1.Columns(2).Button = True ' propiedades del List With List1 .Visible = False ' ..valores .AddItem "Si" .AddItem "No" End With End Sub Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer) '.. si es la columna 2 If ColIndex = COLUMNA_BOOLEAN Then With List1 ' posiciona el listbox .Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) + _ DataGrid1.RowHeight .Left = DataGrid1.Left + DataGrid1.Columns(ColIndex).Left .Width = DataGrid1.Columns(COLUMNA_BOOLEAN).Width .Height = 650 .Visible = Not .Visible ' lo hace visible o lo oculta ' si está visible le asigna selecciona el elemento actual If .Visible Then .Text = DataGrid1.Text .ZOrder ' lo trae al frente End If End With End If End Sub Private Sub DataGrid1_Click() List1.Visible = False End Sub Private Sub List1_LostFocus() List1.Visible = False End Sub Private Sub DataGrid1_Scroll(Cancel As Integer) List1.Visible = False End Sub Private Sub List1_MouseUp(Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) ' asigna el nuevo valor DataGrid1.Text = List1.Text List1.Visible = False End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb