001.
Dim
oDTblTemp
As
New
Data.DataTable(
"myTable"
)
002.
003.
oDTblTemp.Columns.Add(
"รหัส"
,
GetType
(System.
String
))
004.
oDTblTemp.Columns.Add(
"ชื่อ"
,
GetType
(System.
String
))
005.
oDTblTemp.Columns.Add(
"จ."
,
GetType
(System.Drawing.Image))
006.
oDTblTemp.Columns.Add(
"อ."
,
GetType
(System.Drawing.Image))
007.
oDTblTemp.Columns.Add(
"พ."
,
GetType
(System.Drawing.Image))
008.
oDTblTemp.Columns.Add(
"พฤ."
,
GetType
(System.Drawing.Image))
009.
oDTblTemp.Columns.Add(
"ศ."
,
GetType
(System.Drawing.Image))
010.
oDTblTemp.Columns.Add(
"ส."
,
GetType
(System.Drawing.Image))
011.
oDTblTemp.Columns.Add(
"อา."
,
GetType
(System.Drawing.Image))
012.
oDTblTemp.Columns.Add(
"จ."
,
GetType
(System.Drawing.Image))
013.
oDTblTemp.Columns.Add(
"อ."
,
GetType
(System.Drawing.Image))
014.
oDTblTemp.Columns.Add(
"พ."
,
GetType
(System.Drawing.Image))
015.
oDTblTemp.Columns.Add(
"พฤ."
,
GetType
(System.Drawing.Image))
016.
oDTblTemp.Columns.Add(
"ศ."
,
GetType
(System.Drawing.Image))
017.
oDTblTemp.Columns.Add(
"ส."
,
GetType
(System.Drawing.Image))
018.
oDTblTemp.Columns.Add(
"อา."
,
GetType
(System.Drawing.Image))
019.
020.
021.
022.
Dim
oRow
As
DataRow
023.
For
i
As
Integer
= 0
To
oDTbl.Rows.Count - 1
024.
oRow = oDTblTemp.NewRow()
025.
oRow.Item(0) = oDTbl.Rows(i).Item(0).ToString.Trim
026.
oRow.Item(1) = oDTbl.Rows(i).Item(19).ToString.Trim
027.
028.
If
oDTbl.Rows(i).Item(8).ToString.Trim =
"True"
Then
029.
oRow.Item(2) = My.Resources.ok
030.
Else
031.
oRow.Item(2) = My.Resources.delete
032.
End
If
033.
If
oDTbl.Rows(i).Item(9).ToString.Trim =
"True"
Then
034.
oRow.Item(3) = My.Resources.ok
035.
Else
036.
oRow.Item(3) = My.Resources.delete
037.
End
If
038.
If
oDTbl.Rows(i).Item(10).ToString.Trim =
"True"
Then
039.
oRow.Item(4) = My.Resources.ok
040.
Else
041.
oRow.Item(4) = My.Resources.delete
042.
End
If
043.
If
oDTbl.Rows(i).Item(11).ToString.Trim =
"True"
Then
044.
oRow.Item(5) = My.Resources.ok
045.
Else
046.
oRow.Item(5) = My.Resources.delete
047.
End
If
048.
If
oDTbl.Rows(i).Item(12).ToString.Trim =
"True"
Then
049.
oRow.Item(6) = My.Resources.ok
050.
Else
051.
oRow.Item(6) = My.Resources.delete
052.
End
If
053.
If
oDTbl.Rows(i).Item(13).ToString.Trim =
"True"
Then
054.
oRow.Item(7) = My.Resources.ok
055.
Else
056.
oRow.Item(7) = My.Resources.delete
057.
End
If
058.
If
oDTbl.Rows(i).Item(14).ToString.Trim =
"True"
Then
059.
oRow.Item(8) = My.Resources.ok
060.
Else
061.
oRow.Item(8) = My.Resources.delete
062.
End
If
063.
If
oDTbl.Rows(i).Item(1).ToString.Trim =
"True"
Then
064.
oRow.Item(9) = My.Resources.ok
065.
Else
066.
oRow.Item(9) = My.Resources.delete
067.
End
If
068.
If
oDTbl.Rows(i).Item(2).ToString.Trim =
"True"
Then
069.
oRow.Item(10) = My.Resources.ok
070.
Else
071.
oRow.Item(10) = My.Resources.delete
072.
End
If
073.
If
oDTbl.Rows(i).Item(3).ToString.Trim =
"True"
Then
074.
oRow.Item(11) = My.Resources.ok
075.
Else
076.
oRow.Item(11) = My.Resources.delete
077.
End
If
078.
If
oDTbl.Rows(i).Item(4).ToString.Trim =
"True"
Then
079.
oRow.Item(12) = My.Resources.ok
080.
Else
081.
oRow.Item(12) = My.Resources.delete
082.
End
If
083.
If
oDTbl.Rows(i).Item(5).ToString.Trim =
"True"
Then
084.
oRow.Item(13) = My.Resources.ok
085.
Else
086.
oRow.Item(13) = My.Resources.delete
087.
End
If
088.
If
oDTbl.Rows(i).Item(6).ToString.Trim =
"True"
Then
089.
oRow.Item(14) = My.Resources.ok
090.
Else
091.
oRow.Item(14) = My.Resources.delete
092.
End
If
093.
If
oDTbl.Rows(i).Item(7).ToString.Trim =
"True"
Then
094.
oRow.Item(15) = My.Resources.ok
095.
Else
096.
oRow.Item(15) = My.Resources.delete
097.
End
If
098.
099.
100.
oDTblTemp.Rows.Add(oRow)