CheckBoxList

Question

Hi ,
I have this code, which is working fine for checkbox, which show records on button click event.

Public Sub ChkFunc()

If chk1.Checked = True Then

ShowData1()

ElseIf chk2.Checked = True Then

ShowData2()

End If

here, ShowData1 And ShowData2 are functions()
And ChkFunc I am calling it on button_click event.

Now what I want is , I want to pass same function as I have passed to Checkbox...to CheckBoxList Control..i.e I want to use CheckBoxList Control instead of individual checkbox

How to do it...?

I hope I am Clear with the query..

Plz Help
Thnx

Sanjeeb Lenka · Answer

try like this in button click Protected Sub Button1_Click(sender As Object, e As EventArgs) If CheckBoxList1.SelectedIndex = 0 Then ShowData1() End If If CheckBoxList1.SelectedIndex = 1 Then ShowData2() End If If CheckBoxList1.SelectedIndex = 2 Then ShowData3() End If End Sub

Aman Jen · Answer

Hi, Its working as I want but with code created with webservice

Sanjeeb Lenka · Answer

hi plz tell on which line you got error and the error message.. and share your full page code

Aman Jen · Answer

Hi, Same Error....:(

Sanjeeb Lenka · Answer

hi Aman, You are getting this error due to one SqlCommand object For all three method try to use three different sqlcommand object. i modified your code just check it: Public Sub ShowData1(loancode As String) Dim cmd1 As New SqlCommand() cmd1.Connection = cn cmd1.CommandText = "Select Bor_Name, co_Bor_Name,Intr_Type,Intr_Rest,Curt_ROI,Loan_Sanc,Totl_Loan_Disb,Curt_EMI,Prin_Out From Loan_Acct_Details Where Loan_code=@Loan_code" cmd1.Parameters.AddWithValue("@Loan_code", loancode) Dim da As New SqlDataAdapter(cmd1) Dim ds As New DataSet() da.Fill(ds) GDV1.DataSource = ds GDV1.DataBind() End Sub Public Sub ShowData2(loancode As String) Dim cmd2 As New SqlCommand() cmd2.Connection = cn cmd2.CommandText = "Select Efft_Date,Bank_Fav_Name,chk_Num,co_Bor_Name From Loan_Acct_Details Where Loan_code=@Loan_code" cmd2.Parameters.AddWithValue("@Loan_code", loancode) Dim da As New SqlDataAdapter(cmd2) Dim ds As New DataSet() da.Fill(ds) GDV2.DataSource = ds GDV2.DataBind() End Sub Public Sub ShowData3(loancode As String) Dim cmd3 As New SqlCommand() cmd3.Connection = cn cmd3.CommandText = "Select Intr_Type, Curt_ROI, Loan_Sanc, Prin_Out From Loan_Acct_Details Where Loan_code=@Loan_code" cmd3.Parameters.AddWithValue("@Loan_code", loancode) Dim da As New SqlDataAdapter(cmd3) Dim ds As New DataSet() da.Fill(ds) GDV3.DataSource = ds GDV3.DataBind() End Sub Public Sub Chekbox() For Each lst As ListItem In chklist.Items If lst.Selected Then Dim thisindex As Integer = chklist.Items.IndexOf(lst) If thisindex = 0 Then ShowData1(lst.Value) End If If thisindex = 1 Then ShowData2(lst.Value) End If If thisindex = 2 Then ShowData3(lst.Value) End If End If Next End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) cn.Open() Chekbox() cn.Close() End Sub if any problem reply

Aman Jen · Answer

Hi, Dim ckbox As ListItem For Each ckbox In chklist.Items If ckbox.Selected = True Then If ckbox.Value = "AcctSum" Then ShowData1() End If If ckbox.Value = "DisbSum" Then ShowData2() End If If ckbox.Value = "IntSum" Then ShowData3() End If End If Next Same error with this as well

Aman Jen · Answer

Hi, Not workin....and with code given ..is showing one selection at a time on click event....I guess the problem is with For each loop.... For Each lst As ListItem In chklist.Items If lst.Selected Then Dim thisindex As Integer = chklist.Items.IndexOf(lst) If thisindex = 0 Then ShowData1() End If If thisindex = 1 Then ShowData2() End If If thisindex = 2 Then ShowData3() End If End If Next lst

Sanjeeb Lenka · Answer

try this and reply its working or not Public Sub ShowData1(loancode As String) cmd.Connection = cn cmd.CommandText = "Select Bor_Name, co_Bor_Name,Intr_Type,Intr_Rest,Curt_ROI,Loan_Sanc,Totl_Loan_Disb,Curt_EMI,Prin_Out From Loan_Acct_Details Where Loan_code=@Loan_code" cmd.Parameters.AddWithValue("@Loan_code", loancode) Dim da As New SqlDataAdapter(cmd) Dim ds As New DataSet() da.Fill(ds) GDV1.DataSource = ds GDV1.DataBind() End Sub Public Sub ShowData2(loancode As String) cmd.Connection = cn cmd.CommandText = "Select Efft_Date,Bank_Fav_Name,chk_Num,co_Bor_Name From Loan_Acct_Details Where Loan_code=@Loan_code" cmd.Parameters.AddWithValue("@Loan_code", loancode) Dim da As New SqlDataAdapter(cmd) Dim ds As New DataSet() da.Fill(ds) GDV2.DataSource = ds GDV2.DataBind() End Sub Public Sub ShowData3(loancode As String) cmd.Connection = cn cmd.CommandText = "Select Intr_Type, Curt_ROI, Loan_Sanc, Prin_Out From Loan_Acct_Details Where Loan_code=@Loan_code" cmd.Parameters.AddWithValue("@Loan_code", loancode) Dim da As New SqlDataAdapter(cmd) Dim ds As New DataSet() da.Fill(ds) GDV3.DataSource = ds GDV3.DataBind() End Sub Public Sub Chekbox() For Each lst As ListItem In chklist.Items If lst.Selected Then Dim thisindex As Integer = chklist.Items.IndexOf(lst) If thisindex = 0 Then ShowData1(lst.Value) End If If thisindex = 1 Then ShowData2(lst.Value) End If If thisindex = 2 Then ShowData3(lst.Value) End If End If Next End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) cn.Open() Chekbox() cn.Close() End Sub

Aman Jen · Answer

Public Sub ShowData1() cmd.Connection = cn cmd.CommandText = "Select Bor_Name, co_Bor_Name,Intr_Type,Intr_Rest,Curt_ROI,Loan_Sanc,Totl_Loan_Disb,Curt_EMI,Prin_Out From Loan_Acct_Details Where Loan_code=@Loan_code" cmd.Parameters.AddWithValue("@Loan_code", DP2.SelectedItem.Value) Dim da As New SqlDataAdapter(cmd) Dim ds As New DataSet da.Fill(ds) GDV1.DataSource = ds GDV1.DataBind() End Sub Public Sub ShowData2() cmd.Connection = cn cmd.CommandText = "Select Efft_Date,Bank_Fav_Name,chk_Num,co_Bor_Name From Loan_Acct_Details Where Loan_code=@Loan_code" cmd.Parameters.AddWithValue("@Loan_code", DP2.SelectedItem.Value) Dim da As New SqlDataAdapter(cmd) Dim ds As New DataSet da.Fill(ds) GDV2.DataSource = ds GDV2.DataBind() End Sub Public Sub ShowData3() cmd.Connection = cn cmd.CommandText = "Select Intr_Type, Curt_ROI, Loan_Sanc, Prin_Out From Loan_Acct_Details Where Loan_code=@Loan_code" cmd.Parameters.AddWithValue("@Loan_code", DP2.SelectedItem.Value) Dim da As New SqlDataAdapter(cmd) Dim ds As New DataSet da.Fill(ds) GDV3.DataSource = ds GDV3.DataBind() End Sub Public Sub Chekbox() 'If chklist.SelectedIndex = 0 Then ' ShowData1() 'End If 'If chklist.SelectedIndex = 1 Then ' ShowData2() 'End If 'If chklist.SelectedIndex = 2 Then ' ShowData3() 'End If For Each lst As ListItem In chklist.Items If lst.Selected Then Dim thisindex As Integer = chklist.Items.IndexOf(lst) If thisindex = 0 Then ShowData1() End If If thisindex = 1 Then ShowData2() End If If thisindex = 2 Then ShowData3() End If End If Next End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click cn.Open() Chekbox() cn.Close() End Sub

