Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
Dim strCn As String = "Data Source=.;uid=develop;pwd=12345;Initial Catalog=new_ks"
Dim strSQL As String = " SELECT id,val,dd " & _
" FROM dbo.tabA "
Dim sadTest As New SqlDataAdapter(strSQL, strCn)
Dim dsTest As New DataSet
sadTest.Fill(dsTest)
Session("Table") = dsTest.Tables(0)
DataGrid1.DataSource = dsTest.Tables(0).DefaultView
DataGrid1.DataBind()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tblOld As DataTable = CType(Session("Table"), DataTable)
Dim tblNew As New DataTable
Dim intI As Integer
Dim rowNew, rowTemp As DataRow
tblNew.Columns.Add("val")
tblNew.Columns.Add("dd")
For intI = 0 To tblOld.Rows.Count - 1
rowTemp = tblOld.Rows(intI)
rowNew = tblNew.NewRow()
rowNew.Item(0) = rowTemp.Item(1)
rowNew.Item(1) = rowTemp.Item(2)
tblNew.Rows.Add(rowNew)
Next
DataGrid1.DataSource = tblNew.DefaultView
DataGrid1.DataBind()
End Sub