如何添加、修改及删除UltraWebGrid？

经过几天奋战，终于搞定UltraWebGrid的添加、修改、删除,为避免各位仁兄少走弯路，特公告如下，请各位高手圈点：

Imports System.Data
Imports System.Data.SqlClient
Imports Infragistics.Shared
Imports Infragistics.WebUI
Public Class temp2
Inherits System.Web.UI.Page

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If Page.IsPostBack = False Then

Me.sdatemp.Fill(dstemp1)
Me.UltraWebGrid1.DataBind()

End If

End Sub

Private Sub LoadUpdatableDataSet()

If dstemp1.t_file_name.Rows.Count <= 0 Then
' fill dataset with server data
sdatemp.Fill(dstemp1)
' add guid column for new rows
Dim colGUID As New DataColumn("GUID", GetType(String))
dstemp1.t_file_name.Columns.Add(colGUID)
End If

End Sub

Private Sub UltraWebGrid1_InitializeLayout(ByVal sender As System.Object, ByVal e As Infragistics.WebUI.UltraWebGrid.LayoutEventArgs) Handles UltraWebGrid1.InitializeLayout

e.Layout.Bands(0).DataKeyField = "id"

e.Layout.AllowAddNewDefault _
= Infragistics.WebUI.UltraWebGrid.AllowAddNew.Yes
e.Layout.AllowDeleteDefault _
= Infragistics.WebUI.UltraWebGrid.AllowDelete.Yes
e.Layout.AllowUpdateDefault _
= Infragistics.WebUI.UltraWebGrid.AllowUpdate.Yes
e.Layout.AddNewBox.Hidden = False

e.Layout.CellClickActionDefault = _
Infragistics.WebUI.UltraWebGrid.CellClickAction.Edit

With e.Layout.Bands(0)
.Columns.Add("GUID")
.Columns.FromKey("GUID").Hidden = True
End With

End Sub

Private Sub UltraWebGrid1_UpdateGrid(ByVal sender As Object, ByVal e As Infragistics.WebUI.UltraWebGrid.UpdateEventArgs) Handles UltraWebGrid1.UpdateGrid

Dim c_colNewCustomerDataRows As New Collection

LoadUpdatableDataSet()

' test to see if there new rows to add
If c_colNewCustomerDataRows.Count > 0 Then
Dim drCustomers As dstemp.t_file_nameRow
For Each drCustomers In c_colNewCustomerDataRows
dstemp1.t_file_name.Rows.Add(drCustomers)
Next
End If

' attempt to send updates to database
Try
sdatemp.Update(dstemp1.t_file_name)
Catch ex As Exception
'DisplayMessages(ex.Message.ToString)
End Try

' if new rows were added, then rebind
If c_colNewCustomerDataRows.Count > 0 Then
UltraWebGrid1.DataBind()
End If

End Sub

Private Sub UltraWebGrid1_UpdateRowBatch(ByVal sender As Object, ByVal e As Infragistics.WebUI.UltraWebGrid.RowEventArgs) Handles UltraWebGrid1.UpdateRowBatch

Dim dataKey As String = CStr(e.Row.DataKey)

Select Case e.Row.DataChanged

Case UltraWebGrid.DataChanged.Added

Dim newDataTableRow As DataRow = dstemp1.Tables(0).NewRow()
Try
Dim c As UltraWebGrid.UltraGridCell
For Each c In e.Row.Cells
If -1 <> dstemp1.Tables(0).Columns.IndexOf(c.Column.Key) Then
newDataTableRow(c.Column.Key) = c.Value
End If
Next c
dstemp1.Tables(0).Rows.Add(newDataTableRow)
Catch ex As Exception
Me.UltraWebGrid1.ClientResponse.ResponseStatus = Infragistics.WebUI.UltraWebGrid.XmlHTTPResponseStatus.Fail
Me.UltraWebGrid1.ClientResponse.StatusMessage = ex.Message
Me.UltraWebGrid1.ClientResponse.Tag = ex.Message
End Try

e.Row.DataKey = e.Row.Cells.FromKey("id").Value

Case UltraWebGrid.DataChanged.Modified

If Nothing <> dataKey Then

LoadUpdatableDataSet()

Dim dr As DataRow = dstemp1.Tables(0).Rows.Find(New Object() {dataKey})
If Not Nothing Is dr Then

Dim c As UltraWebGrid.UltraGridCell
For Each c In e.Row.Cells
If -1 <> dstemp1.Tables(0).Columns.IndexOf(c.Column.Key) Then
If Not dr(c.Column.Key).Equals(c.Value) Then
dr(c.Column.Key) = c.Value
End If
End If
Next c
End If
e.Row.DataKey = e.Row.Cells.FromKey("id").Value
End If

End Select

End Sub

Private Sub UltraWebGrid1_DeleteRowBatch(ByVal sender As Object, ByVal e As Infragistics.WebUI.UltraWebGrid.RowEventArgs) Handles UltraWebGrid1.DeleteRowBatch

Dim dataKey As String = CStr(e.Row.DataKey)
LoadUpdatableDataSet()

' in the case of deleted data, we used the DataKey value off of the row to locate the row in the datasource and remove it
If Nothing <> dataKey Then
' First we locate the row in the DataTable object with the corresponding key
Dim dr As DataRow = dstemp1.Tables(0).Rows.Find(New Object() {dataKey})
' if found, delete
If Not Nothing Is dr Then
dr.Delete()
End If
End If
End Sub

End Class