What I need to do is see if any items are checked in my radcombox, if they are ass them to an string and tehn to a sql where statement,
each time I look to see if items are checked though I get errors, at this point don't know what I am doing wrong. Need to check and see if anything checked first so that I can skip it otherwise as part of a where statement for sql.
each time I look to see if items are checked though I get errors, at this point don't know what I am doing wrong. Need to check and see if anything checked first so that I can skip it otherwise as part of a where statement for sql.
Protected Sub myRadGrid_NeedDataSource(sender As Object, e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles myRadGrid.NeedDataSource
Dim SqlWhere As String = ""
Dim items As String = ""
If rblActive.SelectedValue = Nothing Then
SqlWhere = " where r.bitActive = 1"
rblActive.SelectedValue = 1
ElseIf rblActive.SelectedValue = "All" Then
SqlWhere = ""
ElseIf rblActive.SelectedValue = "0" Then
SqlWhere = " where r.bitActive = 0"
ElseIf rblActive.SelectedValue = "1" Then
SqlWhere = " where r.bitActive = 1"
rblActive.SelectedValue = 1
End If
If ddlRadTeam.SelectedItem.Checked = True Then
For Each item As RadComboBoxItem In ddlRadTeam.Items
If item.Selected Then
items += item.Value & ","
End If
Next
End If
If ddlRadTeam.SelectedItem.Checked = True And rblActive.SelectedValue = "All" Then
SqlWhere = " where r.intTeamId IN (" & items & ")"
ElseIf ddlRadTeam.Items.Count > 0 Then
SqlWhere += " and r.intTeamId IN (" & items & ")"
End If
sql = "select " & SqlWhere
myRadGrid.DataSource = getData(sql)
End Sub