amirjooni2004
سه شنبه 13 شهریور 1386, 13:26 عصر
کمکم کنید . جواب نمیده
اگه راه حل بهتری هم هست بگین
Dim q As String
Dim i As Integer = 0
Dim c As Integer = 0
For i = 0 To CheckBoxList1.Items.Count()
If CheckBoxList1.Items(i).Selected Then '***** problem is here
If c = 0 Then
q = CheckBoxList1.SelectedItem.Value
c = 1
Else
q += "," + CheckBoxList1.SelectedItem.Value
End If
End If
Next
Response.Redirect("et_report_complete_result.aspx?name=" + q + "&id=" + CStr(CheckBox1.Checked) + "&location=" + CStr(CheckBox2.Checked) + "&raste=" + CStr(CheckBox3.Checked) + "&boss=" + CStr(CheckBox4.Checked) + "&session=" + CStr(CheckBox5.Checked) + "&employee=" + CStr(CheckBox6.Checked) + "&group=" + CStr(CheckBox7.Checked) + "&amval=" + CStr(CheckBox8.Checked) + "&bank=" + CStr(CheckBox9.Checked) + "&bodje=" + CStr(CheckBox10.Checked))
اگه راه حل بهتری هم هست بگین
Dim q As String
Dim i As Integer = 0
Dim c As Integer = 0
For i = 0 To CheckBoxList1.Items.Count()
If CheckBoxList1.Items(i).Selected Then '***** problem is here
If c = 0 Then
q = CheckBoxList1.SelectedItem.Value
c = 1
Else
q += "," + CheckBoxList1.SelectedItem.Value
End If
End If
Next
Response.Redirect("et_report_complete_result.aspx?name=" + q + "&id=" + CStr(CheckBox1.Checked) + "&location=" + CStr(CheckBox2.Checked) + "&raste=" + CStr(CheckBox3.Checked) + "&boss=" + CStr(CheckBox4.Checked) + "&session=" + CStr(CheckBox5.Checked) + "&employee=" + CStr(CheckBox6.Checked) + "&group=" + CStr(CheckBox7.Checked) + "&amval=" + CStr(CheckBox8.Checked) + "&bank=" + CStr(CheckBox9.Checked) + "&bodje=" + CStr(CheckBox10.Checked))