สอบถามเรื่องการคิดเลขจาก datatable ครับ ว่าวิธีแบบนี้จะทำการ loop ยังไง

                    Dim drFindqty As DataRow
                    Dim Getcount As Integer
                    Dim sumcount_oh As Integer
                    Dim Countdata As Integer
                    Dim Countoh As Integer
                    Dim Get_qty_oh As Integer
                    Dim Get_qty_oh_copy As Integer
                    If dtdata2.Rows.Count > 0 Then
                        For p As Integer = 0 To dtdata2.Rows.Count - 1
                            Dim Get_item As String = dtdata2.Rows.Item(p).Item("pld_material_2").ToString
                            Dim Get_qty_iss As Integer = Math.Floor(CDbl(dtdata2.Rows(p).Item("pld_Iss_qty"))) 'จำนวนของต้องการ
                            Get_qty_iss = Mid(Get_qty_iss, 2)

                            If dtGetlot.Rows.Count > 0 Then
                                For T As Integer = 0 To dtGetlot.Rows.Count - 1
                                    If dtFindqty.Rows.Count = 1 Then
                                        Get_qty_oh = dtFindqty.Rows(0).Item("Get_sum").ToString
                                    ElseIf dtFindqty.Rows.Count > 1 And dtFindqty.Rows.Count <> 0 Then
                                        Countdata = Countdata + 1
                                        Get_qty_oh = dtFindqty.Rows(Countdata).Item("Get_sum").ToString
                                    ElseIf dtGetlot.Rows.Count > 0 Then
                                        Get_qty_oh = Math.Floor(CDbl(dtGetlot.Rows(Countoh).Item("ld_qty_oh"))).ToString 'จำนวนที่มี
                                    End If
                                        If Get_qty_oh > Get_qty_iss Then
                                            sumcount_oh = Get_qty_oh - Math.Floor(Get_qty_iss)
                                            Getcount = sumcount_oh

                                            Dim Get_ref As String = dtGetlot.Rows.Item(T).Item("ld_ref").ToString()
                                            Dim Get_loc As String = dtGetlot.Rows.Item(T).Item("ld_loc").ToString
                                            Dim Get_lot As String = dtGetlot.Rows.Item(T).Item("ld_lot").ToString
                                            Dim Get_serial As String = dtGetlot.Rows.Item(T).Item("serial").ToString
                                            drFindqty = dtFindqty.NewRow
                                            drFindqty("Get_item") = Get_item
                                            drFindqty("Get_ref") = Get_ref
                                            drFindqty("Get_loc") = Get_loc
                                            drFindqty("Get_lot") = Get_lot
                                            drFindqty("Get_serial") = Get_serial
                                            drFindqty("Get_sum") = sumcount_oh
                                            drFindqty("Get_qty_oh") = Get_qty_oh
                                            drFindqty("Get_Minus") = DBNull.Value
                                            Dim newRow = dtFindqty.NewRow()
                                            newRow.ItemArray = drFindqty.ItemArray
                                            dtFindqty.Rows.Add(newRow)
                                            Exit For
                                        ElseIf Get_qty_oh < Get_qty_iss Then
                                            sumcount_oh = Get_qty_oh - Math.Floor(Get_qty_iss)
                                            Getcount = sumcount_oh
                                            If sumcount_oh <= 0 Then
                                            Countdata = Countdata + 1
                                            Countoh = Countoh + 1
                                            Get_qty_oh_copy = Get_qty_oh
                                                Get_qty_oh = Math.Floor(CDbl(dtGetlot.Rows(Countoh).Item("ld_qty_oh"))).ToString 'จำนวนที่มี
                                                sumcount_oh = Mid(sumcount_oh, 2)
                                                Getcount = Get_qty_oh - sumcount_oh
                                                sumcount_oh = "-" & sumcount_oh
                                            End If

                                            Dim Get_ref As String = dtGetlot.Rows.Item(Countoh).Item("ld_ref").ToString()
                                            Dim Get_loc As String = dtGetlot.Rows.Item(Countoh).Item("ld_loc").ToString
                                            Dim Get_lot As String = dtGetlot.Rows.Item(Countoh).Item("ld_lot").ToString
                                            Dim Get_serial As String = dtGetlot.Rows.Item(Countoh).Item("serial").ToString
                                        drFindqty = dtFindqty.NewRow
                                        If sumcount_oh <= 0 Then
                                            drFindqty("Get_item") = Get_item
                                            drFindqty("Get_ref") = Get_ref
                                            drFindqty("Get_loc") = Get_loc
                                            drFindqty("Get_lot") = Get_lot
                                            drFindqty("Get_serial") = Get_serial
                                            drFindqty("Get_sum") = 0
                                            drFindqty("Get_qty_oh") = Get_qty_oh_copy
                                            drFindqty("Get_Minus") = sumcount_oh
                                            Dim newRow1 = dtFindqty.NewRow()
                                            newRow1.ItemArray = drFindqty.ItemArray
                                            dtFindqty.Rows.Add(newRow1)
                                        End If
                                        drFindqty("Get_item") = Get_item
                                        drFindqty("Get_ref") = Get_ref
                                        drFindqty("Get_loc") = Get_loc
                                        drFindqty("Get_lot") = Get_lot
                                        drFindqty("Get_serial") = Get_serial
                                        If Getcount <= 0 Then
                                            drFindqty("Get_sum") = 0
                                            drFindqty("Get_Minus") = sumcount_oh
                                        Else
                                            drFindqty("Get_sum") = Getcount
                                            drFindqty("Get_Minus") = DBNull.Value
                                        End If
                                        drFindqty("Get_qty_oh") = Get_qty_oh
                                        Dim newRow2 = dtFindqty.NewRow()
                                        newRow2.ItemArray = drFindqty.ItemArray
                                        dtFindqty.Rows.Add(newRow2)


                                        If sumcount_oh <= 0 And dtFindqty.Rows.Item(Countdata).Item("Get_sum").ToString = 0 Then
                                            Dim cutsum As Integer = dtFindqty.Rows.Item(Countdata).Item("Get_sum").ToString
                                            sumcount_oh = Mid(sumcount_oh, 2)
                                            Countdata = Countdata + 1
                                            cutsum = dtFindqty.Rows.Item(Countdata).Item("Get_sum").ToString
                                            Countdata = Countdata - 1
                                            If sumcount_oh > cutsum Then
                                                Countdata = Countdata + 1
                                                sumcount_oh = Get_qty_oh - sumcount_oh
                                                drFindqty("Get_item") = Get_item
                                                drFindqty("Get_ref") = Get_ref
                                                drFindqty("Get_loc") = Get_loc
                                                drFindqty("Get_lot") = Get_lot
                                                drFindqty("Get_serial") = Get_serial
                                                If Getcount <= 0 Then
                                                    drFindqty("Get_sum") = 0
                                                    drFindqty("Get_Minus") = sumcount_oh
                                                    Get_qty_oh = 0
                                                    drFindqty("Get_qty_oh") = Get_qty_oh
                                                Else
                                                    drFindqty("Get_sum") = Getcount
                                                    drFindqty("Get_Minus") = DBNull.Value
                                                End If
                                                drFindqty("Get_qty_oh") = Get_qty_oh
                                                Dim newRow3 = dtFindqty.NewRow()
                                                newRow3.ItemArray = drFindqty.ItemArray
                                                dtFindqty.Rows.Add(newRow3)
                                                If Get_qty_oh = 0 And Getcount < 0 And sumcount_oh < 0 Then
                                                    Countoh = Countoh + 1
                                                    Get_qty_oh = Math.Floor(CDbl(dtGetlot.Rows(Countoh).Item("ld_qty_oh"))).ToString 'จำนวนที่มี
                                                    sumcount_oh = dtFindqty.Rows.Item(Countdata).Item("Get_Minus").ToString
                                                    sumcount_oh = Get_qty_oh - sumcount_oh
                                                    drFindqty("Get_item") = Get_item
                                                    drFindqty("Get_ref") = Get_ref
                                                    drFindqty("Get_loc") = Get_loc
                                                    drFindqty("Get_lot") = Get_lot
                                                    drFindqty("Get_serial") = Get_serial
                                                    If Getcount <= 0 Then
                                                        drFindqty("Get_sum") = 0
                                                        drFindqty("Get_Minus") = sumcount_oh
                                                        Get_qty_oh = 0
                                                        drFindqty("Get_qty_oh") = Get_qty_oh
                                                    Else
                                                        drFindqty("Get_sum") = Getcount
                                                        drFindqty("Get_Minus") = DBNull.Value
                                                    End If
                                                    drFindqty("Get_qty_oh") = Get_qty_oh
                                                    Dim newRow4 = dtFindqty.NewRow()
                                                    newRow4.ItemArray = drFindqty.ItemArray
                                                    dtFindqty.Rows.Add(newRow4)
                                                Else
                                                    Exit For
                                                End If
                                            End If
                                        End If
                                        Exit For
                                        End If
                                Next
                            End If

                        Next
                    End If