redefinir un combo en una grilla

Moderador: Leandro Esteves

Regras do fórum
=============

Antes de postar sua dúvida, por favor leia as regras de utilização do fórum.
Chmolina
Mensagens: 62
Registrado em: 14 Mar 2013, 11:09
Localização: Asuncion-Paraguay

redefinir un combo en una grilla

Mensagem por Chmolina » 19 Abr 2015, 14:31

Se tiene una grilla de movimientos de empleados el detalle tienen un campo codigo empleado implementado un combo desplegando codigo,apellido.

En tabla de empresa tenemos un campo logico que indica el comportamiento del combo del formulario de movimientos.
por codigo
por apellido
En form de movimientos se crea una funcion en el evento formload

Grid(0).ClearColumns borra todas las definiciones de las columas de la griulla


With Grid(0)
If Empresas![Combo movimiento] = 0 Then
.AddColumn Nothing, , "Codigo_Empleado", "Código Empleado", "Codigo Empleado", TP_NUMERICO, "", , GCOLUMN_ALIGN.AUTO, False, , "Sueldos", "Empleados", "Codigo Empleado", "Apellido nombre; Codigo Empleado", "Apellido nombre; Codigo Empleado", "Apellido nombre", "", , "2", "Empleados.[Codigo Empleado]", "", "Sueldos", "18", 1, "0", 4950, , , , , False, False, False, False
Else
.AddColumn Nothing, , "Codigo_Empleado", "Código Empleado", "Codigo Empleado", TP_NUMERICO, "", , GCOLUMN_ALIGN.AUTO, False, , "Sueldos", "Empleados", "Codigo Empleado", "Codigo Empleado; Apellido nombre", "Codigo Empleado; Apellido nombre", "Codigo Empleado", "", , "2", "Empleados.[Codigo Empleado]", "", "Sueldos", "18", 1, "0", 4950, , , , , False, False, False, False
End If
addcolun tienen una serie de parametros de la posicion 12 hace referencia al los combos
.AddColumn
1. (ByVal vgCol As Gcolumn
2. Optional ByVal txtCampo As FormataCampos
3. Optional ByVal vgApelido As String
4. Optional ByVal vgTitulo As String
5. Optional ByVal vgCampo As String
6. Optional ByVal vgTipo As GCOLUMN_TYPE
7. Optional ByVal vgMask As String
8. Optional ByVal vgSize As Integer
9. Optional ByVal vgAlignment As GCOLUMN_ALIGN
10. Optional ByVal vgColumnLocked As Boolean = False
11. Optional ByVal vgPoeNoGrid As Boolean = True
12. Optional vgComboDatabase As String
13. Optional vgComboTable As String
14. Optional vgComboFieldCapture As String
15. Optional vgComboFieldsShow As String
16. Optional vgComboFieldsList As String
17. Optional vgComboFieldsOrder As String,
18. Optional vgComboFieldsFilter As String
19. Optional vgComboFieldsRelation As String
20. Optional vgComboExtensor As String
21. Optional vgPesqFieldCapture As String
22. Optional vgPesqSQLExpression As String
23. Optional vgPesqBD As String
24. Optional vgPesqExtensor As String
25. Optional vgPesqModoAbertura As Integer
26. Optional vgActionButtonExtensor As String
27. Optional vgColumnWidth As Long
28. Optional vgColumnTextColor As Long = -1
29. Optional vgColumnBackColor As Long = -1
30. Optional vgTitColumnTextColor As Long = -1
31. Optional vgTitColumnBackColor As Long = -1
32. Optional vgShowMax As Boolean = True
33. Optional vgShowMin As Boolean = True
34. Optional vgShowAvg As Boolean = True
35. Optional vgShowSum As Boolean = True

Responder

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante