---

Hej NG.

I en TDBCombobox bruger jeg jeg følgende kode ved OnChange:

procedure TEjendomSelectForm.dbcAmtChange(Sender: TObject);
Var s1 : TStringList;
S2, Streng : String;
begin
Edit1.Text := dbcAmt.Text;
Edit2.Text := tbAmter.FieldByName('Amt Nr').AsString;
S2 := dbcAmt.Text;
With tbAmter do
If Locate('Amt',S2,[]) Then
Begin
Edit2.Text := tbAmter.FieldByName('Amt Nr').Text;
End
Else
Begin
Edit2.Text := 'Ikke fundet';
End;

s1 := TStringList.Create;
s1.Sorted := True;
tbAmt_Kommuner.First;
while not tbAmt_Kommuner.Eof do begin
s1.Add(tbAmt_Kommuner.FieldByName('Kommune Navn').AsString);
tbAmt_Kommuner.Next;
end;
dbcKommune.Items.Assign(s1);
end;

Dette ser ud til at køre, MEN i det øjeblik fokus fjernes fra TDBCombobox
får jeg en fejlmelding: "tbAmter: Dataset not in edit or insert mode"

Fjerner jeg koden omkring "With tbAmter do" kommmer der ingen fejlmelding.

Som jeg har læst manualen skal der tbAmter ikke være i editmode ved LOcate.
Ingen af tabellerne er REadOnly.
Hvad gør jeg galt?

Mvh Kurt

---

Hej Kurt

Det ser OK ud.
Har du en afterScroll metode på tabellen?

mvh Thomas Riedel

"Kurt Guldbæk" <kurt_g@guldbaek.net> wrote in message
news:40234320$0$95016$edfadb0f@dread11.news.tele.dk...
> Hej NG.
>
> I en TDBCombobox bruger jeg jeg følgende kode ved OnChange:
>
> procedure TEjendomSelectForm.dbcAmtChange(Sender: TObject);
> Var s1 : TStringList;
> S2, Streng : String;
> begin
> Edit1.Text := dbcAmt.Text;
> Edit2.Text := tbAmter.FieldByName('Amt Nr').AsString;
> S2 := dbcAmt.Text;
> With tbAmter do
> If Locate('Amt',S2,[]) Then
> Begin
> Edit2.Text := tbAmter.FieldByName('Amt Nr').Text;
> End
> Else
> Begin
> Edit2.Text := 'Ikke fundet';
> End;
>
> s1 := TStringList.Create;
> s1.Sorted := True;
> tbAmt_Kommuner.First;
> while not tbAmt_Kommuner.Eof do begin
> s1.Add(tbAmt_Kommuner.FieldByName('Kommune Navn').AsString);
> tbAmt_Kommuner.Next;
> end;
> dbcKommune.Items.Assign(s1);
> end;
>
> Dette ser ud til at køre, MEN i det øjeblik fokus fjernes fra TDBCombobox
> får jeg en fejlmelding: "tbAmter: Dataset not in edit or insert mode"
>
> Fjerner jeg koden omkring "With tbAmter do" kommmer der ingen fejlmelding.
>
> Som jeg har læst manualen skal der tbAmter ikke være i editmode ved
LOcate.
> Ingen af tabellerne er REadOnly.
> Hvad gør jeg galt?
>
> Mvh Kurt
>
>

---

Hej Thor!

Nej, der er overhovedet ikke nogen metoder på nogen af tabellerne!
/Kurt

"Thor" <thr@image.danmark> skrev i en meddelelse
news:bvvmqs$1ovo$1@news.cybercity.dk...
> Hej Kurt
>
> Det ser OK ud.
> Har du en afterScroll metode på tabellen?
>
> mvh Thomas Riedel
>
> "Kurt Guldbæk" <kurt_g@guldbaek.net> wrote in message
> news:40234320$0$95016$edfadb0f@dread11.news.tele.dk...
> > Hej NG.
> >
> > I en TDBCombobox bruger jeg jeg følgende kode ved OnChange:
> >
> > procedure TEjendomSelectForm.dbcAmtChange(Sender: TObject);
> > Var s1 : TStringList;
> > S2, Streng : String;
> > begin
> > Edit1.Text := dbcAmt.Text;
> > Edit2.Text := tbAmter.FieldByName('Amt Nr').AsString;
> > S2 := dbcAmt.Text;
> > With tbAmter do
> > If Locate('Amt',S2,[]) Then
> > Begin
> > Edit2.Text := tbAmter.FieldByName('Amt Nr').Text;
> > End
> > Else
> > Begin
> > Edit2.Text := 'Ikke fundet';
> > End;
> >
> > s1 := TStringList.Create;
> > s1.Sorted := True;
> > tbAmt_Kommuner.First;
> > while not tbAmt_Kommuner.Eof do begin
> > s1.Add(tbAmt_Kommuner.FieldByName('Kommune Navn').AsString);
> > tbAmt_Kommuner.Next;
> > end;
> > dbcKommune.Items.Assign(s1);
> > end;
> >
> > Dette ser ud til at køre, MEN i det øjeblik fokus fjernes fra
TDBCombobox
> > får jeg en fejlmelding: "tbAmter: Dataset not in edit or insert mode"
> >
> > Fjerner jeg koden omkring "With tbAmter do" kommmer der ingen
fejlmelding.
> >
> > Som jeg har læst manualen skal der tbAmter ikke være i editmode ved
> LOcate.
> > Ingen af tabellerne er REadOnly.
> > Hvad gør jeg galt?
> >
> > Mvh Kurt
> >
> >
>
>

---

"Kurt Guldbæk" <kurt_g@guldbaek.net> wrote in message
news:40234320$0$95016$edfadb0f@dread11.news.tele.dk...
> Dette ser ud til at køre, MEN i det øjeblik fokus fjernes fra TDBCombobox
> får jeg en fejlmelding: "tbAmter: Dataset not in edit or insert mode"
>
> Fjerner jeg koden omkring "With tbAmter do" kommmer der ingen fejlmelding.
>
> Som jeg har læst manualen skal der tbAmter ikke være i editmode ved
LOcate.
> Ingen af tabellerne er REadOnly.
> Hvad gør jeg galt?
>

Det er din dbcombobox, der prøver at stoppe data i din tabel, men du har
lige fjernet edit-mode med locate....

M.v.h. Peter