与结合使用的

当把DataSet 绑定到Datagrid控件，并利用DataAdapter对象修改数据库

如：

dim adp as new OleDbDataAdapter(stradp,conn)

dim ocb as new OleDbCommandBuilder(adp)

leteCommand = tDeleteCommand()

date(ds,\"Orders\")

执行删除操作时，如我们加入这样一个方法：

sub mydatagrid_delete(sender as object, e as datagridcommandeventargs)

dim dt as new DataTable()

dt = bles(\"Orders\")

dim dr as DataRow

dr = ws(emIndex)

lete

\'ceptChanges \'曾经尝试使用彻底删除，发现adp自动更新回数据库时，无法自动生成相应的sql语句

\'解决删除当前页最后一项时出现的页索引异常

dim lastEditPage as integer = rrentPageIndex

If (geCount - rrentPageIndex) = 1 and unt = 1 Then

If geCount 1 Then

lastEditPage = LastEditPage - 1

Else

lastEditPage = 0

End If

End If

rrentPageIndex = lastEditPage

session(\"orderList\") = ds

ititemindex = -1

tasource = bles(\"Orders\")

tabind()

end sub

当由第一个开始逐个删除时出现了异常，发现在删除第二时，删不掉，即原来的dr(2)没有自动变为dr(1)。如果我们使用lete ceptChanges则可以自动变化，但是上面说明了，则无法使用自动更新回到数据库。我们必须获得删除时的实际索引，所以就用了一个本方法，在当前的ds中另外建了一个Table，保持同步删除，但是在Table的id列中，保存实际的索引值，具体代码如下：

解决dr索引的一个办法：

dim orderTable as new DataTable() \'建一个临时表用来保存索引,保持同步删除

dim theNewRow as DataRow

dim dc as DataColumn

bleName = \"orderId\"

d(orderTable)

dc = new DataColumn()

lumnName = \"id\"

d(dc)

dim dcKey() as DataColumn = {lumns(\"id\")}

太可怕啦 首页多彩生活娱乐八卦汽车世界科技产业数码新品游戏动漫体坛风云军情解码社会万象健康养生 首页 / 社会万象 / 别在上晒娃！陌生人搭讪4岁女娃叫得出名字 imaryKey = dcKey

dim i as integer

For i = 0 to (bles(\"Users\").unt - 1)

theNewRow = wRow()

theNewRow(\"id\") = String()

d(theNewRow)

Next

上述删除功能中加的代码,替换 dr = ws(emIndex)：

dim drOrder as DataRow

drOrder = bles(\"orderId\").Rows(emIndex)

dim currentOrder as integer = CInt(drOrder(\"id\")) + rrentPageIndex * geSize

dr = ws(currentOrder)

lete

如果有更新功能，则替换dr = ws(emIndex)：

dim drOrder as DataRow

drOrder = bles(\"orderId\").Rows(emIndex)

dim currentOrder as integer = CInt(drOrder(\"id\")) + rrentPageIndex * geSize

dr = ws(currentOrder)

查看本文来源

心肌梗死高血压怎么办
福州宫颈糜烂治疗哪家好
江门有专业白癜风医院吗