|
|
|
|
|
 |
|
|
|
Foros MUGPERU
|
 |
|
| Author |
Messages |
|
richard_punto_net
Posts:5
 |
| 17/08/2005 10:50 AM |
|
Buenos días a todos, espero que puedan absolver mis duda que es la siguiente:
Me gustaría saber como puedo cambiar el tipo de gráfico a mostrar en el crystal reports en vb net o asp net, por código.
Agradeceré su ayuda.
Gracias |
|
|
|
|
MrCerebro
Posts:4
|
| 25/06/2007 10:14 AM |
|
Te mando algo de codigo que implemente para cambiar el tipo de grafrico desde visual basic, esta muy claro asi ke no requiere mayor explicacion.
Dim crGraphObj As CRAXDRT.GraphObject
Set crGraphObj = mReport.OpenSubreport.Sections(1).ReportObjects.Item(1) 'Refencio a mi objeto grafico de el reporte
crGraphObj.GraphType = crFaked3DPercentAreaGraph 'Aca escoges el tipo de grafico estan los otros como crMultiplePieGraph, etc.
Espero haberte ayudado. Bytes!
|
|
|
|
|
MrCerebro
Posts:4
|
| 25/06/2007 10:29 AM |
|
tb mando algo de codigo para referenciar a un objeto Grafico, buscandolo en todas las secciones de el reporte
Dim oReport As New CrystalReport1
Private Sub Form_Load()
Dim oGraph As CRAXDRT.GraphObject
Dim oObject As Object
Dim oSection As CRAXDRT.Section
' Variable para determinar si se ha encontrado el objeto grafico
Dim bGraph As Boolean
bGraph = False
'Buscando el objeto grafico por todas las secciones de el reporte.
For Each oSection In oReport.Sections
For Each oObject In oSection.ReportObjects
'Verificando el tipo de control, si es un control grafico termina la busqueda
If oObject.Kind = crGraphObject Then
Set oGraph = oObject
bGraph = True
Exit For
End If
Next oObject
If bGraph Then Exit For
Next oSection
'Dandole el formato de grafico
With oGraph
.GraphType = crFaked3DPercentAreaGraph
'Etc . . .
End with
....aunque la solucion anterior es mucho mas sencilla y rapida, no estoy seguro ke funcione para todas las versiones, y este codigo no me ha fallado nunca. Como siempre espero haberlos ayudado. Bytes!
|
|
|
|
|
|
| You are not authorized to post a reply. |
|
|
|
ActiveForums 3.7
|
|
|
|
|
|
|
|
|
|
|
|
|
|