Imports System.Data
Imports AppVariable

Partial Class mobile_student_infoLearningSP
    Inherits System.Web.UI.Page

#Region "******************** ページイベント ********************"

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        lsv_成績.DataSource = GetData()
        lsv_成績.DataBind()
    End Sub

#End Region

#Region "******************* Sub及びFunction ********************"

    Function GetData() As DataSet
        Using spm As New StoredProcedureManager("成績_授業評価_学生_SELECT")
            spm.AddPrmIn("@USERCD", Data.SqlDbType.VarChar, 20, Session(S_COM_UserCD))
            spm.Fill()

            Return spm.ds
        End Using
    End Function

#End Region

    Protected Sub lsv_成績_ItemDataBound(sender As Object, e As ListViewItemEventArgs) Handles lsv_成績.ItemDataBound
        If e.Item.DataItemIndex Mod 2 = 1 Then
            CType(e.Item.FindControl("datarow1"), HtmlTableRow).BgColor = "#eff7ff"
            CType(e.Item.FindControl("datarow2"), HtmlTableRow).BgColor = "#eff7ff"
        End If
    End Sub
End Class
