aspx sidan
---------------------------------------------------------
<asp:Table id="tblChoose" runat="server">
			<asp:TableRow>
				<asp:TableCell><span style="font-size: 16px;font-family: arial; font-weight: bold;">Matchfakta</span></asp:TableCell>
			</asp:TableRow>
			<asp:TableRow>
				<asp:TableCell></asp:TableCell>
			</asp:TableRow>
			<asp:tablerow id="tblrResultat" visible="False">
				<asp:tablecell><asp:label id="lblResultat" runat="server" /></asp:tablecell>
			</asp:tablerow>
		</asp:table>
		<asp:label id="lblError" runat="server" />
		<asp:datagrid id="dg_serier" runat="server" autogeneratecolumns="False" showheader="False" showfooter="False" gridlines="None" onitemcommand="skapa" datakeyfield="id">
			<columns>
				<asp:templatecolumn>
					<itemtemplate>
						<asp:table id="tbl1" runat="server" width="150px">
							<asp:tablerow>
								<asp:tablecell><%# DataBinder.Eval(Container, "DataItem.Namn") %></asp:tablecell>
							</asp:tablerow>
						</asp:table>
					</itemtemplate>
				</asp:templatecolumn>
				<asp:buttoncolumn buttontype="LinkButton" text="Välj serie" itemstyle-width="60px" itemstyle-horizontalalign="Center" commandname="skapa" />
			</columns>
		</asp:datagrid>
		<asp:datagrid id="dg_matcher" runat="server" autogeneratecolumns="False" showfooter="False" showheader="False" gridlines="None" onitemcommand="matcher" datakeyfield="id" visible="False">
			<columns>
				<asp:templatecolumn>
					<itemtemplate>
						<asp:table runat="server" cellpadding="0" cellspacing="0">
								<asp:tablerow>
									<asp:tablecell style="width:25px"><%# DataBinder.Eval(Container, "DataItem.omgang") %></asp:tablecell>
									<asp:tablecell style="width:125px"><%# DataBinder.Eval(Container, "DataItem.lag1") %></asp:tablecell>
									<asp:tablecell style="width:125px"><%# DataBinder.Eval(Container, "DataItem.lag2") %></asp:tablecell>
									<asp:tablecell style="width:20px"><%# DataBinder.Eval(Container, "DataItem.resultat_a") %></asp:tablecell>
									<asp:tablecell style="width:20px"><%# DataBinder.Eval(Container, "DataItem.resultat_b") %></asp:tablecell>
								</asp:tablerow>
						</asp:table>
					</itemtemplate>
				</asp:templatecolumn>
				<asp:buttoncolumn buttontype="LinkButton" text="Välj match" itemstyle-width="60px" itemstyle-horizontalalign="Center" commandname="matcher" />
			</columns>
		</asp:datagrid>
		<asp:table id="tblFakta" runat="server" cellpadding="0" cellspacing="0" borderwidth="0" visible="False">
			<asp:tablerow>
				<asp:tablecell><b><asp:label id="lblMatch" runat="server" />&nbsp;<asp:label id="lblSlutResultat" runat="server" /></b></asp:tablecell>
			</asp:tablerow>
			<asp:tablerow>
				<asp:tablecell>
					<asp:table id="tblGoals" runat="server" cellpadding="0" cellspacing="0" width="550px">
						<asp:tablerow>
							<asp:tablecell width="50%">Skriv inte in målskyttar för <asp:label id="lblHome" runat="server" /><asp:checkbox id="ckxHome" runat="server" /></asp:tablecell>
							<asp:tablecell width="50%">Skriv inte in målskyttar för <asp:label id="lblAway" runat="server" /><asp:checkbox id="ckxAway" runat="server" /></asp:tablecell>
						</asp:tablerow>
						<asp:tablerow>
							<asp:tablecell width="50%">
								<asp:table id="tblHomeHeader" runat="server" cellpadding="0" cellspacing="0">
									<asp:tablerow>
										<asp:tablecell width="50px">Mål</asp:tablecell>
										<asp:tablecell width="50px">Tid</asp:tablecell>
										<asp:tablecell width="50px">Målskytt</asp:tablecell>
										<asp:tablecell width="50px">Assist 1</asp:tablecell>
										<asp:tablecell width="50px">Assist 2</asp:tablecell>
									</asp:tablerow>
								</asp:table>
							</asp:tablecell>
							<asp:tablecell width="50%">
								<asp:table id="tblAwayHeader" runat="server" cellpadding="0" cellspacing="0">
									<asp:tablerow>
										<asp:tablecell width="50px">Mål</asp:tablecell>
										<asp:tablecell width="50px">Tid</asp:tablecell>
										<asp:tablecell width="50px">Målskytt</asp:tablecell>
										<asp:tablecell width="50px">Assist 1</asp:tablecell>
										<asp:tablecell width="50px">Assist 2</asp:tablecell>
									</asp:tablerow>
								</asp:table>
							</asp:tablecell>
						</asp:tablerow>
						<asp:tablerow>
							<asp:tablecell width="50%" verticalalign="Top"><asp:panel id="plHome" runat="server" /></asp:tablecell>
							<asp:tablecell width="50%" verticalalign="Top"><asp:panel id="plAway" runat="server" /></asp:tablecell>
						</asp:tablerow>
					</asp:table>
				</asp:tablecell>
			</asp:tablerow>
			<asp:tablerow>
				<asp:tablecell>Skriv inte in utvisningar <asp:checkbox id="ckxPenalty" runat="server" /></asp:tablecell>
			</asp:tablerow>
			<asp:tablerow>
				<asp:tablecell>
					<asp:table id="tblPenalty" runat="server" cellpadding="0" cellspacing="0" width="550px">
						<asp:tablerow>
							<asp:tablecell width="50%" verticalalign="Top">Skriv inte in utvisningar för <asp:label id="lblHome1" runat="server" /><asp:checkbox id="ckxHomePenalty" runat="server" /></asp:tablecell>
							<asp:tablecell width="50%" verticalalign="Top">Skriv inte in utvisningar för <asp:label id="lblAway1" runat="server" /><asp:checkbox id="ckxAwayPenalty" runat="server" /></asp:tablecell>
						</asp:tablerow>
						<asp:tablerow>
							<asp:tablecell width="50%" verticalalign="Top"><b>Antalet utvisningar: </b><asp:dropdownlist id="ddlHomePenalty" runat="server" autopostback="True" onselectedindexchanged="showHomePenalty" /></asp:tablecell>
							<asp:tablecell width="50%" verticalalign="Top"><b>Antalet utvisningar: </b><asp:dropdownlist id="ddlAwayPenalty" runat="server" autopostback="True" onselectedindexchanged="showAwayPenalty" /></asp:tablecell>
						</asp:tablerow>
						<asp:tablerow>
							<asp:tablecell width="50%" verticalalign="Top">
								<asp:table id="tblHomePenaltyHeader" runat="server" cellpadding="0" cellspacing="0">
									<asp:tablerow>
										<asp:tablecell width="50px">Tid</asp:tablecell>
										<asp:tablecell width="60px">Min</asp:tablecell>
										<asp:tablecell width="50px">Orsak</asp:tablecell>
										<asp:tablecell width="50px">Spelare</asp:tablecell>
									</asp:tablerow>
								</asp:table>
							</asp:tablecell>
							<asp:tablecell width="50%" verticalalign="Top">
								<asp:table id="tblAwayPenaltyHeader" runat="server" cellpadding="0" cellspacing="0">
									<asp:tablerow>
										<asp:tablecell width="50px">Tid</asp:tablecell>
										<asp:tablecell width="60px">Min</asp:tablecell>
										<asp:tablecell width="50px">Orsak</asp:tablecell>
										<asp:tablecell width="50px">Spelare</asp:tablecell>
									</asp:tablerow>
								</asp:table>
							</asp:tablecell>
						</asp:tablerow>
						<asp:tablerow>
							<asp:tablecell width="50%" verticalalign="Top"><asp:panel id="plHomePenalty" runat="server" /></asp:tablecell>
							<asp:tablecell width="50%" verticalalign="Top"><asp:panel id="plAwayPenalty" runat="server" /></asp:tablecell>
						</asp:tablerow>
					</asp:table>
				</asp:tablecell>
			</asp:tablerow>
			<asp:tablerow>
				<asp:tablecell>
					
				</asp:tablecell>
			</asp:tablerow>
		</asp:table>
