Find First: how to do it in the Script Editor (VB.NET)

Yahoo Archive
1
Fantastic! Thanks!

--- In vantage@yahoogroups.com, John Driggers <waffqle@...> wrote:
>
> If blankProjID = TRUE Then
> For Each dr As DataRow In edvOrderDtl.DataView.Table.Rows
> If (dr("ProJectID")) <> "" Then
> projID = (dr("ProjectID"))
> Exit For
> End If
> Next
> MessageBox.Show(projID)
> End If
>
> Tada!
>
>
> On Thu, May 30, 2013 at 8:12 PM, chan213419 <chan213419@...> wrote:
>
> > **
> >
> >
> > I am having an issue that would be easily coded as a BPM, but I just can't
> > figure out how to do it in VB.NET. In a nutshell, the code below shows
> > the LAST ProjectID that's not blank and I want it to show me the FIRST one.
> >
> > Dim blankProjID As Boolean
> > Dim projID As String
> >
> > If blankProjID = TRUE Then
> > For Each dr As DataRow In edvOrderDtl.DataView.Table.Rows
> > If (dr("ProJectID")) <> "" Then
> > projID = (dr("ProjectID"))
> > End If
> > Next
> > MessageBox.Show(projID)
> > End If
> >
> > Thanks for your time :)
> >
> >
> >
>
>
> [Non-text portions of this message have been removed]
>
2
I am having an issue that would be easily coded as a BPM, but I just can't figure out how to do it in VB.NET. In a nutshell, the code below shows the LAST ProjectID that's not blank and I want it to show me the FIRST one.

Dim blankProjID As Boolean
Dim projID As String

If blankProjID = TRUE Then
For Each dr As DataRow In edvOrderDtl.DataView.Table.Rows
If (dr("ProJectID")) <> "" Then
projID = (dr("ProjectID"))
End If
Next
MessageBox.Show(projID)
End If

Thanks for your time :)
3
If blankProjID = TRUE Then
For Each dr As DataRow In edvOrderDtl.DataView.Table.Rows
If (dr("ProJectID")) <> "" Then
projID = (dr("ProjectID"))
Exit For
End If
Next
MessageBox.Show(projID)
End If

Tada!


On Thu, May 30, 2013 at 8:12 PM, chan213419 <chan213419@...> wrote:

> **
>
>
> I am having an issue that would be easily coded as a BPM, but I just can't
> figure out how to do it in VB.NET. In a nutshell, the code below shows
> the LAST ProjectID that's not blank and I want it to show me the FIRST one.
>
> Dim blankProjID As Boolean
> Dim projID As String
>
> If blankProjID = TRUE Then
> For Each dr As DataRow In edvOrderDtl.DataView.Table.Rows
> If (dr("ProJectID")) <> "" Then
> projID = (dr("ProjectID"))
> End If
> Next
> MessageBox.Show(projID)
> End If
>
> Thanks for your time :)
>
>
>


[Non-text portions of this message have been removed]