01.Dim RBPH As Integer = 0
02.Private Function EqualString(ByVal ROID As String, ByVal RB As Integer) As String
03.
04. Dim TB_ID As String = ""
05. Dim i As Integer = DataTable02.Rows.Count
06.
07. For ri As Integer = RB To i - 1
08.
09. If String.Equals(ROID, DataTable02.Rows(ri).Item("Column01")) Then
10. TB_ID = DataTable02.Rows(ri).Item("Column02")
11. RBPH = ri
12. End If
13. Next
14. Return TB_ID
15. End Function
