Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim conn As New Data.SqlClient.SqlConnection(st)
conn.Open()
Dim adapt As New SqlDataAdapter("select * from blog where id_mem =" + Label1.Text, conn)
Dim datset As New DataSet
adapt.Fill(datset, "blog")
DataGrid1.DataSource = datset.Tables("blog")
DataGrid1.DataBind()
End Sub
//////////////////////////////////////////////////////////
Sub grid_edit(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = e.Item.ItemIndex
DataGrid1.DataBind()
End Sub
////////////////////////////////////////////////////////
Sub grid_canceledit(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = -1
DataGrid1.DataBind()
End Sub
///////////////////////////////////////////////////////
Sub grid_update()
????????????????????????????????????????????
End Sub