02. januar 2006 - 22:43Der er
4 kommentarer og 1 løsning
samligning af floatfield virker ikke.
Hej.
Først vil jeg lige ønsker jer et GODT NYTÅR.
Jeg kan ikke få flg. kode til at virke, hvad er der galt ?? Table5Bredde er et floatfield, som indeholder bredden, det er denne bredde der skal danne grundlag for afgift.
procedure TMainFrm.Table5CalcFields(DataSet: TDataSet); begin If (Table5Bredde.AsFloat < 2.80) then Table5Afgift.AsCurrency := 4373.00; If (Table5Bredde.AsFloat >= 2.80) and (Table5Bredde.AsFloat < 3.10) then Table5Afgift.AsCurrency := 4637.00; If (Table5Bredde.AsFloat >=3.10) and (Table5Bredde.AsFloat < 3.40) then Table5Afgift.AsCurrency := 4967.00; If (Table5Bredde.AsFloat >= 3.40) and (Table5Bredde.AsFloat < 3.80) then Table5Afgift.AsCurrency := 5721.00; If (Table5Bredde.AsFloat >= 3.80) then Table5Afgift.AsCurrency := 6946.00 else Table5Afgift.AsCurrency := 50.00; end;
I dine if statements har du jo alle eventualiteter med, lige fra < 2.80 til >= 3.80, samt alle værdier der imellem. Så under hvilke forudsætninger skulle værdien ende med 50,00?
Ja, det er jo lige der jeg har min fejl, det er et efterladendeskab, da jeg hentede koden fra et andet sted.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
