asked on
Imports System.Data
Public Class dynamicgrid
Private Sub dynamicgrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
loaddynamicgrid()
End Sub
Private Sub loaddynamicgrid()
Dim dt As New DataTable
Dim dcol As New DataColumn(ID, GetType(Integer))
dcol.AutoIncrement = True
dt.Columns.Add(dcol)
dcol = New DataColumn(Name, GetType(String))
dt.Columns.Add(dcol)
For nindex As Integer = 0 To 9
Dim drow As DataRow = dt.NewRow
drow(Name) = "row-" & Convert.ToString((nindex + 1))
dt.Rows.Add(drow)
Next
For Each col As DataColumn In dt.Columns
Dim bfield As New Boundfied()
bfield.DataField = col.ColumnName
bfield.HeaderText = col.ColumnName
Grddynamic.Columns.Add(bfield)
Next
End Sub
End Class