Avatar billede kimborg Nybegynder
05. februar 2010 - 19:55 Der er 8 kommentarer og
1 løsning

Type mismatch fejl

Hejsa

Jeg har nedenstående kode som giver mig en " Type mismatch: 'SAMLET' " fejl ved linje 105, nogle ideér?

<!--#include file="connection.inc"-->
<%
strSQL = "select sum(Indskud) as sum_ind, sum(Debit) as sum_deb, sum(Kredit) as sum_kre from Regnskab Where Aar < '2010'"
Set rs4 = Conn.Execute(strSQL)

SAMLET_2007 = Rs4("sum_ind") + Rs4("sum_deb") - Rs4("sum_kre")
%>
<table align="center" style="font-size:11px;font-weight:bold;text-align:left;">
  <tr>
    <td width="120px">Overført fra <u>2009</u>:</td>
    <td width="60px"><u><%=SAMLET_2007%></u></td>
  </tr>
</table>
<br>
<br>
<table border="0" align="center" style="font-size:11px;font-weight:bold;text-align:right;" width="1020px">
  <tr>
      <td width="60px"></td>
      <td width="80px">Januar</td>
      <td width="80px">Februar</td>
      <td width="80px">Marts</td>
      <td width="80px">April</td>
      <td width="80px">Maj</td>
      <td width="80px">Juni</td>
      <td width="80px">Juli</td>
      <td width="80px">August</td>
      <td width="80px">September</td>
      <td width="80px">Oktober</td>
      <td width="80px">November</td>
      <td width="80px">December</td>
  </tr>
  <tr>
    <td colspan="13"><hr></td>
  </tr>
  <tr>
    <td width="35px">
<table width="100%" style="font-weight:bold;font-size:11px;text-align:left;" cellspacing="0" cellpadding="0" border="0">
        <tr>
          <td width="35px" align="left">indskud</td>
        </tr>
        <tr>
          <td width="35px" align="left">indt&aelig;gt</td>
        </tr>
        <tr>
          <td width="35px" align="left">udgift</td>
        </tr>
        <tr><td height="5px"></td></tr>
        <tr>
          <td width="35px" align="left"><b>Samlet</b></td>
        </tr>
        <tr><td height="15px"></td></tr>
        <tr>
          <td width="35px" align="left"><b>Saldo</b></td>
        </tr>
      </table>
    </td>
<%
AAR = 2010

for b = 1 to 12
strSQL = "select sum(Indskud) as sum_ind, sum(Debit) as sum_deb, sum(Kredit) as sum_kre from Regnskab Where Aar = '" & AAR & "'" & "AND Maaned = "& b
Set rs = Conn.Execute(strSQL)
if not rs.eof then
do
SUM_IN = Rs("sum_ind")
SUM_DE = Rs("sum_deb")
SUM_KR = Rs("sum_kre")
SAMLET = Rs("sum_ind") + Rs("sum_deb") - Rs("sum_kre")

if SUM_IN <> "" Then
SUM_IN = formatnumber(SUM_IN,2)
else
SUM_IN = ""
end if

if SUM_DE <> "" Then
SUM_DE = formatnumber(SUM_DE,2)
else
SUM_DE = ""
end if

if SUM_KR <> "" Then
SUM_KR = "-" & formatnumber(SUM_KR,2)
else
SUM_KR = ""
end if

if SAMLET <> "" Then
SAMLET = formatnumber(SAMLET,2)
else
SAMLET = ""
end if

If b = 1 Then
SALDO = SAMLET_2007 + SAMLET
SALDO_JAN = SALDO
Elseif b = 2 Then
SALDO = SALDO_JAN + SAMLET
SALDO_FEB = SALDO
Elseif b = 3 Then
SALDO = SALDO_FEB + SAMLET
SALDO_MAR = SALDO
Elseif b = 4 Then
SALDO = SALDO_MAR + SAMLET    <----- linje 105 ------
SALDO_APR = SALDO
Elseif b = 5 Then
SALDO = SALDO_APR + SAMLET
SALDO_MAY = SALDO
Elseif b = 6 Then
SALDO = SALDO_MAY + SAMLET
SALDO_JUN = SALDO
Elseif b = 7 Then
SALDO = SALDO_JUN + SAMLET
SALDO_JUL = SALDO
Elseif b = 8 Then
SALDO = SALDO_JUL + SAMLET
SALDO_AUG = SALDO
Elseif b = 9 Then
SALDO = SALDO_AUG + SAMLET
SALDO_SEP = SALDO
Elseif b = 10 Then
SALDO = SALDO_SEP + SAMLET
SALDO_OKT = SALDO
Elseif b = 11 Then
SALDO = SALDO_OKT + SAMLET
SALDO_NOV = SALDO
Else
SALDO = SALDO_NOV + SAMLET
SALDO_DEC = SALDO
End if

