Filter in einer dBase Tabelle - Fortsetzung -

[EDatabaseError]

das Problem ist nicht in der Unit sondern am Objekt
in der Unit steht nur:

...
Tabelle.Open;
Query1.Open;
...

[kiar]

sorry,

aber ich klinke mich aus.


raik

[marabu]

Sorry, aber ich hatte vergessen, dass du D3 hast. Hier der Quelltext von Unit4.dfm mit der korrigierten Query-Komponente. Übernimm nur was du unter D3 brauchst.

Delphi-Quellcode:

object DataModule4: TDataModule4
  OldCreateOrder = True
  OnCreate = DataModule4Create
  Left = 569
  Top = 266
  Height = 205
  Width = 215
  object Tabelle: TTable
    TableName = 'lsoft'
    TableType = ttDBase
    Left = 22
    Top = 10
    object TabelleNUM_LAGER: TSmallintField
      DisplayLabel = 'Lager'
      DisplayWidth = 6
      FieldName = 'NUM_LAGER'
    end
    object TabelleNUM_REGAL: TSmallintField
      DisplayLabel = 'Regal'
      DisplayWidth = 6
      FieldName = 'NUM_REGAL'
    end
    object TabelleNUM_ART: TSmallintField
      DisplayLabel = 'Artikel'
      DisplayWidth = 7
      FieldName = 'NUM_ART'
    end
    object TabelleART_STUECK: TFloatField
      DisplayLabel = 'Stück'
      DisplayWidth = 6
      FieldName = 'ART_STUECK'
    end
    object TabelleART_PRODUC: TStringField
      DisplayLabel = 'Hersteller'
      DisplayWidth = 20
      FieldName = 'ART_PRODUC'
      Size = 40
    end
    object TabelleART_NAME: TStringField
      DisplayLabel = 'Artikel'
      DisplayWidth = 40
      FieldName = 'ART_NAME'
      Size = 50
    end
    object TabelleART_NUM: TStringField
      DisplayLabel = 'Artikel-Nummer'
      FieldName = 'ART_NUM'
    end
    object TabelleART_DESCR: TStringField
      DisplayLabel = 'Beschreibung'
      DisplayWidth = 50
      FieldName = 'ART_DESCR'
      Size = 100
    end
    object TabelleART_MIN_ST: TFloatField
      DisplayLabel = 'Min.-Stück'
      FieldName = 'ART_MIN_ST'
    end
  end
  object DataSource1: TDataSource
    Left = 24
    Top = 66
  end
  object Query1: TQuery
    DatabaseName = 'dBASE-Dateien'
    SQL.Strings = (
      
        'SELECT num_lager, num_regal, num_art, art_stueck, art_produc, ar' +
        't_name, art_num, art_descr, art_min_st'
      'FROM lsoft'
      'WHERE art_stueck <= art_min_st')
    Left = 104
    Top = 10
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 102
    Top = 66
  end
end

marabu

[EDatabaseError]

danke