<br>//Den DBEdit-Felden die Werte aus der Sin_BMon.db
<br>//zuweisen
<br>if RadioGroup1.ItemIndex = 0 then
<br>begin
<br>if (ComboBox1.Text = 'Januar') then
<br>begin
<br>DBEdit6.DataSource := DataModule2.DataSourceBM;
<br>DBEdit6.DataField := 'Januar';
<br>DBEdit8.DataSource := DataModule2.DataSourceBM;
<br>DBEdit8.DataField := 'Jahr';
<br>DBComboBox1.DataSource := DataModule2.DataSourceBM;
<br>DBComboBox1.DataField := 'JanBez';
<br>end
<br>else if ComboBox1.Text = 'Februar' then
<br>begin
<br>usw. bis Dezember dann folgt:
<br>//Den DBEdit-Felden die Werte aus der Sin_BQua.db
<br>//zuweisen
<br>else if RadioGroup1.ItemIndex = 1 then
<br>begin
<br>if (ComboBox1.Text = 'Erstes Quartal') then
<br>begin
<br>DBEdit6.DataSource := DataModule2.DataSourceQA;
<br>DBEdit6.DataField := 'Quartal_1';
<br>DBEdit8.DataSource := DataModule2.DataSourceQA;
<br>DBEdit8.DataField := 'Jahr';
<br>DBComboBox1.DataSource := DataModule2.DataSourceQA;
<br>DBComboBox1.DataField := 'Q_1Bez';
<br>end
Mit dem obigen Code weise ich den DBEdit Feldern die entsprechenden Werte zu. Das funktioniert auch beim ersten mal. Klicke ich nun aber auf den Eintrag vierteljährlich in der RadioGroup und wähle den Wert Quartal1 so bekomme ich die Meldung: Das Feld Quartal1 wurde nicht gefunden. Schließe ich das Formular und öffne es wieder funktioniert die Sache wieder. Kann ich den DBEdit-Feldern eigentlich so wie es oben beschrieben habe die Eigenschaft DataSource usw. zuweisen oder geht das gar nicht. Vielen Dank für Hinweise. Gruß ph.
<br>//zuweisen
<br>if RadioGroup1.ItemIndex = 0 then
<br>begin
<br>if (ComboBox1.Text = 'Januar') then
<br>begin
<br>DBEdit6.DataSource := DataModule2.DataSourceBM;
<br>DBEdit6.DataField := 'Januar';
<br>DBEdit8.DataSource := DataModule2.DataSourceBM;
<br>DBEdit8.DataField := 'Jahr';
<br>DBComboBox1.DataSource := DataModule2.DataSourceBM;
<br>DBComboBox1.DataField := 'JanBez';
<br>end
<br>else if ComboBox1.Text = 'Februar' then
<br>begin
<br>usw. bis Dezember dann folgt:
<br>//Den DBEdit-Felden die Werte aus der Sin_BQua.db
<br>//zuweisen
<br>else if RadioGroup1.ItemIndex = 1 then
<br>begin
<br>if (ComboBox1.Text = 'Erstes Quartal') then
<br>begin
<br>DBEdit6.DataSource := DataModule2.DataSourceQA;
<br>DBEdit6.DataField := 'Quartal_1';
<br>DBEdit8.DataSource := DataModule2.DataSourceQA;
<br>DBEdit8.DataField := 'Jahr';
<br>DBComboBox1.DataSource := DataModule2.DataSourceQA;
<br>DBComboBox1.DataField := 'Q_1Bez';
<br>end
Mit dem obigen Code weise ich den DBEdit Feldern die entsprechenden Werte zu. Das funktioniert auch beim ersten mal. Klicke ich nun aber auf den Eintrag vierteljährlich in der RadioGroup und wähle den Wert Quartal1 so bekomme ich die Meldung: Das Feld Quartal1 wurde nicht gefunden. Schließe ich das Formular und öffne es wieder funktioniert die Sache wieder. Kann ich den DBEdit-Feldern eigentlich so wie es oben beschrieben habe die Eigenschaft DataSource usw. zuweisen oder geht das gar nicht. Vielen Dank für Hinweise. Gruß ph.
Comment