01.Private Sub CompareRows(ByVal table1 As DataTable, ByVal table2 As DataTable)
02. For Each row1 As DataRow In table1.Rows
03. For Each row2 As DataRow In table2.Rows
04.
05. If row1("Textiles_series_ID") = row2("TRD_LOT_NO") Then
06.
07. Dim dt As New DataTable()
08. dt.Columns.AddRange(New DataColumn() {New DataColumn("ID", GetType(Integer)), _
09. New DataColumn("Textiles_series_ID", GetType(String)), _
10. New DataColumn("TRD_LOT_NO", GetType(String))})
11.
12. Dim i As Integer = table1.Rows.Count
13. For j As Integer = 0 To i - 1
14.
15. Dim dr As DataRow = dt.NewRow()
16. dr("ID") = j + 1
17. dr("Textiles_series_ID") = row1("Textiles_series_ID")
18. dr("TRD_LOT_NO") = row2("TRD_LOT_NO")
19. dt.Rows.Add(dr)
20. Next
21. GridView1.DataSource = dt
22. GridView1.DataBind()
23. Label1.Text = i
24.
25. Else
26.
27. End If
28. Next
29.
30. Next
31.
32.
33. End Sub
