判断行状态是已编辑过或者刚新增的
Dim dsTestChange As DataSet
If dsTEST.HasChanges(DataRowState.Modified) Then
dsTestChange = dsTEST.GetChanges(DataRowState.Modified)
If dsTestChange.HasErrors() Then
dsTEST.RejectChanges()
Else
daProduct.Update(dsTestChange)
dsTEST.AcceptChanges()
End If
End If
If dsTEST.HasChanges(DataRowState.Added) Then
dsTestChange = dsTEST.GetChanges(DataRowState.Added)
If dsTestChange.HasErrors() Then
dsTEST.RejectChanges()
Else
daProduct.Update(dsTestChange)
dsTEST.AcceptChanges()
End If
End If
If dsTEST.HasChanges(DataRowState.Deleted) Then
dsTestChange = dsTEST.GetChanges(DataRowState.Deleted)
If dsTestChange.HasErrors() Then
dsTEST.RejectChanges()
Else
daProduct.Update(dsTestChange)
dsTEST.AcceptChanges()
End If
End If