FUNCTION FOR CONVERTING DATATABLE TO LISTVIEW
-------------------------------------------------------------------------------------
Public Sub CONVERT_DATATABLE_TO_LISTVIEW(ByVal DATA_TABLE As DataTable, ByRef LS_VIEW As ListView, ByVal HEAD_ARR() As String)
' Dim LS_VIEW As New ListView
LS_VIEW.View = View.Details
LS_VIEW.GridLines = True
LS_VIEW.FullRowSelect = True
Dim COL_INDEX As Integer = 0
For Each DCOL As DataColumn In DATA_TABLE.Columns
Dim ADD_FLG As Boolean = False
Try
LS_VIEW.Columns.Add(HEAD_ARR(COL_INDEX).ToUpper, (HEAD_ARR(COL_INDEX).Length * 7) + 20)
Catch ex As Exception
'MessageBox.Show(ex.Message)
ADD_FLG = True
End Try
If ADD_FLG Then
LS_VIEW.Columns.Add(DCOL.Caption.ToUpper, (DCOL.Caption.Length * 7) + 20)
End If
COL_INDEX += 1
Next
For Each DROW As DataRow In DATA_TABLE.Rows
Dim LS_ITEM As New ListViewItem(DROW.Item(0).ToString)
COL_INDEX = 0
For Each DCOL As DataColumn In DATA_TABLE.Columns
If COL_INDEX <> 0 Then
LS_ITEM.SubItems.Add(DROW.Item(COL_INDEX).ToString)
End If
COL_INDEX += 1
Next
LS_VIEW.Items.Add(LS_ITEM)
Next
End Sub
-------------------------------------------------------------------------------------