if SAMLET_2007 <> "" Then
SAMLET_2007 = formatnumber(SAMLET_2007,2)
else
SAMLET_2007 = ""
end if

if SALDO <> "" Then
SALDO = formatnumber(SALDO,2)
else
SALDO = ""
end if
%>
  <td style="font-weight:normal;text-align:center;" width="75px">
<table width="100%" style="font-size:11px;" border="0" cellspacing="0" cellpadding="0">
        <tr>
            <td style="text-align:right;" width="70px"><%=SUM_IN%></td>
        </tr>
        <tr>
            <td style="text-align:right;" width="70px"><%=SUM_DE%></td>
        </tr>
        <tr>
            <td style="text-align:right;" width="70px"><%=SUM_KR%></td>
        </tr>
        <tr><td height="5px"></td></tr>
        <tr>
            <td style="text-align:right;" width="75px"><span><b><%=SAMLET%></b></span></td>
        </tr>
        <tr><td height="15px"></td></tr>
        <tr>
            <td style="text-align:right;" width="75px"><span><b><u><%=SALDO%></u></b></span></td>
        </tr>
      </table>
</td>
<%
rs.movenext
loop while not rs.eof
set rs= nothing
end if

next
%>
  </tr>
</table>
<br><br>
<%
Conn.Close
Set Conn = Nothing
%>
Avatar billede mortvader Nybegynder
05. februar 2010 - 19:57 #1
Hvor er linie 105?
Avatar billede mortvader Nybegynder
05. februar 2010 - 19:58 #2
sorry.. glem den.. er lidt stiv. undskyld..
Avatar billede mortvader Nybegynder
05. februar 2010 - 19:59 #3
prøv

SALDO = cdbl(SALDO_MAR) + cdbl(SAMLET)
Avatar billede kimborg Nybegynder
05. februar 2010 - 20:06 #4
Får samme fejl, tror det skyldes noget med at der ikke er nogle tal for marts endnu, men hvordan får scriptet til at "springe" over "tomme" måneder?
Avatar billede mortvader Nybegynder
05. februar 2010 - 20:19 #5
så prøv:

SALDO = cdbl("0"&SALDO_MAR) + cdbl("0"&SAMLET)
Avatar billede kimborg Nybegynder
05. februar 2010 - 20:33 #6
Det kunne jeg heller ikke få til at virke, dog virker siden hvis jeg indsætter "0" istedet for "", så kommer der bare en masse 0'er for de måneder vi ikke er kommet til endnu..., så det er nedenstående egentlig skaber problemer, men kan jeg løse på anden måde og slippe for 0'er??

if SAMLET <> "" Then
SAMLET = formatnumber(SAMLET,2)
else
SAMLET = "0"
end if
Avatar billede kimborg Nybegynder
05. februar 2010 - 20:39 #7
Hov, nu virker det, skrev NULL i stedet for "0" og så virker det lige som det skal :-), smider du et svar, uden din idé med 0, var jeg ikke kommet på det. Tak
Avatar billede mortvader Nybegynder
05. februar 2010 - 20:39 #8
undskyld, sidder og sludrer med konen, mens der ryger sjusser ned. nok derfor jeg ikke helt er med på hvad du mener..

prøv i stedet for linie 105:

-----
err.number=0
on error resume next
SALDO = cdbl(SALDO_MAR) + cdbl(SAMLET)
on error goto 0
if err.number<>0 then saldo=""
-----

om saldo til sidst skal være "" eller "0" ved jeg ikke. det afhænger af hvad du vil have..
Avatar billede mortvader Nybegynder
05. februar 2010 - 20:39 #9
Nå, halleluja :)

god weekend!
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester