Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: ASP VB.NET
I am working on a survey and a have a chechkbox list, I need at the and to prevent that tthe chechkboxes are not left unchechked.
 
in the asp net code I have chosed as <asp:customvalidator>
 
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        For Each item As DataListItem In DataList1.Items
            If item.ItemType = ListItemType.Item Or item.ItemType = ListItemType.AlternatingItem Then
                Dim questionid As Integer
                Dim choiceid As Integer = 0
                Dim choicetext As String = ""
                questionid = CType(item.FindControl("Label3"), Label).Text
                Dim anstype As HiddenField = item.FindControl("HiddenField1")
                Select Case anstype.Value
                    Case "S"
                        Dim rbl As RadioButtonList = item.FindControl("RadioButtonList1")
                        If rbl.SelectedValue = "" Then
                            choiceid = 0
                        Else
                            choiceid = rbl.SelectedValue
                        End If
                        SaveAnswer(questionid, choiceid, "")
                    Case "M"
                        Dim cbl As CheckBoxList = item.FindControl("CheckBoxList1")
                        For i As Integer = 0 To cbl.Items.Count - 1
                            If cbl.Items(i).Selected Then
                                choiceid = cbl.Items(i).Value
 
                            Else
                                'MsgBox.show("Ve molime dopolnete gi site prasanja")
                            End If
                            SaveAnswer(questionid, choiceid, "")
                        Next
                    Case "T"
                        Dim txt As TextBox = item.FindControl("TextBox1")
                        choicetext = txt.Text
                        SaveAnswer(questionid, 0, choicetext)
                End Select
            End If
        Next
        DataList1.Visible = False
        Label5.Text = "Ви благодариме за учеството во анкетата!"
    End Sub
Posted 9-May-13 23:02pm
Voley415
v3
Rate this: bad
good
Please Sign up or sign in to vote.

Solution 2

YOur question isn't clear. Give a brief description of your problem. I'll try to provide a solution.
  Permalink  
Comments
richcb at 10-May-13 15:55pm
   
Why did you post a comment as a solution to a question? Do you see a problem in that login?

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 OriginalGriff 7,903
1 Sergey Alexandrovich Kryukov 7,142
2 DamithSL 5,604
3 Manas Bhardwaj 4,986
4 Maciej Los 4,820


Advertise | Privacy | Mobile
Web02 | 2.8.1411023.1 | Last Updated 10 May 2013
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100