match form

This commit is contained in:
Jonathan Jenne
2019-07-11 14:32:54 +02:00
parent 9bc269147c
commit e78546ebbd
4 changed files with 191 additions and 115 deletions

View File

@@ -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