(Windows App)ใส่รูปในตารางgridviewแทนตัวหนังสือยังไง

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        GridControl1.DataSource = Data()
        Set_Grid()

    End Sub

    Private Function Data() As DataTable

        Dim dt As New DataTable()

        dt.Columns.Add("Col1", GetType(Int16))
        dt.Columns.Add("Col2", GetType(Int16))
        dt.Columns.Add("Col3", GetType(Int16))
        dt.Columns.Add("Col4", GetType(Int16))
        dt.Columns.Add("Col5", GetType(Int16))
        dt.Columns.Add("Col6", GetType(Int16))
        dt.Columns.Add("Col7", GetType(Int16))

        dt.Rows.Add(1, 0, 0, 1, 1, 1, 0)
        dt.Rows.Add(0, 1, 0, 0, 0, 1, 0)
        dt.Rows.Add(0, 0, 0, 1, 1, 1, 0)
        dt.Rows.Add(1, 1, 0, 1, 1, 1, 0)
        dt.Rows.Add(0, 0, 0, 0, 0, 1, 0)
        dt.Rows.Add(1, 1, 0, 1, 1, 1, 0)
        dt.Rows.Add(0, 0, 0, 0, 0, 1, 0)
        dt.Rows.Add(1, 0, 0, 1, 1, 1, 0)

        Return dt

    End Function

    Private Sub Set_Grid()

        With GridView1

            .Columns(0).ColumnEdit = cmbImg
            .Columns(1).ColumnEdit = cmbImg
            .Columns(2).ColumnEdit = cmbImg
            .Columns(3).ColumnEdit = cmbImg
            .Columns(4).ColumnEdit = cmbImg
            .Columns(5).ColumnEdit = cmbImg
            .Columns(6).ColumnEdit = cmbImg

        End With

    End Sub

End Class

Dim oDTblTemp As New Data.DataTable("myTable")

            oDTblTemp.Columns.Add("รหัส", GetType(System.String))
            oDTblTemp.Columns.Add("ชื่อ", GetType(System.String))
            oDTblTemp.Columns.Add("จ.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("อ.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("พ.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("พฤ.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("ศ.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("ส.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("อา.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("จ.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("อ.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("พ.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("พฤ.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("ศ.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("ส.", GetType(System.Drawing.Image))
            oDTblTemp.Columns.Add("อา.", GetType(System.Drawing.Image))



            Dim oRow As DataRow
            For i As Integer = 0 To oDTbl.Rows.Count - 1
                oRow = oDTblTemp.NewRow()
                oRow.Item(0) = oDTbl.Rows(i).Item(0).ToString.Trim
                oRow.Item(1) = oDTbl.Rows(i).Item(19).ToString.Trim

                If oDTbl.Rows(i).Item(8).ToString.Trim = "True" Then
                    oRow.Item(2) = My.Resources.ok
                Else
                    oRow.Item(2) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(9).ToString.Trim = "True" Then
                    oRow.Item(3) = My.Resources.ok
                Else
                    oRow.Item(3) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(10).ToString.Trim = "True" Then
                    oRow.Item(4) = My.Resources.ok
                Else
                    oRow.Item(4) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(11).ToString.Trim = "True" Then
                    oRow.Item(5) = My.Resources.ok
                Else
                    oRow.Item(5) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(12).ToString.Trim = "True" Then
                    oRow.Item(6) = My.Resources.ok
                Else
                    oRow.Item(6) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(13).ToString.Trim = "True" Then
                    oRow.Item(7) = My.Resources.ok
                Else
                    oRow.Item(7) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(14).ToString.Trim = "True" Then
                    oRow.Item(8) = My.Resources.ok
                Else
                    oRow.Item(8) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(1).ToString.Trim = "True" Then
                    oRow.Item(9) = My.Resources.ok
                Else
                    oRow.Item(9) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(2).ToString.Trim = "True" Then
                    oRow.Item(10) = My.Resources.ok
                Else
                    oRow.Item(10) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(3).ToString.Trim = "True" Then
                    oRow.Item(11) = My.Resources.ok
                Else
                    oRow.Item(11) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(4).ToString.Trim = "True" Then
                    oRow.Item(12) = My.Resources.ok
                Else
                    oRow.Item(12) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(5).ToString.Trim = "True" Then
                    oRow.Item(13) = My.Resources.ok
                Else
                    oRow.Item(13) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(6).ToString.Trim = "True" Then
                    oRow.Item(14) = My.Resources.ok
                Else
                    oRow.Item(14) = My.Resources.delete
                End If
                If oDTbl.Rows(i).Item(7).ToString.Trim = "True" Then
                    oRow.Item(15) = My.Resources.ok
                Else
                    oRow.Item(15) = My.Resources.delete
                End If


                oDTblTemp.Rows.Add(oRow)

dim ix As Integer;
For j As Integer = 2 to 15
	ix = IIf(j<9 , j + 6 , j - 8)
	oRow.Item(j) = IIf( oDTbl.Rows(i).Item(ix).ToString.Trim = "True", My.Resources.ok , My.Resources.delete)

var users = [
{
    "id": 1,
    "username": "ass1",
    "name": "ass11",
    "position": "ass"
},
{
    "id": 2,
    "username": "ass2",
    "name": "ass22",
    "position": "ass"
}
];
 
exports.findAll = function() {
    return users;
};
 

exports.findById = function (id) {
    for (var i = 0; i < users.length; i++) {
        if (users[i].id == id) return users[i];
    }
};

var app = require('express')();
 
var users = require('./users');
var bodyParser = require('body-parser')

/* ใช้ port 6996 Or Dynamic Port */
var port = process.env.PORT || 6969;
 
// parse application/json
app.use(bodyParser.json());
app.use(bodyParser.urlencoded({
    extended: true
}));

/* Routing */
app.get('/', function (req, res) {
    res.send('<h1>Hello Node.js</h1>');
});
app.get('/index', function (req, res) {
    res.send('<h1>This is index page</h1>');
});
 

app.get('/', function (req, res) {
    res.send('<h1>Hello Node.js</h1>');
});
 
app.get('/user', function (req, res) {
    res.json(users.findAll());
});
 
app.get('/user/:id', function (req, res) {
    var id = req.params.id;
    res.json(users.findById(id));
});
 
app.post('/newuser', function (req, res) {
    var json = req.body;
    res.send('Add new ' + json.name + ' Completed!');
});
 
/* Start Server */
app.listen(port, function() {
    console.log('Starting node.js on port ' + port);
});