以前做web的时候这样处理的 Dim pos As Integer ds.Tables("OrderDetails").DefaultView.Sort = "COD_MITEM,COD_LOC" Dim vals(1) As Object vals(0) = e.Item.Cells(1).Text vals(1) = "B" pos = ds.Tables("OrderDetails").DefaultView.Find(vals) If pos <> -1 Then ds.Tables("OrderDetails").Rows(pos).Delete() MessagBox.Show("已經刪除") End If
参考:
http://www.cnblogs.com/gwazy/archive/2005/06/15/111123.html
DataTable dt
dt.Rows.RemoveAt(index);
Dim pos As Integer
ds.Tables("OrderDetails").DefaultView.Sort = "COD_MITEM,COD_LOC"
Dim vals(1) As Object
vals(0) = e.Item.Cells(1).Text
vals(1) = "B"
pos = ds.Tables("OrderDetails").DefaultView.Find(vals)
If pos <> -1 Then
ds.Tables("OrderDetails").Rows(pos).Delete() MessagBox.Show("已經刪除")
End If