Sanjeeb Lenka · Answer

can you share your .cs code of methods

Aman Jen · Answer

Hi , Actually I am fetching data from single table with common index column..@Loan_code...If use For Each lst As ListItem In chklist.Items If lst.Selected Then Dim thisindex As Integer = chklist.Items.IndexOf(lst) If thisindex = 0 Then ShowData1() End If If thisindex = 1 Then ShowData2() End If If thisindex = 2 Then ShowData3() End If End If Next End Sub It says The variable name '@Loan_code' has already been declared. Variable names must be unique within a query batch or stored procedure. ANd if I use this code 'If chklist.SelectedIndex = 0 Then ' ShowData1() 'End If 'If chklist.SelectedIndex = 1 Then ' ShowData2() 'End If 'If chklist.SelectedIndex = 2 Then ' ShowData3() 'End If as I have said i have to click button for every item selected

Sanjeeb Lenka · Answer

try this one Protected Sub Button1_Click(sender As Object, e As EventArgs) For Each listitem As ListItem In CheckBoxList1.Items If listitem.Selected Then Dim thisIndex As Integer = CheckBoxList1.Items.IndexOf(listitem) If thisIndex = 0 Then ShowData1() End If If thisIndex = 1 Then ShowData2() End If End If Next End Sub

Aman Jen · Answer

Hi, yes I have tried..but here I have to click button once again to show next item selected...but what i want is it shuld show records for all selected options together..

Iftikar Hussain · Answer

have you tried my solution? Regards, Iftikar

Aman Jen · Answer

Hi, here's one issue...If I select multiple options it doesn't show data for selected option all together, both selection function don't execute. here I have to click button once again to show next item selected...but what i want is it shuld show records for all selected options together.. Thnx Plz help...

Iftikar Hussain · Answer

Hi, Try like this in your aspx OnSelectedIndexChanged="CheckBoxListChecked" runat="server"> Item 1 Item 2 Item 3 Item 4 Item 5 Item 6 in your code protected void CheckBoxListChecked(object sender, EventArgs e) { //If Item 1 is selected if (CheckBoxList1.Items[0].Selected) { ShowData1(); } //If Item 2 is selected if (CheckBoxList1.Items[1].Selected) { ShowData2(); } ..... so on } Let me know if you need any more help Regards, Iftikar

Aman Jen · Answer

Hi, Trying to bit clear, I have Multiple Functions to be called using CheckboxList checked item. Function like: Item 1 ShowData1() Item 1 ShowData2() Item 1 ShowData3() Item 1 ShowData4() these functions fetches records from SqlDB and GridView gets populated. This Stuff is working fine with Individual CheckBox controls ...but unable to do the same thing with CheckBoxList control.. Plz help

Aman Jen · Answer

Hi, Based on selection, actually its shows data in gridview from db, So ShowData1 And ShowData2 are functionc , so one or may be both based on selection

Muralidharan Deenathayalan · Answer

In checkbox list control, you're allowed to select more than one checkbox at a time. Now, what are functions needs to executed ? both ShowData1() and ShowData2().