当前位置: 编程技术>.net/c#/asp.net
asp.net实例 添加textbox到datagrid控件的编辑模式
来源: 互联网 发布时间:2014-08-30
本文导语: asp.net实现添加textbox到datagrid控件的编辑模式。 代码: 代码示例: Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) If Not IsPostBack Then BuildDataList End If End Sub Sub DataList_Edit(sender As Object, e As DataListComm...
asp.net实现添加textbox到datagrid控件的编辑模式。
代码:
代码示例:
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
BuildDataList
End If
End Sub
Sub DataList_Edit(sender As Object, e As DataListCommandEventArgs)
dlDepts.EditItemIndex = CInt(e.Item.ItemIndex)
BuildDataList
End Sub
Sub DataList_Update(sender As Object, e As DataListCommandEventArgs)
Dim TheID as String
Dim TheFirstName as String
Dim TheLastName as String
TheID = CType(e.Item.FindControl("lblID"), Label).Text
TheFirstName = CType(e.Item.FindControl("txtName"), TextBox).Text
TheLastName = CType(e.Item.FindControl("txtEmail"), TextBox).Text
Dim DBConn as OleDbConnection
Dim DBUpdate As New OleDbCommand
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("EmployeeDatabase.mdb;"))
DBUpdate.CommandText = "Update Employee set " _
& "FirstName = '" & Replace(TheFirstName, "'", "''") & "', " _
& "LastName = '" & Replace(TheLastName, "'", "''") & "' " _
& "Where ID = " & TheID
DBUpdate.Connection = DBConn
DBUpdate.Connection.Open
DBUpdate.ExecuteNonQuery()
DBConn.Close
dlDepts.EditItemIndex = -1
BuildDataList
End Sub
Sub BuildDataList ()
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("EmployeeDatabase.mdb;"))
DBCommand = New OleDbDataAdapter _
("Select ID, FirstName, LastName " _
& "From Employee " _
& "Order By FirstName", DBConn)
DBCommand.Fill(DSPageData, _
"Employee")
dlDepts.DataSource = _
DSPageData.Tables("Employee").DefaultView
dlDepts.DataBind()
End Sub
编辑datagrid控件中的数据行-www.
Department:
Name:
Email: