Private Sub Butdel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butdel.Click
If MessageBox.Show("真的要删除吗?请确认", "提示信息", MessageBoxButtons.YesNo, MessageBoxIcon.Stop) = Windows.Forms.DialogResult.Yes Then
If bmdata.Count > 0 Then
DataSet11.Tables("feiyong").Rows(bmdata.Position).Delete()
If DataSet11.HasChanges = True Then '判断数据集DataSet11中的数据是否有变化
'获取DataSet11中发生变化的数据,结果也是DataSet对象;不直接更新DataSet11是为了提高效率
Dim dschild As DataSet = DataSet11.GetChanges()
SqlDataAdapter1.Update(dschild)
End If
End If
End If
End Sub
出现当传递具有已删除行的 DataRow 集合时,Update 要求有效的 DeleteCommand。但是我的数据库已经设置了主键之类的了
![![图片说明](https://img-ask.csdn.net/upload/201708/30/1504083779_411457.png)图片说明](https://img-ask.csdn.net/upload/201708/30/1504083765_265858.png)