Imports System.Web.Services
Public Class student
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If IsNothing(Session("strCustomerID")) Then
Response.Redirect("index.aspx")
Response.End()
End If
Dim cls As New clsGetCustomer.getCustomer
Dim myArr As Array = cls.resultCustomer(Session("strCustomerID"))
If myArr.Length > 0 Then
Me.lblCustomerID.Text = DataBinder.Eval(myArr(0), "username").ToString()
Session("department") = Me.lblCustomerID.Text
End If
Dim cls2 As New clsStudent.getCustomer
' myArr2 As Array = cls2.resultStudent(Session("department"))
Dim myArr2 As Array = DirectCast(cls2.resultStudent(Session("department")), Array)
Dim dt As DataTable
Dim dr As DataRow
dt = New DataTable()
dt.Columns.Add("stid")
dt.Columns.Add("stname")
dt.Columns.Add("stsurname")
dt.Columns.Add("stdep")
For Each arr In myArr2
dr = dt.NewRow()
dr("stid") = DataBinder.Eval(arr, "stid").ToString()
dr("stname") = DataBinder.Eval(arr, "stname").ToString()
dr("stsurname") = DataBinder.Eval(arr, "stsurname").ToString()
dr("stdep") = DataBinder.Eval(arr, "stdep").ToString()
dt.Rows.Add(dr)
Next
GridView1.DataSource = dt.DefaultView
GridView1.DataBind()
End Sub
Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles GridView1.SelectedIndexChanged
End Sub
End Class
