For intcount = 0 To 18000
            Dim expression As String = "Itemset = '" & intcount & "'"
            Dim result() As DataRow = dt.Select(expression)
            For Each row As DataRow In result
                workRow = matrix.NewRow()
                workRow(row(0)) = 1
                matrix.Rows.Add(workRow)
            Next
        Next