Create Comment As .xls In Farpoint Spread

 

Private Sub TAGS_PARENTING()
        Dim DTPopUp As New DataTable
        With DTPopUp
            .Columns.Add("SEQ", GetType(String))
            .Columns.Add("QTY", GetType(String))
            .Columns.Add("ETD", GetType(String))
            .Columns.Add("ETA", GetType(String))

            DTPopUp = MePostab_Control.Cari_TAG_PARENTING
        End With

        With FPPOSTAB
            For GG As Integer = 0 To .ActiveSheet.RowCount - 1
                Dim JMLROW As Integer = .ActiveSheet.GetChildView(GG, 0).Rows.Count
                Try
                    If JMLROW >= 2 Then
                        For vTAG As Integer = 0 To (JMLROW - 1)
                            For vCOL As Integer = 0 To 5
                                Dim ColCONumber As String = .ActiveSheet.GetChildView(GG, 0).Cells(vTAG, 3 + (vCOL * 4)).Text
                                Dim tmpTAGS = DTPopUp.Select("CO = '" & ColCONumber & "'")

                                If tmpTAGS.Length > 0 Then
                                    Dim aList As New ArrayList(tmpTAGS.Length)
                                    Dim aString As String()

                                    For vISI = 0 To (tmpTAGS.Length - 1)
                                        aList.Add(DTPopUp.Rows(vISI)("SEQ") & vbCrLf &
                                                "ETD : " & DTPopUp.Rows(vISI)("ETD") & vbCrLf &
                                                "ETA : " & DTPopUp.Rows(vISI)("ETA") & vbCrLf &
                                                "QTY : " & DTPopUp.Rows(vISI)("QTY") & vbCrLf)
                                    Next

                                    aString = aList.ToArray(GetType(String))

                                    Dim IsiBaris As String = Join(aString, vbCrLf)

                                    .ActiveSheet.GetChildView(GG, 0).Cells(vTAG, 4 + (vCOL * 4)).Note = IsiBaris
                                    .ActiveSheet.GetChildView(GG, 0).Cells(vTAG, 4 + (vCOL * 4)).NoteIndicatorColor = Color.Red
                                    .ActiveSheet.GetChildView(GG, 0).Cells(vTAG, 4 + (vCOL * 4)).NoteStyle = FarPoint.Win.Spread.NoteStyle.PopupNote
                                End If
                            Next
                        Next
                    End If
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try
            Next
        End With
    End Sub