?Imports OrderDll
Imports System.Data
Partial Class StatisticsInfoControl
    Inherits System.Web.UI.UserControl
    Private Const MESSAGEID As String = "MESSAGEID"
    Public Event msgSubPanel(ByVal MsgDescription As String)
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        sShow()
    End Sub

    Protected Sub sShow()
        Dim i As Integer
        Dim strCelTempID As String = "tblCell"        'cell part name
        Dim strLblTempID As String = "lblCell"        'label part name
        Dim strTabRowTempID As String = "tabrow"      'table row part name
        Dim strBtnTempID As String = "btnUpdate"      'button part name
        Dim strChkSetOff As String = "chkSetOff"      'checkbox setoff part name
        Dim strChkSetStop As String = "chkSetStop"    'checkbox stop part name
        Dim strtxtTempID As String = "txtCell"        'textbox part name
        If Not OrderDll.ClassStatistics.sCallStoreProcedure() Then
            Dim strSql As String = ""
            Dim dsTemp As New Data.DataSet

            strSql = OrderDll.ClassStatistics.fGet_SQL_Sta_Date()
            dsTemp = OrderDll.C_SQLUtil.fExecuteDataset(strSql)
            For Each row As DataRow In dsTemp.Tables(0).Rows
                Dim tabrow As HtmlTableRow = New HtmlTableRow()

                Dim tblCell1 As HtmlTableCell = New HtmlTableCell()
                Dim lblCell1 As Label = New Label()

                Dim tblCell2 As HtmlTableCell = New HtmlTableCell()
                Dim lblCell2 As Label = New Label()

                Dim tblCell3 As HtmlTableCell = New HtmlTableCell()
                Dim lblCell3 As Label = New Label()

                Dim tblCell4 As HtmlTableCell = New HtmlTableCell()
                Dim lblCell4 As Label = New Label()

                Dim tblCell5 As HtmlTableCell = New HtmlTableCell()
                Dim lblCell5 As Label = New Label()



                'set the style
                'tblCell1.Width = 50 & "px"
                'tblCell2.Width = 50 & "px"
                'tblCell3.Width = 60 & "px"

                'tblCell4.Width = 70 & "px"

                'tblCell5.Width = 50 & "px"

                'column 1
                tabrow.ID = strTabRowTempID & i
                lblCell1.ID = strCelTempID & "1" & i.ToString
                tblCell1.ID = strLblTempID & "1" & i.ToString

                lblCell1.Text = row("strProName")
                tblCell1.Controls.Add(lblCell1)

                tabrow.Cells.Add(tblCell1)

                'column 2
                lblCell2.ID = strCelTempID & "2" & i.ToString
                tblCell2.ID = strLblTempID & "2" & i.ToString
                lblCell2.Text = row("strDate")

                tblCell2.Controls.Add(lblCell2)

                tabrow.Cells.Add(tblCell2)

                'column 3
                lblCell3.ID = strCelTempID & "3" & i.ToString
                tblCell3.ID = strLblTempID & "3" & i.ToString
                lblCell3.Text = row("intLastSur")
                tblCell3.Controls.Add(lblCell3)
                tabrow.Cells.Add(tblCell3)

                'column 4
                lblCell4.ID = strCelTempID & "4" & i.ToString
                tblCell4.ID = strLblTempID & "4" & i.ToString
                lblCell4.Text = row("intThisPro")
                tblCell4.Controls.Add(lblCell4)

                tabrow.Cells.Add(tblCell4)

                'column 5
                lblCell5.ID = strCelTempID & "5" & i.ToString
                tblCell5.ID = strLblTempID & "5" & i.ToString
                lblCell5.Text = row("intOrdNum")
                tblCell5.Controls.Add(lblCell5)

                tabrow.Cells.Add(tblCell5)

                tblList.Rows.Add(tabrow)
            Next
            Session(MESSAGEID) = 2
            RaiseEvent msgSubPanel("")
        End If
    End Sub
End Class