---------------------------------------------

codebehind filen
---------------------------------------------
Public tblrantal As TableRow
    Public tblrResultat As TableRow
    Public lblresultat As Label

    Public dg_serier As DataGrid
    Public lblError As Label
    Public dg_Matcher As DataGrid
    Public tblFakta As Table
    Public tblGoals As Table
    Public tblPenalty As Table
    Public tblInfo As Table

    Dim objconn As New OleDbConnection(ConfigurationSettings.AppSettings("connectionstring"))
    'Dim objconn As New OdbcConnection(ConfigurationSettings.AppSettings("connectionstring1"))

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            bindserie()
            fillpenalty()
        End If
    End Sub

    Public Sub bindserie()
        Dim lagID As Integer = Session("lag")
        If lagID = "0" Then
            Dim objcmd As New OleDbDataAdapter _
                        ("select namn, id from serier order by namn", objconn)

            Dim ds As DataSet = New DataSet()
            objcmd.Fill(ds, "serier")

            dg_serier.DataSource = ds.Tables("serier"). _
            DefaultView
            If ds.Tables("serier").Rows.Count = 0 Then
                lblError.Text = "Ditt lag har inte skrivit in några serier än"
                dg_serier.Visible = False
            Else
                dg_serier.DataBind()
            End If
        Else
            Dim objcmd As New OleDbDataAdapter _
                                    ("select namn, id from serier where lagID=" & lagID & " order by namn", objconn)

            Dim ds As DataSet = New DataSet()
            objcmd.Fill(ds, "serier")

            dg_serier.DataSource = ds.Tables("serier"). _
            DefaultView
            If ds.Tables("serier").Rows.Count = 0 Then
                lblError.Text = "Ditt lag har inte skrivit in några serier än"
                dg_serier.Visible = False
            Else
                dg_serier.DataBind()
            End If
        End If
    End Sub

    Public Sub skapa(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
        dg_serier.Visible = False
        dg_Matcher.Visible = True
        Dim serie_id As Integer = dg_serier.DataKeys(CType(e.Item.ItemIndex, Integer))
        Dim objcmd As New OleDbDataAdapter _
            ("select l1.namn as lag1, l2.namn as lag2,m.id,m.lagID,m.omgang,m.tid,m.datum,m.lagid_a,m.lagid_b,m.uppdaterad,m.resultat_a,m.resultat_b, m.slutspel from (s_deltagande_lag as l1 inner join s_matcher as m on l1.id = m.lagid_a) inner join s_deltagande_lag l2 on m.lagid_b = l2.id where m.uppdaterad= true and (l1.namn = 'Tibro IK' or l2.namn ='Tibro IK') and m.serie_ID = " & serie_id & " order by m.omgang desc", objconn)
        objconn.Close()
        objconn.Open()
        Dim ds As DataSet = New DataSet()
        objcmd.Fill(ds, "resultat")

        dg_Matcher.DataSource = ds.Tables("resultat"). _
        DefaultView
        If ds.Tables("resultat").Rows.Count = 0 Then
            lblError.Text = "Det finns inga matcher. Resultate måste vara uppdaterat för att skriva in matchfakta"
        Else
            dg_Matcher.DataBind()
        End If

    End Sub

    Public lblMatch As Label
    Public lblSlutResultat As Label
    Public plHome As Panel
    Public plAway As Panel
    Public plPenalty As Panel
    Public lblHome As Label
    Public lblAway As Label
    Public lblHome1 As Label
    Public lblAway1 As Label
    Public lblHomeChecked As Label
    Public lblAwayChecked As Label

    Public Sub matcher(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
        Dim MatchID As Integer = dg_Matcher.DataKeys(CType(e.Item.ItemIndex, Integer))
        Viewstate("matchID") = MatchID
        goals()
    End Sub

    Public Sub goals()
        Dim match As String
        Dim resultat As String
        Dim homeGoals As Integer
        Dim home As Integer
        Dim away As Integer
        Dim Lag1 As String
        Dim lag2 As String
        Dim awayGoals As Integer
        Dim serie As Integer
        Dim plHome1 As Panel = New Panel()
        Dim plAway1 As Panel = New Panel()
        dg_serier.Visible = False
        dg_Matcher.Visible = False
        tblFakta.Visible = True
        Dim strSQL As String = String.Format("select l1.namn as lag1, l2.namn as lag2,m.id,m.lagID,m.omgang,m.serie_id,m.tid,m.datum,m.lagid_a,m.lagid_b,m.uppdaterad,m.resultat_a,m.resultat_b, m.slutspel from (s_deltagande_lag as l1 inner join s_matcher as m on l1.id = m.lagid_a) inner join s_deltagande_lag l2 on m.lagid_b = l2.id where m.ID = {0}", viewstate("matchID"))
        Dim objcmd1 As New OleDbCommand(strSQL, objconn)
        Dim dr As OleDbDataReader
        objconn.Close()
        objconn.Open()
        dr = objcmd1.ExecuteReader
        If dr.Read Then
            match = dr("lag1") & " - " & dr("lag2")
            resultat = dr("resultat_a") & "-" & dr("resultat_b")
            home = dr("lagid_a")
            viewstate("home") = home
            away = dr("lagid_b")
            viewstate("away") = away
            Lag1 = dr("lag1")
            lag2 = dr("lag2")
            serie = dr("serie_id")
            viewstate("serie") = serie
            homeGoals = CInt(dr("resultat_a"))
            awayGoals = CInt(dr("resultat_b"))
        End If
        objconn.Close()
        lblMatch.Text = match
        lblSlutResultat.Text = resultat
        lblHome.Text = Lag1
        lblAway.Text = lag2
        lblHome1.Text = Lag1
        lblAway1.Text = lag2
        Dim i As Integer
        For i = 1 To homeGoals
            Dim tblHome As Table = New Table()
            tblHome.Width = Unit.Pixel(250)
            tblHome.CellPadding = "0"
            tblHome.CellSpacing = "0"
            Dim tblrHome As TableRow = New TableRow()
            Dim tblc1 As TableCell = New TableCell()
            tblc1.Width = Unit.Pixel(50)
            Dim tblc2 As TableCell = New TableCell()
            tblc2.Width = Unit.Pixel(50)
            Dim tblc3 As TableCell = New TableCell()
            tblc3.Width = Unit.Pixel(50)
            Dim tblc4 As TableCell = New TableCell()
            tblc4.Width = Unit.Pixel(50)
            Dim tblc5 As TableCell = New TableCell()
            tblc5.Width = Unit.Pixel(50)
            Dim tbMal As TextBox = New TextBox()
            tbmal.ID = "tbHomeGoal" & i
            tbmal.Width = Unit.Pixel(40)
            Dim tbTid As TextBox = New TextBox()
            tbTid.ID = "tbHomeTime " & i
            tbTid.Width = Unit.Pixel(35)
            Dim ddlScorer As DropDownList = New DropDownList()
            ddlScorer.ID = "ddlHomescorer" & i
            ddlscorer.DataSource = fillddl(home, serie)
            ddlScorer.DataTextField = "SpelarID"
            Dim ddlFirstAss As DropDownList = New DropDownList()
            ddlfirstass.ID = "ddlHomeFirstAss" & i
            ddlfirstass.DataSource = fillddl(home, serie)
            ddlFirstass.DataTextField = "SpelarID"
            Dim ddlSecondAss As DropDownList = New DropDownList()
            ddlSecondAss.ID = "ddlHomeSecondAss" & i
            ddlSecondAss.DataSource = fillddl(home, serie)
            ddlSecondass.DataTextField = "SpelarID"
            tblc1.Controls.Add(tbMal)
            tblc2.Controls.Add(tbTid)
            tblc3.Controls.Add(ddlScorer)
            tblc4.Controls.Add(ddlFirstAss)
            tblc5.Controls.Add(ddlSecondAss)
            tblrHome.Cells.Add(tblc1)
            tblrHome.Cells.Add(tblc2)
            tblrHome.Cells.Add(tblc3)
            tblrHome.Cells.Add(tblc4)
            tblrHome.Cells.Add(tblc5)
            tblHome.Rows.Add(tblrHome)
            plHome1.Controls.Add(tblHome)
        Next

        For i = 1 To awayGoals
            Dim tblAway As Table = New Table()
            tblAway.Width = Unit.Pixel(250)
            tblAway.CellPadding = "0"
            tblAway.CellSpacing = "0"
            Dim tblrAway As TableRow = New TableRow()
            Dim tblc1 As TableCell = New TableCell()
            tblc1.Width = Unit.Pixel(50)
            Dim tblc2 As TableCell = New TableCell()
            tblc2.Width = Unit.Pixel(50)
            Dim tblc3 As TableCell = New TableCell()
            tblc3.Width = Unit.Pixel(50)
            Dim tblc4 As TableCell = New TableCell()
            tblc4.Width = Unit.Pixel(50)
            Dim tblc5 As TableCell = New TableCell()
            tblc5.Width = Unit.Pixel(50)
            Dim tbMal As TextBox = New TextBox()
            tbmal.ID = "tbAwayGoal" & i
            tbmal.Width = Unit.Pixel(40)
            Dim tbTid As TextBox = New TextBox()
            tbTid.ID = "tbAwayTime " & i
            tbTid.Width = Unit.Pixel(35)
            Dim ddlScorer As DropDownList = New DropDownList()
            ddlScorer.ID = "ddlHomescorer" & i
            ddlscorer.DataSource = fillddl(away, serie)
            ddlScorer.DataTextField = "SpelarID"
            Dim ddlFirstAss As DropDownList = New DropDownList()
            ddlfirstass.ID = "ddlAwayFirstAss" & i
            ddlfirstass.DataSource = fillddl(away, serie)
            ddlFirstass.DataTextField = "SpelarID"
            Dim ddlSecondAss As DropDownList = New DropDownList()
            ddlSecondAss.ID = "ddlAwaySecondAss" & i
            ddlSecondAss.DataSource = fillddl(away, serie)
            ddlSecondass.DataTextField = "SpelarID"
            tblc1.Controls.Add(tbMal)
            tblc2.Controls.Add(tbTid)
            tblc3.Controls.Add(ddlScorer)
            tblc4.Controls.Add(ddlFirstAss)
            tblc5.Controls.Add(ddlSecondAss)
            tblrAway.Cells.Add(tblc1)
            tblrAway.Cells.Add(tblc2)
            tblrAway.Cells.Add(tblc3)
            tblrAway.Cells.Add(tblc4)
            tblrAway.Cells.Add(tblc5)
            tblAway.Rows.Add(tblrAway)
            plAway1.Controls.Add(tblAway)
        Next


        plHome.Controls.Add(plHome1)
        plAway.Controls.Add(plAway1)
        DataBind()
    End Sub

    Public Function fillddl(ByVal x As Integer, ByVal y As Integer)
        Dim objcmd1 As New OleDbDataAdapter _
            ("select SpelarID, Id from statistik where serieID=" & y & " and lagID=" & x & "", objconn)
        Dim ds1 As DataSet = New DataSet()
        objcmd1.Fill(ds1, "deltagandelag")

        Return ds1.Tables("deltagandelag")
    End Function

    Public ddlHomePenalty As DropDownList
    Public ddlAwayPenalty As DropDownList

    Public Sub fillpenalty()
        Dim i As Integer
        ddlHomePenalty.Items.Add(" ")
        For i = 1 To 40
            ddlHomePenalty.Items.Add(i)
        Next
        ddlAwayPenalty.Items.Add(" ")
        For i = 1 To 40
            ddlAwayPenalty.Items.Add(i)
        Next
        DataBind()
    End Sub

    Public Function fillPenaltys()
        Dim objcmd1 As New OleDbDataAdapter _
                    ("select Namn,Kod from Penaltys", objconn)
        Dim ds1 As DataSet = New DataSet()
        objcmd1.Fill(ds1, "Penaltys")

        Return ds1.Tables("Penaltys")
    End Function


    Public plHomePenalty As Panel
    Public plAwayPenalty As Panel

    Public Sub showHomePenalty(ByVal sender As Object, ByVal e As EventArgs)
        tblFakta.Visible = True
        Dim plHomepenalty1 As Panel = New Panel()
        Dim i As Integer
        viewstate("HomePenalty") = ddlHomePenalty.SelectedItem.Value
        For i = 1 To viewstate("HomePenalty")
            Dim tbl As Table = New Table()
            tbl.Width = Unit.Pixel(210)
            tbl.CellPadding = "0"
            tbl.CellSpacing = "0"
            Dim tblr As TableRow = New TableRow()
            Dim tblc1 As TableCell = New TableCell()
            tblc1.Width = Unit.Pixel(50)
            Dim tblc2 As TableCell = New TableCell()
            tblc2.Width = Unit.Pixel(60)
            Dim tblc3 As TableCell = New TableCell()
            tblc3.Width = Unit.Pixel(50)
            Dim tblc4 As TableCell = New TableCell()
            tblc4.Width = Unit.Pixel(50)
            Dim tbTid As TextBox = New TextBox()
            tbTid.ID = "tbHomePenaltyTime " & i
            tbTid.Width = Unit.Pixel(35)
            Dim tbMinuter As TextBox = New TextBox()
            tbMinuter.ID = "tbHomePenaltyMin " & i
            tbMinuter.Width = Unit.Pixel(45)
            Dim ddlHomeOrsak As DropDownList = New DropDownList()
            ddlHomeOrsak.ID = "ddlHomeOrsak" & i
            ddlHomeOrsak.DataSource = fillPenaltys()
            ddlHomeOrsak.DataTextField = "Namn"
            ddlHomeOrsak.DataValueField = "kod"
            Dim ddlHomePlayer As DropDownList = New DropDownList()
            ddlHomePlayer.ID = "ddlHomePlayer" & i
            ddlHomePlayer.DataSource = fillddl(viewstate("home"), viewstate("serie"))
            ddlHomePlayer.DataTextField = "SpelarID"
            tblc1.Controls.Add(tbTid)
            tblc2.Controls.Add(tbMinuter)
            tblc3.Controls.Add(ddlHomeOrsak)
            tblc4.Controls.Add(ddlHomePlayer)
            tblr.Cells.Add(tblc1)
            tblr.Cells.Add(tblc2)
            tblr.Cells.Add(tblc3)
            tblr.Cells.Add(tblc4)
            tbl.Rows.Add(tblr)
            plHomepenalty1.Controls.Add(tbl)
        Next
        plHomePenalty.Controls.Add(plHomepenalty1)

    End Sub

    Public Sub showAwayPenalty(ByVal sender As Object, ByVal e As EventArgs)
        tblFakta.Visible = True
        Dim plAwaypenalty1 As Panel = New Panel()
        Dim i As Integer
        viewstate("awayPenalty") = ddlAwayPenalty.SelectedItem.Value

        For i = 1 To viewstate("awayPenalty")
            Dim tbl As Table = New Table()
            tbl.Width = Unit.Pixel(210)
            tbl.CellPadding = "0"
            tbl.CellSpacing = "0"
            Dim tblr As TableRow = New TableRow()
            Dim tblc1 As TableCell = New TableCell()
            tblc1.Width = Unit.Pixel(50)
            Dim tblc2 As TableCell = New TableCell()
            tblc2.Width = Unit.Pixel(60)
            Dim tblc3 As TableCell = New TableCell()
            tblc3.Width = Unit.Pixel(50)
            Dim tblc4 As TableCell = New TableCell()
            tblc4.Width = Unit.Pixel(50)
            Dim tbAwayTid As TextBox = New TextBox()
            tbAwayTid.ID = "tbHomePenaltyTime " & i
            tbAwayTid.Width = Unit.Pixel(35)
            Dim tbAwayMinuter As TextBox = New TextBox()
            tbAwayMinuter.ID = "tbHomePenaltyMin " & i
            tbAwayMinuter.Width = Unit.Pixel(45)
            Dim ddlAwayOrsak As DropDownList = New DropDownList()
            ddlAwayOrsak.ID = "ddlAwayOrsak" & i
            ddlAwayOrsak.DataSource = fillPenaltys()
            ddlAwayOrsak.DataTextField = "Namn"
            ddlAwayOrsak.DataValueField = "kod"
            Dim ddlAwayPlayer As DropDownList = New DropDownList()
            ddlAwayPlayer.ID = "ddlAwayPlayer" & i
            ddlAwayPlayer.DataSource = fillddl(viewstate("Away"), viewstate("serie"))
            ddlAwayPlayer.DataTextField = "SpelarID"
            tblc1.Controls.Add(tbAwayTid)
            tblc2.Controls.Add(tbAwayMinuter)
            tblc3.Controls.Add(ddlAwayOrsak)
            tblc4.Controls.Add(ddlAwayPlayer)
            tblr.Cells.Add(tblc1)
            tblr.Cells.Add(tblc2)
            tblr.Cells.Add(tblc3)
            tblr.Cells.Add(tblc4)
            tbl.Rows.Add(tblr)
            plAwaypenalty1.Controls.Add(tbl)
        Next
        plAwayPenalty.Controls.Add(plAwaypenalty1)
    End Sub
------------------------------------