Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Protected Sub RadGrid1_NeedDataSource1(source As Object, e As GridNeedDataSourceEventArgs) _
- Handles RadGrid1.NeedDataSource
- If (searchInput.Text <> "") Then
- If (MyFunctions.userSeeAllBranch()) Then
- Using db As New DbClassDataContext
- Dim Leads = From l In db.LeadsLists Where (l.fullName.Contains(searchInput.Text)) _
- Or (l.business.Contains(searchInput.Text)) _
- Or (l.ContactPhone.Contains(searchInput.Text)) _
- Or (l.Phone.Contains(searchInput.Text)) _
- Or (l.CellPhone.Contains(searchInput.Text))
- RadGrid1.DataSource = Leads ' Am I doing this correctly?
- End Using
- Else
- Dim userBranch As String = MyFunctions.getUserBranch().ToString()
- Using db As New DbClassDataContext
- Dim Leads = From l In db.LeadsLists Where (l.fullName.Contains(searchInput.Text)) And l.Branch.Equals(userBranch) _
- Or (l.business.Contains(searchInput.Text)) And l.Branch.Equals(userBranch) _
- Or (l.ContactPhone.Contains(searchInput.Text)) And l.Branch.Equals(userBranch) _
- Or (l.Phone.Contains(searchInput.Text)) And l.Branch.Equals(userBranch) _
- Or (l.CellPhone.Contains(searchInput.Text)) And l.Branch.Equals(userBranch)
- RadGrid1.DataSource = Leads ' Am I doing this correctly?
- End Using
- End If 'if searchInput
- Else
- If (MyFunctions.userSeeAllBranch()) Then
- Using db As New DbClassDataContext
- Dim Leads = From l In db.LeadsLists
- RadGrid1.DataSource = Leads ' Am I doing this correctly?
- End Using
- Else
- Using db As New DbClassDataContext
- Dim userBranch As String = MyFunctions.getUserBranch().ToString()
- Dim Leads = From l In db.LeadsLists Where l.Branch.Equals(userBranch)
- RadGrid1.DataSource = Leads ' Am I doing this correctly?
- End Using
- End If
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement