如何添加、修改及删除UltraWebGrid？
如何添加、修改及删除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