在DataGrid控件里面写入数据函数

 '************************************************************************************************************'
    '********************************    填写DataGrid的数据的函数     *******************************************'
    '************************************************************************************************************'
    Private Sub CreateNewDataRow()
        '利用函数MakeNamesTable生成表
        Dim getSQLTable As DataTable
        getSQLTable = MakeItemTable()

        Dim selectSQL = "Select * from itmas"

        '********************************************************************************************************'
        '**********************************          获取ODBC MYSQL连接        **********************************'
        '********************************************************************************************************'
        Dim myConnection As New OdbcConnection(MySQLConnect.ConnectionString)
        Dim myCommand As New OdbcCommand(selectSQL, myConnection)
        Dim custDA As OdbcDataAdapter = New OdbcDataAdapter(selectSQL, myConnection)

        myConnection.Open()
        Dim myReader As OdbcDataReader
        Dim myUpdate As OdbcDataAdapter

        '********************************************************************************************************'
        '**********************************          获取ODBC MYSQL数据        **********************************'
        '********************************************************************************************************'
        myReader = myCommand.ExecuteReader()
        While myReader.Read()
            '向已经生成的表里面增加记录
            Dim getSQLRow As DataRow
            getSQLRow = getSQLTable.NewRow()

            '增加记录
            getSQLRow("物料代号") = myReader.GetValue(1)
            getSQLRow("物料描述") = myReader.GetValue(2)
            getSQLRow("物料单价") = myReader.GetValue(3)
            getSQLRow("物料单位") = myReader.GetValue(4)
            getSQLRow("安全库存") = myReader.GetValue(6)
            getSQLTable.Rows.Add(getSQLRow)
        End While

        '********************************************************************************************************'
        '**********************************          关闭ODBC MYSQL连接        **********************************'
        '********************************************************************************************************'
        myReader.Close()
        myConnection.Close()

        Dim dc As DataColumn
        For Each dc In getSQLTable.Columns
            Console.WriteLine(dc.ColumnName)
        Next
        Me.DateShow.DataSource = getSQLTable
        Me.DateShow.ReadOnly = True
    End Sub

    '************************************************************************************************************'
    '************************************    建立表单的主函数     ***********************************************'
    '************************************************************************************************************'
    Private Function MakeItemTable() As DataTable
        '建立一个新的表
        Dim ItemTable As DataTable = New DataTable("")

        '增加表里面的列
        Dim idColumn As DataColumn = New DataColumn
        idColumn.DataType = System.Type.GetType("System.Int32")
        idColumn.ColumnName = "序号"
        idColumn.AutoIncrement = True
        ItemTable.Columns.Add(idColumn)

        Dim itemCodeColumn As DataColumn = New DataColumn
        itemCodeColumn.DataType = System.Type.GetType("System.String")
        itemCodeColumn.ColumnName = "物料代号"
        itemCodeColumn.DefaultValue = "Fname"
        ItemTable.Columns.Add(itemCodeColumn)

        Dim itemDescColumn As DataColumn = New DataColumn
        itemDescColumn.DataType = System.Type.GetType("System.String")
        itemDescColumn.ColumnName = "物料描述"
        ItemTable.Columns.Add(itemDescColumn)

        Dim priceColumn As DataColumn = New DataColumn
        priceColumn.DataType = System.Type.GetType("System.String")
        priceColumn.ColumnName = "物料单价"
        ItemTable.Columns.Add(priceColumn)

        Dim unitColumn As DataColumn = New DataColumn
        unitColumn.DataType = System.Type.GetType("System.String")
        unitColumn.ColumnName = "物料单位"
        ItemTable.Columns.Add(unitColumn)

        Dim safeBalColumn As DataColumn = New DataColumn
        safeBalColumn.DataType = System.Type.GetType("System.String")
        safeBalColumn.ColumnName = "安全库存"
        ItemTable.Columns.Add(safeBalColumn)

        '创建关键字
        Dim keys(0) As DataColumn
        keys(0) = idColumn
        ItemTable.PrimaryKey = keys

        '返回刚刚建立好的表
        MakeItemTable = ItemTable
    End Function