ASP.NET 1.1 code:
Page_load():
Dim dr2As System.Data.IDataReader = getQuestion(Request.QueryString("qid"))
Dim qnumAsInteger = 1
While (dr2.Read())
Dim l1AsNew Literal
l1.Text += vbNewLine & "Q" & qnum.ToString() & ") " & dr2.Item("qtxt") & ""
l1.Text += vbNewLine & "<input type='hidden' value='" & dr2.Item("qid") & "' name='qid'>"
ph1.Controls.Add(l1)
If dr2.Item("qtype").ToString() = "RadioButton"Then
Dim radiogrpAsNew RadioButtonList
radiogrp.DataSource = getAnswer(dr2.Item("qid"))
radiogrp.ID = "aid".ToString & dr2.Item("qid")
radiogrp.DataTextField = "atxt"
radiogrp.DataValueField = "aid"
radiogrp.DataBind()
ph1.Controls.Add(radiogrp)
EndIf
qnum += 1
End While
the code above is my code to display the survey quesitons (qid) and theanswers (selection,choices,aid) for the particular question.
a sample of .aspx that the code above generated could be found here :http://www.valenhsu.com/WebForm1.aspx.htm
look at the html source, lok at the IDs..
the problem is i do not know how to populate the use input. unlikestatic pre-created controls, the id is different and the quantity ofeach control is unknown.
ASP.NET 1.1 code:
button1_click:
'populate user input and stores into a database.
'how ?
please help. please.Look at the Repeater control, it was designed for things just like this.
repeater would not be suitable as i may have checkboxes also.
Hi,
I agree with Curt_C, your task can surely be accomplished using a Repeater, even if you have Checkboxes or other web controls, because you can decide exactly how each item is rendered, and you can decide if a particular control (inside a Repeater item) will be rendered or not in that particular item (recall that each WebControl has a Visible property that determines if the control will be rendered on Page or not).
All you have to do is build an ItemTemplate for your Repeater, with all the web controls that may be needed, and then declare an event handler for the ItemDataBound event. This event is raised when a RepeaterItem is associated with a particular object in the Repeater's data source.
For example, let's build an ItemTemplate for a generic question,
<asp:Repeater id="repQuestions" runat="server">
<ItemTemplate>
<div>
<asp:RadioButtonList id="rbAnswers" runat="server"></asp:RadioButtonList>
<asp:CheckBoxList id="cbAnswers" runat="server"></asp:CheckBoxList>
<asp:TextBox id="txtAnswer" runat="server"></asp:CheckBox>
</div>
</ItemTemplate>
</asp:Repeater>
The ItemTemplate holds a RadioButtonList, a CheckBoxList and a TextBox. You can add all the controls that a question may need.
Now, suppose that a queston deals only with the RadioButtonList. Well, you will bind the RadioButtonList, leave the CheckBoxList unbound and set the Visible property of the TextBox to false.
Again, suppose that a question needs only the TextBox. Then, leave the RadioButtonList and the CheckBoxList unbound.
void repQuestions_ItemDataBound(object sender, RepeaterItemEventArgs e){
switch(e.Item.ItemType) {
case ListItemType.Item:
case LIstItemType.AlternatingItem:
// Get a reference to the web controls for this item.
RadioButtonList rbAnswers = (RadioButtonList)e.Item.FindControl("rbAnswers");
CheckBoxList cbAnswers = (CheckBoxList)e.Item.FindControl("cbAnswers");
TextBox txtAnswer = (TextBox)e.Item.FindControl("txtAnswer");
// Based on the type of questions, set the layout for this item.
// For example,
// bind the RadioButtonList
rbAnswers.DataSource = // Get the data source
rbAnswers.DataBind();
// Leave the CheckBoxList unbound (no-op).
// This question doesn't need a TextBox.
txtAnswer.Visible = false;
break;
default:break;
}
}
The only thing you have to care is the binding strategy, ie how to bind the questions to the Repeater. It is not a difficult task (I think it's a lot easier than dealing with many dynamic controls), for example you can bind the question Repeater to an array of question IDs and then, for each item, get the question ID and do a database query to retrieve all the info for that question. Or you can build a Question class that encapsulates all the information needed, then access the database to populate a collection of Question objects and bind this collection
to the Repeater (this would be my preferred approach), and so on.
The Repeater approach may seem a lot more complicated that the dynamic controls approach... maybe it requires more coding, but avoids a ton of problems that you have to face when dealing with dynamic controls handling, makes the code more readable and organizable, makes easy to persist the control hierarchy during postbacks and it is a general approach for this kind of problem.
The use of a general ItemTemplate that encapsulates all the possible controls needed for a question and renders only a couple of them may seem a "waste of instances" and have impact on performance. Well, I think that unless your questionary is made up of 100s questions, impact on performance is trascurable (I can even chache the Page output depending on the querystring "qid" value) while impact on code readability and maintainability is notable.
Sure, there are alternative approaches. For example, if I need those dynamic controls only for the first Request and then, when the page is posted back, I need only to collect the user input and save it to database, I could build a "map" of the dynamic controls involved for each question, where "1,rbaid1,cbaid1,tbaid1" is a string containing the question id and all the control IDs (ClientID) associated with that question.
I can build this string while I am reading records from the DataReader and building dynamic controls, then store this string in a string[] array and persist it to ViewState. On postback, I will parse the string, get all the IDs and the types of control (the first two letters of each control ID, easy) and use Request.Form[controlID] to get the user input, or maybe recreate instances for them
if I saved the server ID. This seems an easier approach but I do not recommend using
it because it is unaware of ASP.NET features,
is not a generalizable approach and you will need to think "from scratch" every
time you face this kind of task.
Hi,
the following is a complete working example (it is written in C#, but you can use one of the many converters available) that shows how to build and manage a dynamic questionary using a Repeater.
Please note that it is only an example and it lacks error checking and optimization. I hope it gives you some ideas on how to solve your problem.
<%@.PageLanguage="C#" %>
<%@.ImportNamespace="System.Data" %>
<scriptrunat="server">
protectedDataTable questions;
protectedDataTable answers;
protectedbool isAnswered =false;
privatevoid Page_Load(object sender,EventArgs e)
{
// Build the data structure and insert data used
// in this example.
BuildTables();
PopulateTables();
if (!Page.IsPostBack)
{
// Bind the question Repeater with a list
// of question IDs.
ArrayList quids =newArrayList();
foreach (DataRow rowin questions.Rows)
{
quids.Add(row["ID"]);
}
repQuestions.DataSource = quids;
repQuestions.DataBind();
}
}
// This method handles the ItemDataBound event of the question Repeater.
// It calls HandleQuestionItem passing a repeater item as an argument.
privatevoid repQuestions_ItemDataBound(object sender,RepeaterItemEventArgs e)
{
switch (e.Item.ItemType)
{
caseListItemType.Item:
caseListItemType.AlternatingItem:
HandleQuestionItem(e.Item);
break;
default:break;
}
}
// This method handles a question represented by a Repeater item.
// The flag isAnswered is used to determine if the questionary
// has been answered.
privatevoid HandleQuestionItem(RepeaterItem item)
{
// Get references to the controls contained in this item.
HtmlInputHidden questionID = (HtmlInputHidden)item.FindControl("questionID");
Label lblText = (Label)item.FindControl("lblText");
RadioButtonList rbAnswer = (RadioButtonList)item.FindControl("rbAnswer");
CheckBoxList cbAnswer = (CheckBoxList)item.FindControl("cbAnswer");
TextBox txtAnswer = (TextBox)item.FindControl("txtAnswer");
// Retrieve the question ID, its type and its text.
int quid = (isAnswered) ?Int32.Parse(questionID.Value) : (int)item.DataItem;
string qtype = (string)(questions.Select("ID = " + quid))[0]["Type"];
string qtext = (string)(questions.Select("ID = " + quid))[0]["Text"];
// If we are generating questions, fill the questionID field and
// the label that holds the question's text.
if (!isAnswered)
{
questionID.Value =Convert.ToString(quid);
lblText.Text = qtext;
}
// Take action based on the type of question.
switch(qtype) {
case"RadioButton":
// If answered, output a string with the answer.
if (isAnswered)
{
Response.Write("Answer to question " + questionID.Value +": " + rbAnswer.SelectedValue +"<br />");
}
else
{
// This is an example of binding a ListControl without using
// the DataBind() method.
DataRow[] rbAns = answers.Select("QuestionID =" + quid);
foreach (DataRow ansin rbAns)
{
string ansText = (string)ans["Text"];
rbAnswer.Items.Add(newListItem(ansText, ansText));
}
// This question doesn't need a TextBox to be displayed.
txtAnswer.Visible =false;
}
break;
case"CheckBox":
if (isAnswered)
{
Response.Write("Answers to question " + questionID.Value +": ");
foreach (ListItem cbin cbAnswer.Items)
{
if (cb.Selected)
{
Response.Write(cb.Value +" ");
}
}
Response.Write("<br>");
}
else
{
// Same as for the RadioButton case.
DataRow[] cbAns = answers.Select("QuestionID =" + quid);
foreach (DataRow ansin cbAns)
{
string ansText = (string)ans["Text"];
cbAnswer.Items.Add(newListItem(ansText, ansText));
}
txtAnswer.Visible =false;
}
break;
case"TextBox":
// To display only the TextBox, just leave the ListControls
// unbound.
if (isAnswered)
{
Response.Write("Answer to question " + questionID.Value +": " + txtAnswer.Text +"<br>");
}
break;
default:break;
}
}
privatevoid btnSubmit_Click(object sender,EventArgs e)
{
// The questionary has been submitted and it is
// considered answered.
isAnswered =true;
// Loop through the Repeater items to get answers.
foreach (RepeaterItem itemin repQuestions.Items)
{
HandleQuestionItem(item);
}
}
// Data used in this example. //
privatevoid PopulateTables()
{
questions.Rows.Add(2,"What's your name?","TextBox");
questions.Rows.Add(5,"How old are you?","RadioButton");
questions.Rows.Add(7,"Where were you born?","RadioButton");
questions.Rows.Add(14,"Which are your favourite web controls?","CheckBox");
answers.Rows.Add(5,"5");
answers.Rows.Add(5,"10");
answers.Rows.Add(7,"USA");
answers.Rows.Add(7,"France");
answers.Rows.Add(14,"Repeater");
answers.Rows.Add(14,"GridView");
}
privatevoid BuildTables()
{
questions =newDataTable("Questions");
questions.Columns.Add(newDataColumn("ID",typeof(int)));
questions.Columns.Add(newDataColumn("Text",typeof(string)));
questions.Columns.Add(newDataColumn("Type",typeof(string)));
answers =newDataTable("Answers");
answers.Columns.Add(newDataColumn("QuestionID",typeof(int)));
answers.Columns.Add(newDataColumn("Text",typeof(string)));
}
</script>
<!DOCTYPEhtmlPUBLIC"-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<headrunat="server">
<title>Untitled Page</title>
<styletype="text/css">
.container{width:80%;margin:auto;}
.question {width:90%;margin:auto;border:outset1px;padding:3px;margin-bottom:10px;}
.button{width:90%;margin:auto;text-align:left;}
</style>
</head>
<body>
<formid="form1"runat="server">
<divclass="container">
<asp:RepeaterID="repQuestions"Runat="server"
OnItemDataBound="repQuestions_ItemDataBound">
<ItemTemplate>
<divclass="question">
<inputtype="hidden"id="questionID"runat="server"/>
<div><asp:LabelID="lblText"runat="server"></asp:Label></div>
<asp:RadioButtonListID="rbAnswer"Runat="server"></asp:RadioButtonList>
<asp:CheckBoxListID="cbAnswer"Runat="server"></asp:CheckBoxList>
<asp:TextBoxID="txtAnswer"runat="server"></asp:TextBox>
</div>
</ItemTemplate>
</asp:Repeater>
<divclass="button">
<asp:ButtonID="btnSubmit"runat="server"Text="Submit"OnClick="btnSubmit_Click"/>
</div>
</div>
</form>
</body>
</html>
i appreciate your reply.
but may i know how to resolve :
Line 293: questions.Rows.Add(2, "What's your name?", "TextBox");
its appeared when i try to run your script.
Hi,
cchiuyi wrote:
Line 293: questions.Rows.Add(2, "What's your name?", "TextBox");
its appeared when i try to run your script.
Which is the error message corresponding to this line?
sorry that i forgotten to append the error message as well. the error message and its description is as below.
Description:Anerror occurred during the compilation of a resource required to servicethis request. Please review the following specific error details andmodify your source code appropriately.
Compiler Error Message:CS1501: No overload for method 'Add' takes '3' arguments
my .net version :Version Information: Microsoft .NET Framework Version:1.1.4322.2032; ASP.NET Version:1.1.4322.2032
the exact file taht i used to run could be found athttp://www.valenhsu.com/NewFile.aspx
Hi,
sorry, I've coded the Page using the .NET framework 2.0 and didn't notice a change in the Add() method of the DataRowCollection class, fromAdd(object[] values) in v1.1 toAdd(params object[] values) in v2.0
However, to make the example work on .NET v1.1, you have to replace the PopulateTable() method with this one:
private void PopulateTables()
{
questions.Rows.Add(new object[]{2, "What's your name?", "TextBox"});
questions.Rows.Add(new object[]{5, "How old are you?", "RadioButton"});
questions.Rows.Add(new object[]{7, "Where were you born?", "RadioButton"});
questions.Rows.Add(new object[]{14, "Which are your favourite web controls?", "CheckBox"});
answers.Rows.Add(new object[]{5, "5"});
answers.Rows.Add(new object[]{5, "10"});
answers.Rows.Add(new object[]{7, "USA"});
answers.Rows.Add(new object[]{7, "France"});
answers.Rows.Add(new object[]{14, "Repeater"});
answers.Rows.Add(new object[]{14, "GridView"});
}
c#.net:
int quid = (isAnswered) ? Int32.Parse(questionID.Value) : (int)item.DataItem;
how do i convert this line of code to vb.net ?
i'd tried online converters with result below :
Dim quidAsInteger = (IIf((isAnswered), Int32.Parse(questionID.Value),CInt(item.DataItem)))
Exception Details: System.FormatException: Input string was not in a correct format.
Dim quidAsInteger = (IIf((isAnswered), Int32.Parse(questionID.Value), (Integer)item.DataItem))
CompilerError Message: BC30287: '.'expected.
both doesn't work. i'd tried CType() too..
Hi,
try this:
Dim quid As Integer = (If isAnswered Then Int32.Parse(questionID.Value) Else CInt(item.DataItem))
or this:
Dim quid As Integer
If isAnswered Then
quid = Int32.Parse(questionID.Value)
Else
quid = CInt(item.DataItem)
End If
i had sepnt alot of time to make the translation work, but... unfortunately.. so far nohting works..
i'd tried
Dim quidAsInteger = (IIf((isAnswered), Int32.Parse(questionID.Value),CInt(item.DataItem)))all of these doesn';t work. i wonder why. is this a .net bug or what ?
Dim quidAsInteger = (IIf((isAnswered), Int32.Parse(questionID.Value), (Integer)item.DataItem))
Dim quidAsInteger = (IIf((isAnswered), Int32.Parse(questionID.Value), CType(item.DataItem,Integer)
))Dim quid As Integer = (If isAnswered Then Int32.Parse(questionID.Value) Else CInt(item.DataItem))Dim quid As Integer
If isAnswered Then
quid = Int32.Parse(questionID.Value)
Else
quid = CInt(item.DataItem)
End If
![Sad [:(]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_vV2rxF4zP0iSucInLkzSzMt_LM2M6zGLOydT20mNgnOetmtytXQKWYhcwe4-ilqrTAySfldIWrUYjKVtfkY4aShpNXmfb0A4tWmRMxEwWWAvgM_J7cQQ=s0-d)
Hi,
Dim quid As Integer = (If isAnswered Then Int32.Parse(questionID.Value) Else CInt(item.DataItem))
Dim quid As Integer
If isAnswered Then
quid = Int32.Parse(questionID.Value)
Else
quid = CInt(item.DataItem)
End If
could you post the error messages relative to these statements? At least did the C# version work?
If isAnswered Then
quid = Int32.Parse(questionID.Value)
Else
quid = CInt(item.DataItem)
End If
Exception Details: System.FormatException: Input string was not in a correct format.
-
Dim quid As Integer = IIf((isAnswered) , Int32.Parse(questionID.Value) , CType(item.DataItem, Integer))
Exception Details: System.FormatException: Input string was not in a correct format.
Stack Trace:
[FormatException: Input string was not in a correct format.]
System.Number.ParseInt32(String s, NumberStyles style, NumberFormatInfo info) +0
ASP.NewFile2_aspx.HandleQuestionItem(RepeaterItem item) +282
ASP.NewFile2_aspx.repQuestions_ItemDataBound(Object sender, RepeaterItemEventArgs e) +48 ~~~ more.
-
Dim quid As Integer = (IIf((isAnswered), Int32.Parse(questionID.Value), CInt(item.DataItem)))
Exception Details: System.FormatException: Input string was not in a correct format.
Stack Trace:
[FormatException: Input string was not in a correct format.]
System.Number.ParseInt32(String s, NumberStyles style, NumberFormatInfo info) +0
ASP.NewFile2_aspx.HandleQuestionItem(RepeaterItem item) +282
ASP.NewFile2_aspx.repQuestions_ItemDataBound(Object sender, RepeaterItemEventArgs e) +48 ~~~ more.
-
Dim quid As Integer = (IIf((isAnswered), Int32.Parse(questionID.Value), (Integer)item.DataItem))
Compiler Error Message: BC30287: '.' expected.
Source Error: Line 96: Dim quid As Integer = (IIf((isAnswered), Int32.Parse(questionID.Value), (Integer)item.DataItem))
No Stack Trace
-
Dim quid As Integer = (If isAnswered Then Int32.Parse(questionID.Value) Else CInt(item.DataItem))
Compiler Error Message: BC30201: Expression expected.
Source Error: Line 96: Dim quid As Integer = (If isAnswered Then Int32.Parse(questionID.Value) Else CInt(item.DataItem))
No Stack Trace
-
Dim quid As Integer = (IIf((isAnswered), CType(questionID.Value, Integer), CInt(item.DataItem)))
Exception Details: System.FormatException: Input string was not in a correct format.
Stack Trace:
[FormatException: Input string was not in a correct format.]
Microsoft.VisualBasic.CompilerServices.DoubleType.Parse(String Value, NumberFormatInfo NumberFormat) +195
Microsoft.VisualBasic.CompilerServices.IntegerType.FromString(String Value) +92
[InvalidCastException: Cast from string "" to type 'Integer' is not valid.]
Microsoft.VisualBasic.CompilerServices.IntegerType.FromString(String Value) +204
ASP.NewFile2_aspx.HandleQuestionItem(RepeaterItem item) +265
ASP.NewFile2_aspx.repQuestions_ItemDataBound(Object sender, RepeaterItemEventArgs e) +48 ~~~ more.
-
Dim quid As Integer = (IIf((isAnswered), CInt(questionID.Value), CInt(item.DataItem)))
Exception Details: System.FormatException: Input string was not in a correct format.
Stack Trace:
[FormatException: Input string was not in a correct format.]
Microsoft.VisualBasic.CompilerServices.DoubleType.Parse(String Value, NumberFormatInfo NumberFormat) +195
Microsoft.VisualBasic.CompilerServices.IntegerType.FromString(String Value) +92
[InvalidCastException: Cast from string "" to type 'Integer' is not valid.]
Microsoft.VisualBasic.CompilerServices.IntegerType.FromString(String Value) +204
ASP.NewFile2_aspx.HandleQuestionItem(RepeaterItem item) +265
ASP.NewFile2_aspx.repQuestions_ItemDataBound(Object sender, RepeaterItemEventArgs e) +48 ~~~ more.
C#.NET's Code works without any errors.
tried online c#.net to vb.net translator too (above).
Hi,
the following is theVB.NET version of the questionary example.
I had to correct the IIf statement and convert the string concatenation operator from '+' (used in C#) to '&' (used in VB.NET).
<%@.PageLanguage="vb" %>
<%@.ImportNamespace="System.Data" %>
<scriptrunat="server">
Protected questions As DataTable
Protected answers As DataTable
Protected isAnswered As Boolean = False
Private Sub Page_Load(sender As Object, e As EventArgs)
' Build the data structure and insert data used
' in this example.
BuildTables()
PopulateTables()
If Not Page.IsPostBack Then
' Bind the question Repeater with a list
' of question IDs.
Dim quids As New ArrayList()
Dim row As DataRow
For Each row In questions.Rows
quids.Add(row("ID"))
Next row
repQuestions.DataSource = quids
repQuestions.DataBind()
End If
End Sub 'Page_Load
' This method handles the ItemDataBound event of the question Repeater.
' It calls HandleQuestionItem passing a repeater item as an argument.
Private Sub repQuestions_ItemDataBound(sender As Object, e As RepeaterItemEventArgs)
Select Case e.Item.ItemType
Case ListItemType.Item, ListItemType.AlternatingItem
HandleQuestionItem(e.Item)
Case Else
End Select
End Sub 'repQuestions_ItemDataBound
' This method handles a question represented by a Repeater item.
' The flag isAnswered is used to determine if the questionary
' has been answered.
Private Sub HandleQuestionItem(item As RepeaterItem)
' Get references to the controls contained in this item.
Dim questionID As HtmlInputHidden = CType(item.FindControl("questionID"), HtmlInputHidden)
Dim lblText As Label = CType(item.FindControl("lblText"), Label)
Dim rbAnswer As RadioButtonList = CType(item.FindControl("rbAnswer"), RadioButtonList)
Dim cbAnswer As CheckBoxList = CType(item.FindControl("cbAnswer"), CheckBoxList)
Dim txtAnswer As TextBox = CType(item.FindControl("txtAnswer"), TextBox)
' Retrieve the question ID, its type and its text.
Dim quid As Integer
If isAnswered Then
quid = Int32.Parse(questionID.Value)
Else
quid = CInt(item.DataItem)
End If
Dim qtype As String = CStr(questions.Select(("ID = " & quid))(0)("Type"))
Dim qtext As String = CStr(questions.Select(("ID = " & quid))(0)("Text"))
' If we are generating questions, fill the questionID field and
' the label that holds the question's text.
If Not isAnswered Then
questionID.Value = Convert.ToString(quid)
lblText.Text = qtext
End If
' Take action based on the type of question.
Select Case qtype
Case "RadioButton"
' If answered, output a string with the answer.
If isAnswered Then
Response.Write(("Answer to question " & questionID.Value & ": " & rbAnswer.SelectedValue & "<br />"))
Else
' This is an example of binding a ListControl without using
' the DataBind() method.
Dim rbAns As DataRow() = answers.Select(("QuestionID =" & quid))
Dim ans As DataRow
For Each ans In rbAns
Dim ansText As String = CStr(ans("Text"))
rbAnswer.Items.Add(New ListItem(ansText, ansText))
Next ans
' This question doesn't need a TextBox to be displayed.
txtAnswer.Visible = False
End If
Case "CheckBox"
If isAnswered Then
Response.Write(("Answers for question " & questionID.Value & ": "))
Dim cb As ListItem
For Each cb In cbAnswer.Items
If cb.Selected Then
Response.Write((cb.Value & " "))
End If
Next cb
Response.Write("<br>")
Else
' Same as for the RadioButton case.
Dim cbAns As DataRow() = answers.Select(("QuestionID =" & quid))
Dim ans As DataRow
For Each ans In cbAns
Dim ansText As String = CStr(ans("Text"))
cbAnswer.Items.Add(New ListItem(ansText, ansText))
Next ans
txtAnswer.Visible = False
End If
Case "TextBox"
' To display only the TextBox, just leave the ListControls
' unbound.
If isAnswered Then
Response.Write(("Answer to question " & questionID.Value & ": " & txtAnswer.Text & "<br>"))
End If
Case Else
End Select
End Sub 'HandleQuestionItem
Private Sub btnSubmit_Click(sender As Object, e As EventArgs)
' The questionary has been submitted and it is
' considered answered.
isAnswered = True
' Loop through the Repeater items to get answers.
Dim item As RepeaterItem
For Each item In repQuestions.Items
HandleQuestionItem(item)
Next item
End Sub 'btnSubmit_Click
' Data used in this example.
Private Sub PopulateTables()
questions.Rows.Add(New Object() {2, "What's your name?", "TextBox"})
questions.Rows.Add(New Object() {5, "How old are you?", "RadioButton"})
questions.Rows.Add(New Object() {7, "Where were you born?", "RadioButton"})
questions.Rows.Add(New Object() {14, "Which are your favourite web controls?", "CheckBox"})
answers.Rows.Add(New Object() {5, "5"})
answers.Rows.Add(New Object() {5, "10"})
answers.Rows.Add(New Object() {7, "USA"})
answers.Rows.Add(New Object() {7, "France"})
answers.Rows.Add(New Object() {14, "Repeater"})
answers.Rows.Add(New Object() {14, "GridView"})
End Sub 'PopulateTables
Private Sub BuildTables()
questions = New DataTable("Questions")
questions.Columns.Add(New DataColumn("ID", GetType(Integer)))
questions.Columns.Add(New DataColumn("Text", GetType(String)))
questions.Columns.Add(New DataColumn("Type", GetType(String)))
answers = New DataTable("Answers")
answers.Columns.Add(New DataColumn("QuestionID", GetType(Integer)))
answers.Columns.Add(New DataColumn("Text", GetType(String)))
End Sub 'BuildTables
</script>
<!DOCTYPEhtmlPUBLIC"-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<headrunat="server"ID="Head1">
<title>Untitled Page</title>
<styletype="text/css">
.container{width:80%;margin:auto;}
.question {width:90%;margin:auto;border:outset1px;padding:3px;margin-bottom:10px;}
.button{width:90%;margin:auto;text-align:left;}
</style>
</head>
<body>
<formid="form1"runat="server">
<divclass="container">
<asp:RepeaterID="repQuestions"Runat="server"
OnItemDataBound="repQuestions_ItemDataBound">
<ItemTemplate>
<divclass="question">
<inputtype="hidden"id="questionID"runat="server"NAME="questionID"/>
<div><asp:LabelID="lblText"runat="server"></asp:Label></div>
<asp:RadioButtonListID="rbAnswer"Runat="server"></asp:RadioButtonList>
<asp:CheckBoxListID="cbAnswer"Runat="server"></asp:CheckBoxList>
<asp:TextBoxID="txtAnswer"runat="server"></asp:TextBox>
</div>
</ItemTemplate>
</asp:Repeater>
<divclass="button">
<asp:ButtonID="btnSubmit"runat="server"Text="Submit"OnClick="btnSubmit_Click"/>
</div>
</div>
</form>
</body>
</html>
