DataGrid,checkbox和button的问题！！

'获得选中的客户代号
    Sub subGetSelectedCode(ByRef strClientCode As String, ByRef strScheduleNbr As String, ByRef strProdCode As String, ByRef strClientName As String, ByRef strProdName As String, ByRef strStartDate As String, ByRef strEndDate As String, ByRef intSelected As Integer)
        Dim i, j As Integer
        j = 0
        strClientCode = ""
        strScheduleNbr = ""
        strProdCode = ""
        strClientName = ""
        strProdName = ""
        For i = 0 To dgSchedule.Items.Count - 1
            If dgSchedule.Items(i).ItemType = ListItemType.AlternatingItem Or dgSchedule.Items(i).ItemType = ListItemType.Item Then
                Dim ch As CheckBox = CType(dgSchedule.Items(i).FindControl("CheckBox1"), CheckBox)
                If ch.Checked = True Then
                    strClientCode = dgSchedule.Items(i).Cells(2).Text
                    strScheduleNbr = dgSchedule.Items(i).Cells(6).Text
                    strProdCode = dgSchedule.Items(i).Cells(3).Text
                    strClientName = dgSchedule.Items(i).Cells(4).Text
                    strProdName = dgSchedule.Items(i).Cells(5).Text
                    strStartDate = dgSchedule.Items(i).Cells(7).Text
                    strEndDate = dgSchedule.Items(i).Cells(8).Text
                    j = j + 1
                End If
            End If
        Next
        intSelected = j
    End SubPrivate Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Dim dt As New DataTable
        Dim dt1 As New DataTable        Call subGetSelectedCode(strClientCode, strScheduleNbr, strProdCode, strClientName, strProdName, strStartDate, strEndDate, intNoOfSelected)
        If intNoOfSelected <> 1 Then
            strErrorMessage = ERR_SELECT_ONE_RECORD
            Exit Sub
        End If        '此处加判断在insertion表中是否存在该schedule number，如果存在则不能删除。
        Call sub_S020D_IfSchNumExistInIns(intUserSlot, strClientCode, strScheduleNbr, dt1)
        If dt1.Rows.Count > 0 Then
            strErrorMessage = EER_SCHEDULE_HAS_INSERTION
            Exit Sub
        Else
            Call subDeleteOneMediaSchedule(intUserSlot, strClientCode, strScheduleNbr)
            Call subSetPageIndex(dgSchedule)
            Call subBindGrid()
        End If
    End Sub