Πρώτα Βήματα - Web Development

Απ: Re: check box list...submit its values!!!

anjelinio — Thu, 06 Nov 2008 06:32:11 GMT

Έχει enabled το viewstate το CheckBoxList σου;

Re: check box list...submit its values!!!

Oldgeorge — Thu, 06 Nov 2008 03:21:38 GMT

Όπως βλέπω τον κώδικα σου, αυτό που κάνεις είναι ότι δημιουργείς ένα databound checkbox list από κάποιο πίνακα και στην συνέχεια στο submit τροφοδοτείς κάποιο insert command με το αν τα πρώτα 3 items της λίστας σου είναι επιλεγμένα ή όχι (και όχι τα databound values).

Πέρα από το γεγονός ότι ο παραπάνω κώδικας μπορεί να εκραγεί με Object Reference Exception αν η λίστα δεν έχει 3 τουλάχιστον αντικείμενα, μάλλον δεν είναι αυτό που θέλεις να κάνεις. Για να αποθηκεύσεις τις επιλογές του χρήστη πρέπει να ακολουθήσεις κάποια iterative λογική στο submit, κάτι σε στυλ:

Dim myItem As System.Web.UI.WebControls.ListItem

For Each myItem In ckboxlist1.Items

If myItem.Selected Then

{κώδικας για insert εδώ}

End If

Επίσης δε, καθώς μάλλον χρειάζεται άλλη γραμμογράφηση ο πίνακας που θα αποθηκεύσεις τις επιλογές του χρήστη, χρειάζεται και κάποιο foreign key για να αναγνωριστεί η μοναδικότητα αυτών (κάποιο userID, sessionID, κλπ).

Ελπίζω να κατάλαβα ορθά το πρόβλημα και να βοήθησα κάπως.

check box list...submit its values!!!

Scientist — Tue, 04 Nov 2008 20:45:09 GMT

Καλησπέρα σε όλους

θελω να φτιαξω μια σελίδα η οποία θα περιεχει μια λιστα με checkboxes...από αυτή τη λίστα θα διαλεγω καποιες τιμες και θα καταχωρω.

Εχω φτιαξει το Checkbox list...αλλα κατα τη καταχωρηση μου βγαζει λαθος τιμες..

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Put user code to initialize the page here

If Not Page.IsPostBack Then

Me.ckboxlist1.DataBind()

Dim Command1 As SqlClient.SqlCommand

Command1 = GetCommand("web_TestEnv")

Command1.Connection.Open()

ckboxlist1.DataValueField = "TESTENV_ID"

ckboxlist1.DataTextField = "TESTENV_DESCR"

ckboxlist1.DataSource = Command1.ExecuteReader

ckboxlist1.DataBind()

Command1.Dispose()

End If

και ο κώδικας για το Submit Button είναι:

Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click

Dim Cmd As SqlClient.SqlCommand = Database.GetCommand("web_CkboxInsert")

Cmd.Parameters.Add("@ckbxid1", SqlDbType.Int).Value = Me.ckboxlist1.Items(0).Selected

Cmd.Parameters.Add("@ckbxid2", SqlDbType.Int).Value = Me.ckboxlist1.Items(1).Selected

Cmd.Parameters.Add("@ckbxid3", SqlDbType.Int).Value = Me.ckboxlist1.Items(2).Selected

Cmd.Parameters.Add("@ErrorMsg", SqlDbType.NVarChar, 250)

Cmd.Parameters("@ErrorMsg").Direction = ParameterDirection.Output

Database.CommandExecuteNonQuery(Cmd, True)

ErrorMsg.Text = Cmd.Parameters("@ErrorMsg").Value

End Sub

---- τι φταιει;;; τι λαθος εχω κανει και μου βγαζει στο πίνακα οπου τσεκαρω στις κολώνες την πρώτη τιμη απο το checkboxlist

Thanks in advance,