Populating Time Phase Grid with Sales Order EntryPerson

I am attempting to add a column for the sales order entry person onto the Time Phase Inquiry grid.
It appears that it is only returning the first row even though I have implemented a for each/next loop.
What am I missing?

'//**************************************************
'// Custom VB.NET code for TimePhasForm
'// Created: 7/27/2017 9:18:56 AM
'//**************************************************
Imports System
Imports System.Data
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.ComponentModel
Imports Microsoft.VisualBasic
Imports Erp.UI
Imports Ice.Lib.Framework
Imports Ice.Lib.ExtendedProps
Imports Ice.UI.FormFunctions
Imports Ice.Lib.Customization

Imports Ice.Adapters
Imports Erp.Adapters
Imports Ice.Lib.Searches

Imports Ice.Lib
Imports Erp.BO
Imports Ice.BO
Imports Erp.Proxy.BO


Module Script 


	'// ** Wizard Insert Location - Do Not Remove 'Begin/End Wizard Added Module Level Variables' Comments! ** 
	'// Begin Wizard Added Module Level Variables ** 
    Private WithEvents edvTimePhas As EpiDataView
	'// End Wizard Added Module Level Variables ** 


	'// Add Custom Module Level Variables Here ** 



	Sub InitializeCustomCode() 


		'// ** Wizard Insert Location - Do not delete 'Begin/End Wizard Added Variable Intialization' lines ** 
		'// Begin Wizard Added Variable Intialization 
        edvTimePhas = CType(oTrans.EpiDataViews("TimePhas"), EpiDataView)
		'// End Wizard Added Variable Intialization 
		'// Begin Custom Method Calls 
        If Not (edvTimePhas.dataView.Table.Columns.Contains("EntryPerson")) Then
        edvTimePhas.dataView.Table.Columns.Add(new DataColumn("EntryPerson"))
        End If
		'// End Custom Method Calls 
        
    	End Sub



	Sub DestroyCustomCode() 


		'// ** Wizard Insert Location - Do not delete 'Begin/End Wizard Added Object Disposal' lines ** 
		'// Begin Wizard Added Object Disposal 

		'// End Wizard Added Object Disposal 
		'// Begin Custom Code Disposal 

		'// End Custom Code Disposal 
	End Sub 

    Private Sub edvTimePhas_EpiViewNotification(view As EpiDataView, args As EpiNotifyArgs) Handles edvTimePhas.EpiViewNotification
        If (args.NotifyType = EpiTransaction.NotifyType.Initialize) Then
        If (args.Row > -1) Then
        AddEntryPerson()
        End If
        End If
        End Sub

    Private Sub AddEntryPerson()
        For Each dr As DataRow In edvTimePhas.dataView.Table.Rows
        If Not IsDBNull(dr("OrderNum")) Then
        dr("EntryPerson") = getEntryPerson(dr("OrderNum"))
        End If
        Next
    End Sub

    Private Function getEntryPerson(ByVal order As String) As String
        Dim EntryPerson As String
        Dim recordSelected As Boolean
        Dim showSearch As Boolean = False
        Dim whereClause As String = "OrderNum = '" + order + "'"
        Dim dsOrderInfo As DataSet = SearchFunctions.listLookup(TimePhasForm, "SalesOrderAdapter", recordSelected, showSearch, whereClause)
        If recordSelected Then
        EntryPerson = dsOrderInfo.Tables(0).Rows(0)("EntryPerson").ToString()
        Else
        EntryPerson = "n/a"
        End If

        Return EntryPerson
        End Function

End Module

Have you already seen this post?

No, I have not. I did search (quite a bit I might add) for related topics, but somehow this one escaped me. I will check it out. Thank you for the info!