Imports System
Imports System.Data
 
Public Class Test
 
	Public Shared Sub Main()
		'Build Table
		Dim dt as New DataTable
		dt.Columns.Add("ID",GetType(String))
		dt.Columns.Add("Name",GetType(String))
 
		'Populate Table
		Dim dr as DataRow
		dr = dt.NewRow()
		dr("ID")="Man" : dr("Name") = "mike" : dt.Rows.Add(dr)
		dr = dt.NewRow()
		dr("ID")="Man" : dr("Name") = "ian" : dt.Rows.Add(dr)
		dr = dt.NewRow()
		dr("ID")="Man" : dr("Name") = "rob" : dt.Rows.Add(dr)
		dr = dt.NewRow()
		dr("ID")="Woman" : dr("Name") = "ann" : dt.Rows.Add(dr)
		dr = dt.NewRow()
		dr("ID")="Woman" : dr("Name") = "sam" : dt.Rows.Add(dr)
 
		output(dt)	'Output Table
 
		Dim drFilters() as DataRow = dt.Select("ID='Man'")	'Select all Man
 
 
 
		'Method 2 does change dt
		dr = drFilters(1)
		dr("ID")="cowman" : dr("Name")="bugle"
 
		output(dt)
 
		dr = dt.NewRow()
		dt.Rows.Add(dr)
 
		output(dt)
 
		dr("ID")="Pooper"
		dr("Name")="Scooper"
 
		output(dt)
 
 
	End Sub
 
	Public Shared Sub output(dt as DataTable)
		for each dr as DataRow in dt.Rows
			Console.WriteLine(dr("ID") + vbTab + dr("Name"))
		Next
		Console.WriteLine("")
	End Sub
 
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uRGF0YQoKUHVibGljIENsYXNzIFRlc3QKCglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQknQnVpbGQgVGFibGUKCQlEaW0gZHQgYXMgTmV3IERhdGFUYWJsZQoJCWR0LkNvbHVtbnMuQWRkKCJJRCIsR2V0VHlwZShTdHJpbmcpKQoJCWR0LkNvbHVtbnMuQWRkKCJOYW1lIixHZXRUeXBlKFN0cmluZykpCgoJCSdQb3B1bGF0ZSBUYWJsZQoJCURpbSBkciBhcyBEYXRhUm93CgkJZHIgPSBkdC5OZXdSb3coKQoJCWRyKCJJRCIpPSJNYW4iIDogZHIoIk5hbWUiKSA9ICJtaWtlIiA6IGR0LlJvd3MuQWRkKGRyKQoJCWRyID0gZHQuTmV3Um93KCkKCQlkcigiSUQiKT0iTWFuIiA6IGRyKCJOYW1lIikgPSAiaWFuIiA6IGR0LlJvd3MuQWRkKGRyKQoJCWRyID0gZHQuTmV3Um93KCkKCQlkcigiSUQiKT0iTWFuIiA6IGRyKCJOYW1lIikgPSAicm9iIiA6IGR0LlJvd3MuQWRkKGRyKQoJCWRyID0gZHQuTmV3Um93KCkKCQlkcigiSUQiKT0iV29tYW4iIDogZHIoIk5hbWUiKSA9ICJhbm4iIDogZHQuUm93cy5BZGQoZHIpCgkJZHIgPSBkdC5OZXdSb3coKQoJCWRyKCJJRCIpPSJXb21hbiIgOiBkcigiTmFtZSIpID0gInNhbSIgOiBkdC5Sb3dzLkFkZChkcikKCgkJb3V0cHV0KGR0KQknT3V0cHV0IFRhYmxlCgoJCURpbSBkckZpbHRlcnMoKSBhcyBEYXRhUm93ID0gZHQuU2VsZWN0KCJJRD0nTWFuJyIpCSdTZWxlY3QgYWxsIE1hbgoKCgoJCSdNZXRob2QgMiBkb2VzIGNoYW5nZSBkdAoJCWRyID0gZHJGaWx0ZXJzKDEpCgkJZHIoIklEIik9ImNvd21hbiIgOiBkcigiTmFtZSIpPSJidWdsZSIKCgkJb3V0cHV0KGR0KQoJCQoJCWRyID0gZHQuTmV3Um93KCkKCQlkdC5Sb3dzLkFkZChkcikKCQkKCQlvdXRwdXQoZHQpCgkJCgkJZHIoIklEIik9IlBvb3BlciIKCQlkcigiTmFtZSIpPSJTY29vcGVyIgoJCQoJCW91dHB1dChkdCkKCQkKCQkKCUVuZCBTdWIKCglQdWJsaWMgU2hhcmVkIFN1YiBvdXRwdXQoZHQgYXMgRGF0YVRhYmxlKQoJCWZvciBlYWNoIGRyIGFzIERhdGFSb3cgaW4gZHQuUm93cwoJCQlDb25zb2xlLldyaXRlTGluZShkcigiSUQiKSArIHZiVGFiICsgZHIoIk5hbWUiKSkKCQlOZXh0CgkJQ29uc29sZS5Xcml0ZUxpbmUoIiIpCglFbmQgU3ViCgpFbmQgQ2xhc3M=