13.07.2015 Views

Microsoft SharePoint. Building Office 2007 Solutions in VB 2005 ...

Microsoft SharePoint. Building Office 2007 Solutions in VB 2005 ...

Microsoft SharePoint. Building Office 2007 Solutions in VB 2005 ...

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

486CHAPTER 12 ■ SHAREPOINT OPERATIONS AND ADMINISTRATIONtblEntries.Columns.Add("Message", GetType(Str<strong>in</strong>g))tblEntries.Columns.Add("Correlation", GetType(Str<strong>in</strong>g))'Fill tableDim objReader As StreamReader = _New StreamReader(listFiles.SelectedValue)objReader.ReadL<strong>in</strong>e.Split( _New Char() {<strong>Microsoft</strong>.VisualBasic.Chr(9)})While Not objReader.EndOfStreamDim strFields As Str<strong>in</strong>g() = _objReader.ReadL<strong>in</strong>e.Split( _New Char() {<strong>Microsoft</strong>.VisualBasic.Chr(9)})'Category selectedIf Not (listCategories.Text = "empty") Then'Category and level selectedIf Not (listEvent.Text = "empty") _OrElse Not (listTrace.Text = "empty") ThenIf _strFields(4).IndexOf( _listCategories.Text) >= 0 _AndAlso _(strFields(6).IndexOf(listEvent.Text) >= 0 _OrElse _strFields(6).IndexOf( _listTrace.Text) >= 0) ThentblEntries.Rows.Add(strFields)End If'Category, but no level selectedElseIf _strFields(4).IndexOf( _listCategories.Text) >= 0 _ThentblEntries.Rows.Add(strFields)End IfEnd If'Category not selectedElse

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!