Søg
Avatar billede tblaster Nybegynder
26. november 2002 - 20:53 Der er 2 kommentarer og
1 løsning

If ... = "" And ... = "" And ...

Er der nogen der kan se fejl i disse koder?

1.
If rs("KaffeThe") = "" And rs("kaffekande") = "" And rs("tekande") = "" And rs("Rundstykker") = "" And rs("ost") = "" And rs("Eftermiddagskage") = "" And rs("Småkager") = "" And rs("Frugt") = "" And rs("isvandkande") = "" And rs("opdækning_uden_dug") = "" And rs("opdækning_med_dug") = "" And rs("buffet") = "" And rs("andet") = "" Then
Response.Write "Ingen"
response.write "<br>"
End If

2.
If rs("KaffeThe") = "" And rs("kaffekande") = "" And rs("tekande") = "" And rs("Rundstykker") = "" And rs("ost") = "" And rs("Eftermiddagskage") = "" And rs("Småkager") = "" And rs("Frugt") = "" And rs("isvandkande") = "" And rs("opdækning_uden_dug") = "" And rs("opdækning_med_dug") = "" And rs("buffet") = "" And rs("andet") = "" Then
Response.Write "Ja"
Else
response.write "Nej"
End if

Hvis jeg bruger nr. 1 og der intet er så skriver den ikke noget ... lader bare et tom felt stå. Hvis der er noget data skriver den dataen (ifølge koden der kommer efter)

Hvis jeg bruger nr. 2 skriver den bare altid Nej

Plz hjælp!
Avatar billede punnishment Nybegynder
26. november 2002 - 21:08 #1
det er fordi rs(".....") aldrig er = "". Men istedet Null..

der er forskel på "" og Null

i stedet for at skriv
If rs("Kaffethe") = "" AND......
skal du skrive
If IsNull(rs("Kaffethe")) AND IsNull(........) AND....... osv osv osv
Avatar billede tblaster Nybegynder
26. november 2002 - 21:29 #2
Jeg har ændret det til:

If IsNull(rs("KaffeThe")) And IsNull(rs("kaffekande")) And IsNull(rs("tekande")) And IsNull(rs("Rundstykker")) And IsNull(rs("ost")) And IsNull(rs("Eftermiddagskage")) And IsNull(rs("Småkager")) And IsNull(rs("Frugt")) IsNull(rs("isvandkande")) And IsNull(rs("opdækning_uden_dug")) And IsNull(rs("opdækning_med_dug")) And IsNull(rs("buffet")) And IsNull(rs("andet")) Then

Nu får jeg:

Expected 'Then'
Avatar billede coltau Juniormester
26. november 2002 - 22:24 #3
Der er ikke noget som IsNull/IsEmpty og tomme felter der kan drille. Jeg testede forskellige metoder og fandt kun en der virkede.

str = Trim(" " & rs("KaffeThe") & rs("kaffekande") & rs("tekande") & rs("Rundstykker") & rs("ost") & rs("Eftermiddagskage") & rs("Småkager") & rs("Frugt") & rs("isvandkande") & rs("opdækning_uden_dug") & rs("opdækning_med_dug") & rs("buffet") & rs("andet"))
if Len(str) = 0 then
  Response.Write "Ingen<br>"
else
  response.write "Noget<br>"
End If

Det første " " skal være der for at sikre at variablen str ikke bliver tom.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 18:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
I går 12:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
02/1018:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
01/1017:41 NVIDIA Geforce GTX 1060 6 GB som "snakker" Af dcedata1977 i Andet hardware
White papers
Flere white papers »