ขอวิธีเปลี่ยนค่า itemdata gridview ให้แสดงผล โดยใช้ 2db

Sub ChangeNumToText()
        Dim Bath As String = txtSmoney.Text  'ตัวแปร Bath เก็บค่าตัวเลขจาก txtSmoney
        Dim convert As String = ""           'ตัวแปร convert เก็บค่าตัวเลขที่ได้จาก Bath

        'แปลงอักษรหลักหน่วย
        Dim txtnum1() As String = {"ศูนย์", "หนึ่ง", "สอง", "สาม", "สี่", "ห้า", "หก", "เจ็ด", "แปด", "เก้า", "สิบ"}

        'แปลงอักษรหลัก สิบ ร้อย พัน หมื่น แสน ล้าน
        Dim txtnum2() As String = {"", "สิบ", "ร้อย", "พัน", "หมื่น", "แสน", "ล้าน"}

        Dim number As String                'ตัวแปร number เก็บค่าตัวเลขที่ได้ในรูปแบบ String
        Dim number1 As Array                'ตัวแปร number1 เก็บค่าตัวเลขที่ได้ในรูปแบบ Array
        Dim Len As Integer                  'ตัวแปร len เก็บค่าความยาวตัวเลข
        Dim i As Integer                    'ตัวแปร i ใช้ในการวนลูป
        Dim n As String                     'ตัวแปร n เก็บค่าตัวเลขที่อ่านได้จาก txtSmoney

        'กรณี txtSmoney เป็นค่าว่าง
        If Bath = " " Then
            Bath = "1"
        End If

'Gridview
            Dim dtGV As DataTable
            Dim dtcon As DataTable = New DataTable()
            dtGV = GridImp(docnoGV)

            If dtGV.Rows.Count > 0 Then
                For i As Integer = 0 To dtGV.Rows.Count - 1

 Dim UNP_PORTCon As String = ""
 Dim UNP_TRADE_TERMCon As String = ""

Dim drcon As DataRow
dtcon.Columns.Add(New DataColumn("UNP_PORTCon", GetType(String)))
dtcon.Columns.Add(New DataColumn("UNP_TRADE_TERMCon", GetType(String)))

UNP_PORTCon = dtGV.Rows(i).Item("UNP_PORT")
UNP_TRADE_TERMCon = dtGV.Rows(i).Item("UNP_TRADE_TERM")

Dim dtcon1 As DataTable = gPartofDescheck(UNP_PORT)
                    If dtcon1.Rows.Count > 0 Then
                        UNP_PORT = dtcon1.Rows.Item(0).Item("code_cmmt").ToString()
                    End If

                    Dim dtcon2 As DataTable = checkTrade1impcon(UNP_TRADE_TERM)
                    If dtcon2.Rows.Count > 0 Then
                        UNP_TRADE_TERM = dtcon2.Rows.Item(0).Item("code_cmmt").ToString()
                    End If

                     drcon = dtcon.NewRow()
                     drcon("UNP_PORTCon") = UNP_PORTCon
                     drcon("UNP_TRADE_TERMCon") = UNP_TRADE_TERMCon
                     dtcon.Rows.Add(drcon)

Next

Me.GridView1.DataSource = dtcon
 GridView1.DataBind()