Dim ds As DataSet
Dim i As Integer
Dim column_name As String
Dim column_title As String
ds = Session("nowdataset")
For i = 0 To ds.Tables("nowtable").Columns.Count - 1
column_name = ds.Tables("nowtable").Columns(i).ColumnName
'取得dataset中表的每个字段的名字和title
column_title = ds.Tables("nowtable").Columns(i).Caption
Dim newcolumn As New BoundColumn
'定义一个绑定控件
newcolumn.DataField = column_name
'设置绑定控件的数据源,字段名
newcolumn.HeaderText = column_title
'设置绑定控件的标题
DataGrid1.Columns.Add(newcolumn)
'向datagrid中添加一列
Next
DataGrid1.DataKeyField = ds.Tables("nowtable").Columns(0).ColumnName
'设置表格的关键数据datakeyfield
DataGrid1.Columns(2).Visible = False
'使表格第三列不可见,该列为keyfield
DataGrid1.DataSource = ds.Tables("nowtable").DefaultView
DataGrid1.DataBind()
Dim newcolumn As New BoundColumn
'定义一个绑定控件
newcolumn.DataField = column_name
'设置绑定控件的数据源,字段名
newcolumn.HeaderText = column_title
'设置绑定控件的标题
DataGrid1.Columns.Add(newcolumn)