21 lines
944 B
VB.net
21 lines
944 B
VB.net
Public Class ClassMoreMetadata
|
|
Public Shared Function Return_CURRENT_TBPMO_INDEX_MAN_VALUE(CONTROL_GUID As Integer, COL_NAME As String)
|
|
Try
|
|
' Presuming the DataTable has a column named ENTITY_ID and TYPE_NODE.
|
|
Dim expression As String
|
|
expression = "GUID = " & CONTROL_GUID
|
|
Dim foundRowsLevel0() As DataRow
|
|
' Use the Select method to find all rows matching the filter.
|
|
foundRowsLevel0 = CURRENT_TBPMO_INDEX_MAN.Select(expression)
|
|
Dim i As Integer
|
|
' For each row create a Node
|
|
For i = 0 To foundRowsLevel0.GetUpperBound(0)
|
|
Return foundRowsLevel0(i)(COL_NAME)
|
|
Next
|
|
Catch ex As Exception
|
|
LOGGER.Warn(" - Unvorhergesehener Fehler in Return_CURRENT_TBPMO_INDEX_MAN_VALUE - Fehler: " & vbNewLine & ex.Message)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
End Class
|