match form
This commit is contained in:
@@ -44,6 +44,8 @@ Public Class frmStart
|
||||
Dim oDTMatchProfiles As DataTable = New DataTable
|
||||
oDTMatchProfiles.Columns.Add("GUID")
|
||||
oDTMatchProfiles.Columns.Add("NAME")
|
||||
oDTMatchProfiles.Columns.Add("COMMENT")
|
||||
|
||||
For Each oProfileRow As DataRow In DT_USER_PROFILES.Rows
|
||||
'If found = True Then Exit For
|
||||
If CurrPROC_Name.ToUpper = oProfileRow.Item("PROC_NAME").ToString.ToUpper Then
|
||||
@@ -60,6 +62,7 @@ Public Class frmStart
|
||||
Dim onewMatchRow As DataRow = oDTMatchProfiles.NewRow
|
||||
onewMatchRow("GUID") = oProfileRow.Item("GUID")
|
||||
onewMatchRow("NAME") = oProfileRow.Item("NAME")
|
||||
onewMatchRow("COMMENT") = oProfileRow.Item("COMMENT")
|
||||
oDTMatchProfiles.Rows.Add(onewMatchRow)
|
||||
|
||||
found = True
|
||||
|
||||
Reference in New Issue
Block a user