Pero siempre se muestran todos los campos.
Unicamente me ha funcionado si hago:
dvClientes.Columns=["RazonSocial", "Nombre"]
El tema es que los campos son variables dependiendo del usuario, intenté con los siguiente métodos pero sin resultados:
En los ejemplo mostrados, si se modifican los títulos, pero luego aparecen todas las columnas de la tabla de datos
With dvClientes
If $razSocial_m Then
.Columns[i] = "RazonSocial"
.View.Columns[i].Width = 100
.View.Columns[i].Title = "Razón Social"
.View.Columns[i].Alignment = Align.Center
i += 1
Endif
If $nombre_m Then
.Columns[i] = "Nombre"
.View.Columns[i].Width = 100
.View.Columns[i].Title = "Nombre Comercial"
.View.Columns[i].Alignment = Align.Center
i += 1
Endif
end select
If $razSocial_m Then
.Columns[i] = "RazonSocial"
.View.Columns[i].Width = 100
.View.Columns[i].Title = "Razón Social"
.View.Columns[i].Alignment = Align.Center
i += 1
Endif
If $nombre_m Then
.Columns[i] = "Nombre"
.View.Columns[i].Width = 100
.View.Columns[i].Title = "Nombre Comercial"
.View.Columns[i].Alignment = Align.Center
i += 1
Endif
end select
También he probado con:
With dvClientes
If $razSocial_m Then
.Columns.Add("RazonSocial")
.View.Columns[i].Width = 100
.View.Columns[i].Title = "Razón Social"
.View.Columns[i].Alignment = Align.Center
i += 1
Endif
If $nombre_m Then
.Columns.Add("Nombre" )
.View.Columns[i].Width = 100
.View.Columns[i].Title = "Nombre Comercial"
.View.Columns[i].Alignment = Align.Center
i += 1
Endif
end select
If $razSocial_m Then
.Columns.Add("RazonSocial")
.View.Columns[i].Width = 100
.View.Columns[i].Title = "Razón Social"
.View.Columns[i].Alignment = Align.Center
i += 1
Endif
If $nombre_m Then
.Columns.Add("Nombre" )
.View.Columns[i].Width = 100
.View.Columns[i].Title = "Nombre Comercial"
.View.Columns[i].Alignment = Align.Center
i += 1
Endif
end select
Sin obtener resultados:
También he probado cargando los campos en un array e intentado asignar el array de la siguiente forma: dataview.columns=array, pero al ejecutar devuelve el error que el objeto es nulo.
Desde ya gracias por la ayuda que puedan dar.