2
Any idea? I have Exam.vb and aspx page:
<!------------ Exam.vb start //---------------------------->
Imports System.Data
Module Exam
Public Function DataLoad() As ICollection
Dim dt As DataTable = New DataTable()
Dim dv As DataView
Dim dr As DataRow
dt.Columns.Add( New DataColumn("Exa mNumber", GetType(String) ))
dt.Columns.Add( New DataColumn("Exa mName", GetType(String) ))
dr = dt.NewRow()
dr(0) = "305"
dr(1) = "Web Applications With VB.Net"
dt.Rows.Add(dr)
.
.
.
dv = New DataView(dt)
Return dv
End Function
End Module
<!------------ Exam.vb end //---------------------------->
<!------------ Sample.aspx start //---------------------------->
<%@ Page Language="VB"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt d">
<script runat="server">
Private Sub Page_load(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
lbExams.DataSou rce = DataLoad()
lbExams.DataTex tField = "ExamName"
DataBind()
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>StepBySt ep5-5</title>
</head>
<body>
<form id="form1" runat="server">
<div>
</div>
<asp:ListBox ID="lbExams" runat="server"> </asp:ListBox>
</form>
</body>
</html>
<!------------ Sample.aspx end //---------------------------->
Thanks!
