OK....
Prøver at gøre det lidt overskueligt:
ASPX-fil
--------
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="index.aspx.vb" Inherits="projectnavn.WebForm2"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
</HEAD>
<body bgColor="#c0d0e1" MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<table height="100%" width="100%" align="center" border="0">
<tr>
<td> </td>
<td vAlign="top" align="center"><asp:table id="Table1" runat="server" BorderWidth="0"></asp:table></td>
<td> </td>
</tr>
<TR>
<TD></TD>
<TD vAlign="top" align="center"><asp:button id="Button1" runat="server" Text="Gem informationerne"></asp:button></TD>
<TD></TD>
</TR>
<tr>
</table>
</form>
</body>
</HTML>
aspx.vb-fil
-----------
Private Sub Page_Load(ByVal sender......) Handles MyBase.Load
If Not IsPostBack Then
Dim IDCounter As Integer = 1
Dim CON As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MapPath("data.mdb") & ";")
CON.Open()
Dim CMD As New OleDb.OleDbCommand("SELECT * FROM emner", CON)
Dim DATA As OleDb.OleDbDataReader = CMD.ExecuteReader()
DATA.Read()
Do
Dim r2 As New TableRow ' 1. Row start
Dim EmneInput As New TableCell ' 1. cell = Text Input
EmneInput.ColumnSpan = 3
Dim Item2 As New TextBox ' asp:TextBox
Item2.ID = "TextBox" & IDCounter.ToString
EmneInput.Controls.Add(Item2)
r2.Cells.Add(EmneInput)
Table1.Rows.Add(r2)
IDCounter = IDCounter + 1
Loop While DATA.Read = True
End Sub
Private Sub Button1_Click(ByVal... ) Handles Button1.Click
Dim box1 As New TextBox
box1 = Page.FindControl("TextBox1")
Button1.Text = box1.Text
' HER vil jeg gerne gemme alle input fra alle textboxene fra page_load
' Men informationerne bliver ikke sendt til server med mindre jeg fjerner " If Not IsPostBack Then"
FormsAuthentication.SignOut()
End Sub
Ny bruger
Nybegynder
Opret
Preview
