Hi !
Ich benutze eine Tabelle mit 31 Spalten und 10 Zeilen als Eingabeformular für eine Stundenabrechnung im Monat.
Jede Zelle der 31 Spalten entspricht dem Datum und die Zeilen sind verschieden Aktivitäten zugeordnet.
Ich möchte sowohl hotizontal als auch vertikal diese eingetragen Stunden aufsummieren, so dass ich die Gesamtarbeitszeit pro Tag und die Gesamtarbeitszeit pro Aktivität im Monat anzeigen kann.
Die Aufsummierung sollte nach jedem Eintrag in eine Zelle der Tabelle aktualisiert werden.
Das müsste doch mit Javascript relativ einfach zu machen sein oder ??
Ich habe nur leider nicht viel Praxis mit Javascript und kenne daher nicht die Prozeduren und Aggregatsfunktionen um Tabellenzellen aufzusummieren. Kann mir jemand helfen ??
Der HTML-Code sieht folgendermaßen aus :
Response.write("<form name='eingabe' action='eintragen.asp' method='get' > ")& vbCrLf
Response.write("<<table border=1 cellspacing='0' >")& vbCrLf
For j=1 to 10
Response.write("<tr>")& vbCrLf
Response.write("<td>")
Response.write("<select style='font-size:10px' name='project' class='general' default='GD'>")& vbCrLf
Response.write("<option type='text' value='GD' selected>GD</option>")& vbCrLf
Response.write("<option type='text' value='RIS'>RIS</option>")& vbCrLf
Response.write("<option type='text' value='PD'>PD</option>")& vbCrLf
Response.write("<option type='text' value='AE'>AE</option>")& vbCrLf
Response.write("<option type='text' value='PE'>PE</option>")& vbCrLf
Response.write("</select>")& vbCrLf
Response.write("</td>")& vbCrLf
Response.write("<td>")
Response.write(" <input name='projekt"& j &"' type='text'size='10' > ")
Response.write("</td>")& vbCrLf
Response.write("<td>")
Response.write("<input name='bezeichnung"& j &"' type='text' size='10' > ")
Response.write("</td>")& vbCrLf
For i=1 to anzahl
tag = weekdayname(1,true,weekday (""& i &"."& monat &"."& jahr &""))
if tag="Sa" or tag="So" then
farbe="#C0C0C0"
textfarbe="white"
else
farbe="white"
textfarbe="black"
end if
Response.write("<td bgcolor="& farbe &" style='color:"& textfarbe &"'>")
Response.write("<input name='feld"& j &"_"& i &"' type='text' size='1' style='color:"& textfarbe &"; background:"& farbe &";'>")
Response.write("</td>")& vbCrLf
next
next
Response.write("</tr>")& vbCrLf
Response.write("</table>")& vbCrLf
Lasst euch von dem ASP Code nicht stören !
Danke !
Gruß
Axel