.NET (Core and Framework)

<br />
	Public Function SetRowOriginalItemValue(ByVal primaryKeyColumn As DataColumn, ByVal key As Object, ByVal editColumn As DataColumn, ByVal value As Object) As Boolean<br />
		'Utils.Assert.ArgumentCheckForNullReference(primaryKeyColumn, "primaryKeyColumn")<br />
		'Utils.Assert.ArgumentCheckForNullReference(key, "key")<br />
		'Utils.Assert.ArgumentCheckForNullReference(editColumn, "editColumn")<br />
		'Utils.Assert.ArgumentCheckExpectedType(key, primaryKeyColumn.DataType)<br />
		'Utils.Assert.ArgumentCheckExpectedType(value, editColumn.DataType)<br />
		Dim t As DataTable = editColumn.Table<br />
		Dim d As DataSet = t.DataSet<br />
		Dim s As New IO.MemoryStream<br />
		d.WriteXml(s, XmlWriteMode.DiffGram)<br />
		s.Seek(0, IO.SeekOrigin.Begin)<br />
		Dim doc As New Xml.XmlDocument<br />
		doc.Load(s)<br />
		Dim nsmgr As Xml.XmlNamespaceManager = New Xml.XmlNamespaceManager(doc.NameTable)<br />
		nsmgr.AddNamespace("diffgr", "urn:schemas-microsoft-com:xml-diffgram-v1")<br />
		nsmgr.AddNamespace("my", d.Namespace)<br />
		Dim xp As String = String.Format(New Globalization.CultureInfo("en-US"), _<br />
		 "/diffgr:diffgram/diffgr:before/my:{0}[starts-with(@diffgr:id, '{0}')]/my:{1}[text()='{2}']/../my:{3}/node()", _<br />
		  t.TableName, primaryKeyColumn.ColumnName, key, editColumn.ColumnName)<br />
		Dim n As Xml.XmlNode = doc.DocumentElement.SelectSingleNode(xp, nsmgr)<br />
		If Not n Is Nothing Then<br />
			n.Value = value<br />
			d.Clear()<br />
			d.ReadXml(New IO.StringReader(doc.InnerXml), XmlReadMode.DiffGram)<br />
			Return True<br />
		End If<br />
		Return False<br />
	End Function<br />
<br />
''''''''''''''''''''<br />
<br />
	Sub SetRowOriginalItemValueTest()<br />
		Dim d As New DistrictSet<br />
		Dim row As DistrictSet.DistrictsRow<br />
		row = d.Districts.NewDistrictsRow<br />
		row.DistrictId = 109901<br />
		row.DistrictName = "Orange County"<br />
		d.Districts.AddDistrictsRow(row)<br />
		d.AcceptChanges()<br />
<br />
		d.Districts(0).DistrictName = "West Coast"<br />
<br />
		Diagnostics.Trace.WriteLine("Current: " & d.Districts.Item(0)("DistrictName"))<br />
		Diagnostics.Trace.WriteLine("Original before SetRowOriginalItemValue(): " & d.Districts.Item(0)("DistrictName", DataRowVersion.Original))<br />
<br />
		SetRowOriginalItemValue(d.Districts.DistrictIdColumn, 109901, d.Districts.DistrictNameColumn, "Northeast")<br />
<br />
		Diagnostics.Trace.WriteLine("Original after SetRowOriginalItemValue(): " & d.Districts.Item(0)("DistrictName", DataRowVersion.Original))<br />
	End Sub<br />