當(dāng)把DataSet 綁定到Datagrid控件，

并利用DataAdapter對(duì)象修改數(shù)據(jù)庫

 如：
 dim adp as new OleDbDataAdapter(stradp,conn)
 dim ocb as new OleDbCommandBuilder(adp)
 adp.DeleteCommand = ocb.GetDeleteCommand()
 adp.Update(ds,"Orders")
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

執(zhí)行刪除操作時(shí)，如我們加入這樣一個(gè)方法：
sub mydatagrid_delete(sender as object, e as datagridcommandeventargs)
   dim dt as new DataTable()
   dt = ds.Tables("Orders")
   dim dr as DataRow
   dr = dt.Rows(E.Item.ItemIndex)
   dr.delete
   'dr.AcceptChanges  '曾經(jīng)嘗試使用徹底刪除，發(fā)現(xiàn)adp自動(dòng)更新回?cái)?shù)據(jù)庫時(shí)，無法自動(dòng)生成相應(yīng)的sql語句

'解決刪除當(dāng)前頁最后一項(xiàng)時(shí)出現(xiàn)的頁索引異常
' *****************************************************************
   dim lastEditPage as integer = mydatagrid.currentPageIndex
   If (mydatagrid.pageCount - mydatagrid.currentPageIndex) = 1 and mydatagrid.Items.Count = 1 Then
      If mydatagrid.pageCount > 1 Then
      lastEditPage = LastEditPage - 1
   Else
      lastEditPage = 0
   End If
  
   End If
   mydatagrid.currentPageIndex = lastEditPage
' ****************************************************************

   session("orderList") = ds
   mydatagrid.edititemindex = -1
   mydatagrid.datasource = ds.tables("Orders")
   mydatagrid.databind()  
end sub

當(dāng)由第一個(gè)開始逐個(gè)刪除時(shí)出現(xiàn)了異常，發(fā)現(xiàn)在刪除第二時(shí)，刪不掉，即原來的dr(2)沒有自動(dòng)變?yōu)閐r(1)。如果我們使用dr.delete    dr.acceptChanges則可以自動(dòng)變化，但是上面說明了，則無法使用自動(dòng)更新回到數(shù)據(jù)庫。我們必須獲得刪除時(shí)的實(shí)際索引，所以就用了一個(gè)本方法，在當(dāng)前的ds中另外建了一個(gè)Table，保持同步刪除，但是在Table的id列中，保存實(shí)際的索引值，具體代碼如下：

解決dr索引的一個(gè)辦法：

       dim orderTable as new DataTable()       '建一個(gè)臨時(shí)表用來保存索引,保持同步刪除
       dim theNewRow as DataRow      
       dim dc as DataColumn
      
       orderTable.TableName = "orderId"
       ds.Tables.add(orderTable)
       dc = new DataColumn()
       dc.ColumnName = "id"
       orderTable.columns.add(dc)
      
       dim dcKey() as DataColumn = {orderTable.Columns("id")}
       orderTable.PRimaryKey = dcKey
      
       dim i as integer
       For i = 0 to (ds.Tables("Users").Rows.Count - 1) 
           theNewRow = orderTable.NewRow()          
           theNewRow("id") = i.toString()
           orderTable.Rows.add(theNewRow)
       Next   

上述刪除功能中加的代碼,替換 dr = dt.Rows(e.Item.ItemIndex)：

      dim drOrder as DataRow
      drOrder = ds.Tables("orderId").Rows(E.Item.ItemIndex)
      dim currentOrder as integer = CInt(drOrder("id")) + mydatagrid.currentPageIndex * mydatagrid.PageSize
      dr = dt.Rows(currentOrder)
      drOrder.delete

如果有更新功能，則替換dr = dt.Rows(e.Item.ItemIndex)：

      dim drOrder as DataRow
      drOrder = ds.Tables("orderId").Rows(E.Item.ItemIndex)
      dim currentOrder as integer = CInt(drOrder("id")) + mydatagrid.currentPageIndex * mydatagrid.PageSize
      dr = dt.Rows(currentOrder)