[原创]用Datatable,Datarows,Datacolumns绑定至Datagrid

    Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim table As New DataTable
        table.Columns.Add(New DataColumn("编号", GetType(Integer)))
        table.Columns.Add(New DataColumn("姓名", GetType(String)))
        table.Columns.Add(New DataColumn("电话", GetType(String)))
        Dim dr As DataRow
        dr = table.NewRow
        dr(0) = "0001"
        dr(1) = "XZLANG"
        dr(2) = "110"
        table.Rows.Add(dr)

        dr = table.NewRow
        dr(0) = "0002"
        dr(1) = "Xuexilin"
        dr(2) = "119"
        table.Rows.Add(dr)

        dr = table.NewRow
        dr(0) = "0003"
        dr(1) = "ZMJ"
        dr(2) = "114"
        table.Rows.Add(dr)

        DataGrid1.DataSource = table
        DataGrid1.DataBind()
    End Sub

转载于:https://www.cnblogs.com/xzlang/archive/2005/02/02/100980.html