FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Definir un TQRChart en tiempo de ejecución (2)
Sigo con mis batallas con este componente. En un informe diseñado con QR tengo un TQRChart que uso en dos o tres sitios distintos de la aplicación. Me funciona bien en todos ellos menos en uno. A ver si soy capaz de explicarme.
1. Donde funciona bien A partir de esta tabla, tal cual: Con este código: Código:
fMenu->Auxiliar->Close(); fMenu->Auxiliar->SQL->Text = "SELECT * FROM " + cTabTemp + " WHERE Orden > 0 AND Votos1 > 0"; fMenu->Auxiliar->Open(); fIndBln->QRDBChart1->LeftAxis->Title->Caption = "Votos"; fIndBln->Series1->DataSource = fMenu->Auxiliar; fIndBln->Series1->Title = HeaderControl7->Sections->Items[1]->Text; fIndBln->Series1->Marks->ArrowLength = 0; fIndBln->Series1->Marks->Style = smsValue; fIndBln->Series1->SeriesColor = clRed; fIndBln->Series1->XLabelsSource = "SIGLA"; fIndBln->Series1->BarStyle = bsRectGradient; fIndBln->Series1->YValues->ValueSource = "VOTOS1"; fIndBln->Series2->DataSource = fMenu->Auxiliar; fIndBln->Series2->Title = HeaderControl7->Sections->Items[2]->Text; fIndBln->Series2->Marks->ArrowLength = 0; fIndBln->Series2->Marks->Style = smsValue; fIndBln->Series2->SeriesColor = clGreen; fIndBln->Series2->BarStyle = bsRectGradient; fIndBln->Series2->YValues->ValueSource = "VOTOS2"; 2. Donde no funciona Con esta tabla: Y con este código: Código:
fIndBln->QRDBChart1->RemoveAllSeries(); fIndBln->QRDBChart1->LeftAxis->Title->Caption = "Votos"; fIndBln->QRDBChart1->LeftAxis->Title->Font->Style = TFontStyles() << fsBold; for (nItem = 2; nItem < fMenu->Auxiliar->FieldDefs->Count; nItem ++) { fIndBln->QRDBChart1->AddSeries(&TLineSeries(fIndBln->QRDBChart1)); fIndBln->QRDBChart1->Series[fIndBln->QRDBChart1->SeriesCount() - 1]->DataSource = fMenu->Auxiliar; fIndBln->QRDBChart1->Series[fIndBln->QRDBChart1->SeriesCount() - 1]->SeriesColor = clYellow; fIndBln->QRDBChart1->Series[fIndBln->QRDBChart1->SeriesCount() - 1]->XLabelsSource = "NOMBRE"; fIndBln->QRDBChart1->Series[fIndBln->QRDBChart1->SeriesCount() - 1]->YValues->ValueSource = fMenu->tTemp->FieldDefs->Items[nItem]->Name; } Sólo obtengo esto: He probado a "forzar" con sólo dos de las columnas de datos (PORCC y PORCD) y copiando literalmente el código del principio, cambiando en el mismo donde VOTOS1 y VOTOS2 por esas dos columnas y SIGLA por NOMBRE, pero da lo mismo. Y ya estoy harto de darle vueltas al molino porque llevo una semana con este tema y no soy capaz de resoverlo. He de decir con el resultado del query, si hago la definición en tiempo de diseño sale el gráfico perfecto: Pero si trato de trasladar esa definición al código, ¡falla estrepitosamente! |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Definir un TQRChart | Angel.Matilla | Impresión | 0 | 13-01-2020 13:53:18 |
TMenuItem en tiempo de ejecución | PaFernan99 | OOP | 2 | 06-07-2008 13:30:23 |
icono en tiempo de ejecucion | yoyo131177 | Varios | 1 | 21-03-2007 23:41:11 |
¿Cómo definir un "primary key" en tiempo de ejecución? | SMTZ | .NET | 1 | 21-12-2005 19:43:00 |
Tiempo de ejecucion? | st7 | Varios | 3 | 11-05-2004 22:03:28 |
|