Ich habe ein Problem beim Wechsel der Datenbankverbindung.
Wir verwenden Crystal 8 in Verbindung mit Delphi3.
Wir verwenden mehrere Reports, manche mit Subreports. Beim Wechsel der Datenquelle zur Laufzeit, werden die Subreports nicht aktualisiert.
Besten Dank für evt. Hilfe!
Reinhard Mackensen
Mein letzter Versuch:
//
// Datasource der Subreports setzen... (wie in Crystal Art. c2002360)
//
Crpe1.Subreports.Retrieve;
for i := 0 to Crpe1.Subreports.Count -1 do
begin
Crpe1.Subreports[i].Connect.Retrieve;
Crpe1.Subreports[i].Connect.ServerName := m_sServerName;
Crpe1.Subreports[i].Connect.DatabaseName := m_sDatabase;
Crpe1.Subreports[i].Connect.UserID := m_sUserID;
Crpe1.Subreports[i].Connect.Password := m_sPasswd;
Crpe1.Subreports[i].Connect.Send;
Crpe1.Subreports[i].LogOnInfo.Retrieve;
Crpe1.Subreports[i].LogOnInfo.ServerName := m_sServerName;
Crpe1.Subreports[i].LogOnInfo.DatabaseName := m_sDatabase;
Crpe1.Subreports[i].LogOnInfo.UserID := m_sUserID;
Crpe1.Subreports[i].LogOnInfo.Password := m_sPasswd;
Crpe1.Subreports[i].LogOnInfo.Send;
end; // for i := 0 to Crpe1.Subreports.Count -1 do
Wir verwenden Crystal 8 in Verbindung mit Delphi3.
Wir verwenden mehrere Reports, manche mit Subreports. Beim Wechsel der Datenquelle zur Laufzeit, werden die Subreports nicht aktualisiert.
Besten Dank für evt. Hilfe!
Reinhard Mackensen
Mein letzter Versuch:
//
// Datasource der Subreports setzen... (wie in Crystal Art. c2002360)
//
Crpe1.Subreports.Retrieve;
for i := 0 to Crpe1.Subreports.Count -1 do
begin
Crpe1.Subreports[i].Connect.Retrieve;
Crpe1.Subreports[i].Connect.ServerName := m_sServerName;
Crpe1.Subreports[i].Connect.DatabaseName := m_sDatabase;
Crpe1.Subreports[i].Connect.UserID := m_sUserID;
Crpe1.Subreports[i].Connect.Password := m_sPasswd;
Crpe1.Subreports[i].Connect.Send;
Crpe1.Subreports[i].LogOnInfo.Retrieve;
Crpe1.Subreports[i].LogOnInfo.ServerName := m_sServerName;
Crpe1.Subreports[i].LogOnInfo.DatabaseName := m_sDatabase;
Crpe1.Subreports[i].LogOnInfo.UserID := m_sUserID;
Crpe1.Subreports[i].LogOnInfo.Password := m_sPasswd;
Crpe1.Subreports[i].LogOnInfo.Send;
end; // for i := 0 to Crpe1.Subreports.Count -1 do