Как добавить кнопку или ссылку кнопку внутри asp: TableCell (пользовательская таблица) - ASP.NET

Question

Я хочу добавить кнопку в пользовательскую таблицу в последнем столбце «Статус». здесь я прилагаю код и изображение ниже. Затем я добавляю функцию кнопки под ElseIf i = 24. но получил ошибку в этой строке -> lbtn.Click + = New EventHandler (AddressOf LinkButton1_Click). пожалуйста помоги ! Спасибо Advance.

введите описание изображения здесь

If strPaymentType = "Cashless" Then
                For int_j = 1 To 1
                    Dim tR As New TableRow
                    Dim tC As New TableCell
                    Dim tableUp As New Table
                    Dim trow3 As New TableRow
                    Dim tcell4 As New TableCell

                    tC.ColumnSpan = 24 '25
                    tC.BackColor = Drawing.Color.White

                    If dsPAMReport.tblTranDetRpt.Rows.Count > 0 Then
                        lblfound.Visible = True
                        lblfound.Text = dsPAMReport.tblTranDetRpt.Rows.Count.ToString & ControlChars.Tab & " record found"
                        lblfound.ForeColor = Drawing.Color.White
                        For Each drDetRpt In dsPAMReport.tblTranDetRpt
                            tcell4.Text = "Machine No : " & ControlChars.Tab & drDetRpt.strMachID & ControlChars.NewLine
                            tcell4.BackColor = Drawing.Color.White
                            tcell4.Font.Bold = True
                            tcell4.ForeColor = Drawing.Color.Blue
                            tcell4.Font.Size = 10
                            tcell4.ColumnSpan = 23 '25 ' 16
                            'trow3.Cells.Add
                            trow3.Cells.Add(tcell4)
                            tableUp.Rows.Add(trow3)

                            tC.Controls.AddAt(0, tableUp)

                            Dim tableIn As New Table
                            tableIn.Width = tbl_proj.Width
                            tableIn.CellPadding = 1
                            tableIn.CellSpacing = 0
                            tableIn.BorderWidth = 1
                            tableIn.BackColor = Drawing.Color.Gray
                            Dim tRow As New TableRow
                            Dim trow2 As New TableRow

                            If (int_i Mod 2 = 0) Then
                                tRow.BackColor = Drawing.Color.LightGreen
                                trow2.BackColor = Drawing.Color.LightGreen
                            Else
                                tRow.BackColor = Drawing.Color.White
                                trow2.BackColor = Drawing.Color.White
                            End If
                            'tRow.Width = "2800"
                            'trow2.Width = "2800"
                            For i = 1 To 23
                                'tCell.ColumnSpan = 13
                                Dim tcell As New TableCell
                                Dim tcell3 As New TableCell
                                Dim tcell2 As New TableCell
                                If i = 1 Then

                                    tcell3.Text = drDetRpt.strDateTime
                                    trow2.Cells.Add(tcell3)
                                    tcell3.RowSpan = 2
                                    tcell3.Width = tc1.Width
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                ElseIf i = 2 Then
                                    tcell3.Text = drDetRpt.strProcessingDate

                                    trow2.Cells.Add(tcell3)
                                    tcell3.RowSpan = 2
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc27.Width
                                ElseIf i = 3 Then
                                    'tcell3.Text = drDetRpt.strPaymentType
                                    'trow2.Cells.Add(tcell3)
                                    'tcell3.RowSpan = 2
                                    'tcell3.HorizontalAlign = HorizontalAlign.Center
                                    'tcell2.HorizontalAlign = HorizontalAlign.Center
                                    'tcell3.Width = t30.Width


                                    strValue1 = drDetRpt.strPayTypeCode
                                    tcell3.Text = strValue1
                                    trow2.Cells.Add(tcell3)
                                    tcell3.RowSpan = 2
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center

                                    If strValue1 = "336" Then
                                        strValue2 = "Touch&Go"
                                        tcell3.Text = strValue2

                                    ElseIf strValue1 = "320" Then
                                        strValue2 = "Boost"
                                        tcell3.Text = strValue2
                                    ElseIf strValue1 = "01" Then
                                        strValue2 = "Cash"
                                        tcell3.Text = strValue2
                                    ElseIf strValue1 = "0" Then
                                        tcell3.Text = "Cashless"
                                    ElseIf strValue1 = "" Then
                                        tcell3.Text = "Cashless"
                                    End If


                                ElseIf i = 4 Then
                                    tcell3.Text = drDetRpt.strLinkID
                                    tcell3.Text = drDetRpt.strPOSOnlineRefNo
                                    trow2.Cells.Add(tcell3)
                                    tcell3.RowSpan = 2
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = Tc26.Width
                                    'ElseIf i = 3 Then
                                    '    tcell.Text = drDetRpt.strPOSOnlineRefNo
                                    '    trow2.Cells.Add(tcell)
                                    '    tcell.RowSpan = 2
                                    '    tcell.HorizontalAlign = HorizontalAlign.Center
                                    '    tcell.HorizontalAlign = HorizontalAlign.Center
                                    '    tcell3.Width = Tc26.Width
                                ElseIf i = 5 Then
                                    tcell3.Text = drDetRpt.strTransNo
                                    trow2.Cells.Add(tcell3)
                                    tcell3.RowSpan = 2
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc2.Width

                                ElseIf i = 6 Then
                                    tcell3.Text = drDetRpt.strProdType
                                    trow2.Cells.Add(tcell3)
                                    tcell3.RowSpan = 2
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc3.Width
                                ElseIf i = 7 Then
                                    tcell3.Text = drDetRpt.strAcctNo
                                    trow2.Cells.Add(tcell3)
                                    tcell3.RowSpan = 2
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc4.Width
                                ElseIf i = 8 Then
                                    tcell3.Text = drDetRpt.strBillNo
                                    trow2.Cells.Add(tcell3)
                                    tcell3.RowSpan = 2
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc5.Width
                                ElseIf i = 9 Then
                                    tcell3.Text = drDetRpt.strPostalRefNo
                                    trow2.Cells.Add(tcell3)
                                    tcell3.RowSpan = 2
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc19.Width
                                ElseIf i = 10 Then
                                    tcell3.Text = "Deposited"
                                    tcell2.Text = "Dispensed"
                                    trow2.Cells.Add(tcell2)
                                    tcell3.Font.Bold = True
                                    tcell2.Font.Bold = True
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc6.Width
                                ElseIf i = 11 Then
                                    tcell3.Text = drDetRpt.int10CentDep
                                    tcell2.Text = drDetRpt.int10CentDisp
                                    trow2.Cells.Add(tcell2)
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc10.Width
                                ElseIf i = 12 Then
                                    tcell3.Text = drDetRpt.int20CentDep
                                    tcell2.Text = drDetRpt.int20CentDisp
                                    trow2.Cells.Add(tcell2)
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc11.Width
                                ElseIf i = 13 Then
                                    tcell3.Text = drDetRpt.int50CentDep
                                    tcell2.Text = drDetRpt.int50CentDisp
                                    trow2.Cells.Add(tcell2)
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc12.Width
                                ElseIf i = 14 Then
                                    tcell3.Text = drDetRpt.intRM1Dep
                                    tcell2.Text = drDetRpt.intRM1Disp
                                    trow2.Cells.Add(tcell2)
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc13.Width
                                ElseIf i = 15 Then
                                    tcell3.Text = drDetRpt.intRM2Dep
                                    tcell2.Text = drDetRpt.intRM2Disp
                                    trow2.Cells.Add(tcell2)
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc14.Width
                                ElseIf i = 16 Then
                                    tcell3.Text = drDetRpt.intRM5Dep
                                    tcell2.Text = drDetRpt.intRM5Disp
                                    trow2.Cells.Add(tcell2)
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc15.Width
                                ElseIf i = 17 Then
                                    tcell3.Text = drDetRpt.intRM10Dep
                                    tcell2.Text = drDetRpt.intRM10Disp
                                    trow2.Cells.Add(tcell2)
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc16.Width
                                ElseIf i = 18 Then
                                    tcell3.Text = drDetRpt.intRM20Dep
                                    tcell2.Text = "0"
                                    trow2.Cells.Add(tcell2)
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc20.Width
                                ElseIf i = 19 Then
                                    tcell3.Text = drDetRpt.intRM50Dep
                                    tcell2.Text = drDetRpt.intRM50Disp
                                    trow2.Cells.Add(tcell2)
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc17.Width
                                ElseIf i = 20 Then
                                    tcell3.Text = drDetRpt.intRM100Dep
                                    tcell2.Text = drDetRpt.intRM100Disp
                                    trow2.Cells.Add(tcell2)
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc18.Width
                                ElseIf i = 21 Then
                                    tcell3.Text = drDetRpt.dblTotalDep.ToString("0.00")
                                    tcell2.Text = drDetRpt.dblTotalDisp.ToString("0.00")
                                    trow2.Cells.Add(tcell2)
                                    'sree
                                    tcell3.HorizontalAlign = HorizontalAlign.Right
                                    tcell2.HorizontalAlign = HorizontalAlign.Right
                                    tcell3.Width = tc8.Width
                                ElseIf i = 22 Then
                                    tcell3.Text = drDetRpt.strTransStatus.ToString & " (" & getTransStatus2(drDetRpt.strTransStatus.ToString) & ")"
                                    trow2.Cells.Add(tcell3)
                                    tcell3.RowSpan = 2
                                    tcell3.HorizontalAlign = HorizontalAlign.Right
                                    tcell2.HorizontalAlign = HorizontalAlign.Right
                                    tcell3.Width = tc9.Width
                                ElseIf i = 23 Then

                                    tcell3.Text = drDetRpt.dblAmount.ToString("0.00")
                                    trow2.Cells.Add(tcell3)
                                    tcell3.RowSpan = 2
                                    tcell3.HorizontalAlign = HorizontalAlign.Center
                                    tcell2.HorizontalAlign = HorizontalAlign.Center
                                    tcell3.Width = tc21.Width

                                ElseIf i = 24 Then
                                    Dim lbtn As LinkButton = New LinkButton()
                                    lbtn.Text = "Pending"
                                    lbtn.Click += New EventHandler(AddressOf LinkButton1_Click)
                                    tcell3.Controls.Add(lbtn)
                                    tcell3.Width = tc31.Width

                                End If
                                tRow.Cells.Add(tcell3)
                            Next
                            int_i = int_i + 1



                            tableIn.Rows.Add(tRow)
                            tableIn.Rows.Add(trow2)
                            tC.Controls.Add(tableIn)

                        Next
                    Else

                    End If
                    tR.Cells.Add(tC)
                    tbl_proj.Rows.Add(tR)
                    int_k = int_k + 1
                Next
            End If