megarainman
Gebruiker
- Lid geworden
- 10 okt 2001
- Berichten
- 543
Dit is de code die ik staan heb:
Wanneer ik op de knop Berekenen klik, gebeurt er niets en komt er niets tevoor schijn in de tabel...
Iemand die me kan helpen, aub...
Alvast bedankt
<%@ Page Language="VB" %>
<script runat="server">
' Insert page code here
'
Sub cmdLeegmaken_Click(sender As Object, e As EventArgs)
response.redirect("veelvoud.aspx")
End Sub
Sub cmdBerekenen_Click(sender As Object, e As EventArgs)
Dim intAantal as integer
dim intuitkomst as integer
intuitkomst=txtGetal.text
Dim header as new tableheadercell()
header.rowspan=1
header.columnspan=2
header.text="Veelvouden"
header.font.bold=true
header.horizontalalign=horizontalalign.center
header.verticalalign=verticalalign.middle
Dim headerrow as new tablerow()
headerrow.cells.add(header)
tblUitkomst.rows.add(headerrow)
For intAantal = 1 to 15
dim row as new tablerow()
dim cell as new tablecell()
dim cell2 as new tablecell()
intuitkomst = txtGetal.text*intAantal
cell.text=intAantal
cell2.text=intuitkomst
row.cells.add(cell)
row.cells.add(cell2)
tblUitkomst.rows.add(row)
Next
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
<asp:ValidationSummary id="ingegevenfout" runat="server" Font-Names="Verdana" DisplayMode="List"></asp:ValidationSummary>
</p>
<p>
<font face="Verdana" color="darkred">Geef een getal in:</font>
<asp:TextBox id="txtGetal" runat="server" Font-Names="Verdana" BorderColor="LightCoral" BorderStyle="Groove" BorderWidth="2px" ForeColor="DarkRed"></asp:TextBox>
<asp:RequiredFieldValidator id="fout" runat="server" ErrorMessage="Gelieve een getal in te geven!" ControlToValidate="txtGetal">*</asp:RequiredFieldValidator>
</p>
<p>
<asp:Button id="cmdBerekenen" onclick="cmdBerekenen_Click" runat="server" Font-Names="Verdana" BorderColor="DarkRed" BorderStyle="Solid" BorderWidth="1px" ForeColor="DarkRed" Text="Veelvouden berekenen" BackColor="MistyRose" Width="173px"></asp:Button>
<asp:Button id="cmdLeegmaken" onclick="cmdLeegmaken_Click" runat="server" Font-Names="Verdana" BorderColor="DarkRed" BorderStyle="Solid" BorderWidth="1px" ForeColor="DarkRed" Text="Nieuwe berekening" BackColor="MistyRose"></asp:Button>
</p>
<p>
<asp:Table id="tblUitkomst" runat="server" Font-Names="Verdana" BorderColor="IndianRed" BorderStyle="Solid" BorderWidth="1px" ForeColor="DarkRed" Visible="False"></asp:Table>
</p>
<p>
</p>
<!-- Insert content here -->
</form>
</body>
</html>
Wanneer ik op de knop Berekenen klik, gebeurt er niets en komt er niets tevoor schijn in de tabel...
Iemand die me kan helpen, aub...
Alvast bedankt
<%@ Page Language="VB" %>
<script runat="server">
' Insert page code here
'
Sub cmdLeegmaken_Click(sender As Object, e As EventArgs)
response.redirect("veelvoud.aspx")
End Sub
Sub cmdBerekenen_Click(sender As Object, e As EventArgs)
Dim intAantal as integer
dim intuitkomst as integer
intuitkomst=txtGetal.text
Dim header as new tableheadercell()
header.rowspan=1
header.columnspan=2
header.text="Veelvouden"
header.font.bold=true
header.horizontalalign=horizontalalign.center
header.verticalalign=verticalalign.middle
Dim headerrow as new tablerow()
headerrow.cells.add(header)
tblUitkomst.rows.add(headerrow)
For intAantal = 1 to 15
dim row as new tablerow()
dim cell as new tablecell()
dim cell2 as new tablecell()
intuitkomst = txtGetal.text*intAantal
cell.text=intAantal
cell2.text=intuitkomst
row.cells.add(cell)
row.cells.add(cell2)
tblUitkomst.rows.add(row)
Next
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
<asp:ValidationSummary id="ingegevenfout" runat="server" Font-Names="Verdana" DisplayMode="List"></asp:ValidationSummary>
</p>
<p>
<font face="Verdana" color="darkred">Geef een getal in:</font>
<asp:TextBox id="txtGetal" runat="server" Font-Names="Verdana" BorderColor="LightCoral" BorderStyle="Groove" BorderWidth="2px" ForeColor="DarkRed"></asp:TextBox>
<asp:RequiredFieldValidator id="fout" runat="server" ErrorMessage="Gelieve een getal in te geven!" ControlToValidate="txtGetal">*</asp:RequiredFieldValidator>
</p>
<p>
<asp:Button id="cmdBerekenen" onclick="cmdBerekenen_Click" runat="server" Font-Names="Verdana" BorderColor="DarkRed" BorderStyle="Solid" BorderWidth="1px" ForeColor="DarkRed" Text="Veelvouden berekenen" BackColor="MistyRose" Width="173px"></asp:Button>
<asp:Button id="cmdLeegmaken" onclick="cmdLeegmaken_Click" runat="server" Font-Names="Verdana" BorderColor="DarkRed" BorderStyle="Solid" BorderWidth="1px" ForeColor="DarkRed" Text="Nieuwe berekening" BackColor="MistyRose"></asp:Button>
</p>
<p>
<asp:Table id="tblUitkomst" runat="server" Font-Names="Verdana" BorderColor="IndianRed" BorderStyle="Solid" BorderWidth="1px" ForeColor="DarkRed" Visible="False"></asp:Table>
</p>
<p>
</p>
<!-- Insert content here -->
</form>
</body>
</html>
