Results 1 to 6 of 6

Thread: Toon waarde in DBLookupCombo

  1. #1

    Toon waarde in DBLookupCombo

    Hallo,

    Ik heb een toepassing waar in een form de postcode moet worden ingevuld.
    De OnChange procedure zoekt de gemeente(n) die overeenkomen met de postcode.
    De DBLookupCombobox wordt opgevuld met de correcte waarde(n).
    Maar hoe toon ik de eerste waarde in mijn DBLookupCombobox?
    Nu moet ik eerst de DBLookupCombobox openen en dan een waarde selecteren.

    Alvast bedankt

    Lainkes

  2. #2
    Senior Member
    Join Date
    Aug 2004
    Location
    Rotterdam
    Posts
    151
    Zoiets?

    Delphi Code:
    1. With ComboBox1 do
    2.   begin
    3.     Items.Clear;
    4.     for i := 3 to 9 do
    5.       Items.Add(Format('Index %d, Text %d', [Items.Count, i]));
    6.     ItemIndex := 0; // tot maximaal Items.Count - 1;
    7.   end;

  3. #3
    Een DBLookupCombobox heeft een lookup dataset, en een DataSet+Fieldname.
    Door de waarde te zetten in het veld dat bij FieldName is ingevuld, zal de DBLookupCombobox de bijbehorende lookup-waarde weergegeven.

    Dat is eigenlijk een algemene regel voor DB aware controls: Vanuit code kan je beter met de dataset werken. Daar kan je de waarden lezen, zetten, en er controles op uitvoeren. De visuele controls zijn voor gebruikers, niet voor je code.
    1+1=b

  4. #4
    Code:
    procedure Tfrm_Complainant.DBE_ZipChange(Sender: TObject);
    begin
      // fills the ZIP Codes combobox
      with frm_DataModule.FDQ_ZIP do
        try
          sql.Clear;
          sql.Text := 'Select * from boor_zipcode ' +
                      'where ZIP_CODE like :zipcode';
          ParamByName('zipcode').AsString := '%' + DBE_Zip.Text + '%';
          open;
    
        except
          on E : Exception do
            DoShowException(E);
        end;
    end;
    Dit is de code die mijn DBLookupComboBox vult telkens wanneer de waarde van de postcode gewijzigd wordt.
    Hoe kan ik nu het eerste record zichtbaar maken?

    Alvast bedankt

    Lainkes

  5. #5
    Senior Member
    Join Date
    Aug 2004
    Location
    Rotterdam
    Posts
    151
    Fout gelezen, had de "DBLookup" niet gezien.

    with TDBLookupComboBox do
    begin
    ListSource.DataSet.First;
    DataSource.DataSet.FieldByName(DataField).Value := ListSource.DataSet.FieldByName(KeyField).Value;
    end;


    Hoop dat dit je verder helpt.

  6. #6
    @Knollie, bedankt voor de info.
    Dit werkt perfect.
    Dit had ik nooit alleen gevonden.

    Lainkes

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •