DataView loop and edit?

[Able]

Dear friends

Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers"))

myDataView.RowFilter = "City = 'London'"

My question is how to loop through all rows in myDataView and edit the field
fldZipCode so fldZipCode = "9800"

Regards Able

[Cor Ligthert]

Hi Able,

You can loop though any dataview in the normal way
Typed in this message watch errors
\\\
For i as Integer = 0 to myDataView.count - 1
myDataView(i)("fldZipCode")="9800"
Next
///
That is all

I hope this helps?

Cor

Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers"))

myDataView.RowFilter = "City = 'London'"

My question is how to loop through all rows in myDataView and edit the field fldZipCode so fldZipCode = "9800"

Regards Able

[Able]

This goes fine
For i as Integer = 0 to myDataView.count - 1
MsgBox(myDataView(i)("fldZipCode"))
Next

but this causes out of range error
For i as Integer = 0 to myDataView.count - 1
myDataView(i)("fldZipCode")="9800"
Next

Regards Able
"Cor Ligthert" <no**********@planet.nl> skrev i melding
news:us**************@TK2MSFTNGP11.phx.gbl...

Hi Able,

You can loop though any dataview in the normal way
Typed in this message watch errors
\\\
For i as Integer = 0 to myDataView.count - 1
myDataView(i)("fldZipCode")="9800"
Next
///
That is all

I hope this helps?

Cor

Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers"))

myDataView.RowFilter = "City = 'London'"

My question is how to loop through all rows in myDataView and edit the

field

fldZipCode so fldZipCode = "9800"

Regards Able

[Ken Tucker [MVP]]

Hi,

This example uses a dataview dv.

Dim drv As DataRowView

For Each drv In dv
drv.BeginEdit()
drv.Item("PostalCode") = "2345"
drv.EndEdit()
Next

Ken
------------------

"Able" <ab**@epost.no> wrote in message
news:u5*******************@news4.e.nsc.no:

Dear friends

Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers"))

myDataView.RowFilter = "City = 'London'"

My question is how to loop through all rows in myDataView and edit the
field
fldZipCode so fldZipCode = "9800"

Regards Able

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.0.0 - Release Date: 6/2/2004

[Able]

My DataView has 3 rows and error occurs on editing second row.

Regards Able

"Ken Tucker [MVP]" <vb***@bellsouth.net> skrev i melding
news:uC**************@tk2msftngp13.phx.gbl...

Hi,

This example uses a dataview dv.

Dim drv As DataRowView

For Each drv In dv
drv.BeginEdit()
drv.Item("PostalCode") = "2345"
drv.EndEdit()
Next

Ken
------------------

"Able" <ab**@epost.no> wrote in message
news:u5*******************@news4.e.nsc.no:

Dear friends

Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers"))

myDataView.RowFilter = "City = 'London'"

My question is how to loop through all rows in myDataView and edit the
field
fldZipCode so fldZipCode = "9800"

Regards Able

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.0.0 - Release Date: 6/2/2004

[The Grim Reaper]

What's the data in the PostalCode field of the second row?? Is it Null??
____________________________
The Grim Reaper

"Able" <ab**@epost.no> wrote in message
news:_K*******************@news2.e.nsc.no...

My DataView has 3 rows and error occurs on editing second row.

Regards Able

"Ken Tucker [MVP]" <vb***@bellsouth.net> skrev i melding
news:uC**************@tk2msftngp13.phx.gbl...

Hi,

This example uses a dataview dv.

Dim drv As DataRowView

For Each drv In dv
drv.BeginEdit()
drv.Item("PostalCode") = "2345"
drv.EndEdit()
Next

Ken
------------------

"Able" <ab**@epost.no> wrote in message
news:u5*******************@news4.e.nsc.no:

Dear friends

Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers"))
myDataView.RowFilter = "City = 'London'"

My question is how to loop through all rows in myDataView and edit the
field
fldZipCode so fldZipCode = "9800"

Regards Able

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.0.0 - Release Date: 6/2/2004

[Able]

No

"The Grim Reaper" <gr*********@btopenworld.com> skrev i melding
news:c9**********@sparta.btinternet.com...

What's the data in the PostalCode field of the second row?? Is it Null??
____________________________
The Grim Reaper

"Able" <ab**@epost.no> wrote in message
news:_K*******************@news2.e.nsc.no...

My DataView has 3 rows and error occurs on editing second row.

Regards Able

"Ken Tucker [MVP]" <vb***@bellsouth.net> skrev i melding
news:uC**************@tk2msftngp13.phx.gbl...

Hi,

This example uses a dataview dv.

Dim drv As DataRowView

For Each drv In dv
drv.BeginEdit()
drv.Item("PostalCode") = "2345"
drv.EndEdit()
Next

Ken
------------------

"Able" <ab**@epost.no> wrote in message
news:u5*******************@news4.e.nsc.no:
> Dear friends
>
> Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers")) >
> myDataView.RowFilter = "City = 'London'"
>
> My question is how to loop through all rows in myDataView and edit the > field
> fldZipCode so fldZipCode = "9800"
>
> Regards Able
>

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.0.0 - Release Date: 6/2/2004

[Ken Tucker [MVP]]

Hi,

Try this. What is the exact error message printed in the output
window.

Dim drv As DataRowView

For Each drv In dv
Try
drv.BeginEdit()
drv.Item("PostalCode") = "2345"
drv.EndEdit()
Catch ex As Exception
Trace.WriteLine(ex.ToString)
End Try
Next

Ken
---------------

"Able" <ab**@epost.no> wrote in message
news:_K*******************@news2.e.nsc.no:

My DataView has 3 rows and error occurs on editing second row.

Regards Able

"Ken Tucker [MVP]" <HYPERLINK
"mailto:vb***@bellsouth.net"vb***@bellsouth.ne t> skrev i melding
news:uC**************@tk2msftngp13.phx.gbl...

Hi,

This example uses a dataview dv.

Dim drv As DataRowView

For Each drv In dv
drv.BeginEdit()
drv.Item("PostalCode") = "2345"
drv.EndEdit()
Next

Ken
------------------

"Able" <HYPERLINK "mailto:ab**@epost.no"ab**@epost.no> wrote in
message
news:u5*******************@news4.e.nsc.no:

Dear friends

Dim myDataView as DataView = New
DataView(dsData.Tables("tblCustomers"))

myDataView.RowFilter = "City = 'London'"

My question is how to loop through all rows in myDataView and edit
the
field
fldZipCode so fldZipCode = "9800"

Regards Able

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.0.0 - Release Date: 6/2/2004

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.0.0 - Release Date: 6/2/2004

[Able]

System.IndexOutOfRangeException: It doesnt exist any row at placing 2.

at System.Data.DataView.GetRecord(Int32 recordIndex)

at System.Data.DataView.IsOriginalVersion(Int32 index)

at System.Data.DataRowView.SetColumnValue(DataColumn column, Object value)

at System.Data.DataRowView.set_Item(String property, Object value)

at Test.Form1.btnEdit_Click(Object sender, EventArgs e) in
D:\VBNet\Test\Test\Form1.vb:line 1825

"Ken Tucker [MVP]" <vb***@bellsouth.net> skrev i melding
news:eW**************@tk2msftngp13.phx.gbl...

Hi,

Try this. What is the exact error message printed in the output
window.

Dim drv As DataRowView

For Each drv In dv
Try
drv.BeginEdit()
drv.Item("PostalCode") = "2345"
drv.EndEdit()
Catch ex As Exception
Trace.WriteLine(ex.ToString)
End Try
Next

Ken
---------------

"Able" <ab**@epost.no> wrote in message
news:_K*******************@news2.e.nsc.no:

My DataView has 3 rows and error occurs on editing second row.

Regards Able

"Ken Tucker [MVP]" <HYPERLINK
"mailto:vb***@bellsouth.net"vb***@bellsouth.ne t> skrev i melding
news:uC**************@tk2msftngp13.phx.gbl...

Hi,

This example uses a dataview dv.

Dim drv As DataRowView

For Each drv In dv
drv.BeginEdit()
drv.Item("PostalCode") = "2345"
drv.EndEdit()
Next

Ken
------------------

"Able" <HYPERLINK "mailto:ab**@epost.no"ab**@epost.no> wrote in
message
news:u5*******************@news4.e.nsc.no:

> Dear friends
>
> Dim myDataView as DataView = New
> DataView(dsData.Tables("tblCustomers"))
>
> myDataView.RowFilter = "City = 'London'"
>
> My question is how to loop through all rows in myDataView and edit
> the
> field
> fldZipCode so fldZipCode = "9800"
>
> Regards Able
>

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.0.0 - Release Date: 6/2/2004

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.0.0 - Release Date: 6/2/2004

[Cor Ligthert]

Hi Able,

This gives me 3 rows in a datagrid with 9800 London

So there should be something else wrong.

\\\\
Dim dt As New DataTable("tblCustomers")
dt.Columns.Add("fldZipCode")
dt.Columns.Add("City")
For i As Integer = 0 To 2
Dim dr As DataRow = dt.NewRow
dr("City") = "Amsterdam"
dt.Rows.Add(dr)
Dim drt As DataRow = dt.NewRow
drt("City") = "London"
dt.Rows.Add(drt)
Next
Dim dv As New DataView(dt)
dv.RowFilter = "City = 'London'"
For i As Integer = 0 To dv.Count - 1
dv(i)("fldZipCode") = "9800"
Next
DataGrid1.DataSource = dv
///

I hope this helps?

Cor

[Able]

Has to define my question more accurately:

Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers"))

This works:
myDataView.RowFilter = "City = 'London'"

For i as Integer = 0 to myDataView.count - 1
myDataView(i)("fldZipCode")="9800"
Next

....but this doesnt:
myDataView.RowFilter = "City = 'London' And fldZipCode = '9000'"

For i as Integer = 0 to myDataView.count - 1
myDataView(i)("fldZipCode")="9800"
Next

Able
"Able" <ab**@epost.no> skrev i melding
news:u5*******************@news4.e.nsc.no...

Dear friends

Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers"))

myDataView.RowFilter = "City = 'London'"

My question is how to loop through all rows in myDataView and edit the field fldZipCode so fldZipCode = "9800"

Regards Able

[Jay B. Harlow [MVP - Outlook]]

Able,

myDataView.RowFilter = "City = 'London' And fldZipCode = '9000'"
myDataView(i)("fldZipCode")="9800"
Because you used fldZipCode in your Filter, As you change the fldZipCode
field the contents of the collection (the items in the DataView) changes.

The easiest way maybe to use DataTable.Select in this case. As
DataTable.Select returns a fixed array of rows, where as the DataView is a
dynamic collection of rows.

Something like:
Dim table As DataTable = dsData.Tables("tblCustomers")
Dim filterExpression As String = "City = 'London' And fldZipCode =
'9000'"
For Each row As DataRow in table.Select(filterExpression)
row("fldZipCode")="9800"
Next

Hope this helps
Jay

"Able" <ab**@epost.no> wrote in message
news:G0*******************@news4.e.nsc.no... Has to define my question more accurately:

Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers"))

This works:
myDataView.RowFilter = "City = 'London'"

For i as Integer = 0 to myDataView.count - 1
myDataView(i)("fldZipCode")="9800"
Next

...but this doesnt:
myDataView.RowFilter = "City = 'London' And fldZipCode = '9000'"

For i as Integer = 0 to myDataView.count - 1
myDataView(i)("fldZipCode")="9800"
Next

Able
"Able" <ab**@epost.no> skrev i melding
news:u5*******************@news4.e.nsc.no...

Dear friends

Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers"))

myDataView.RowFilter = "City = 'London'"

My question is how to loop through all rows in myDataView and edit the

field

fldZipCode so fldZipCode = "9800"

Regards Able

[Cor Ligthert]

In addition to Jay

with a dataview

For i As Integer = dv.Count - 1 to 0 step -1
dv(i)("fldZipCode") = "9800"
Next

Cor

[Able]

Got it. Thanks a lot.

Regards Able
"Jay B. Harlow [MVP - Outlook]" <Ja************@msn.com> skrev i melding
news:O$**************@tk2msftngp13.phx.gbl...

Able,

myDataView.RowFilter = "City = 'London' And fldZipCode = '9000'"
myDataView(i)("fldZipCode")="9800"

Because you used fldZipCode in your Filter, As you change the fldZipCode
field the contents of the collection (the items in the DataView) changes.

The easiest way maybe to use DataTable.Select in this case. As
DataTable.Select returns a fixed array of rows, where as the DataView is a
dynamic collection of rows.

Something like:
Dim table As DataTable = dsData.Tables("tblCustomers")
Dim filterExpression As String = "City = 'London' And fldZipCode =
'9000'"
For Each row As DataRow in table.Select(filterExpression)
row("fldZipCode")="9800"
Next

Hope this helps
Jay

"Able" <ab**@epost.no> wrote in message
news:G0*******************@news4.e.nsc.no...

Has to define my question more accurately:

Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers"))

This works:
myDataView.RowFilter = "City = 'London'"

For i as Integer = 0 to myDataView.count - 1
myDataView(i)("fldZipCode")="9800"
Next

...but this doesnt:
myDataView.RowFilter = "City = 'London' And fldZipCode = '9000'"

For i as Integer = 0 to myDataView.count - 1
myDataView(i)("fldZipCode")="9800"
Next

Able
"Able" <ab**@epost.no> skrev i melding
news:u5*******************@news4.e.nsc.no...

Dear friends

Dim myDataView as DataView = New DataView(dsData.Tables("tblCustomers"))
myDataView.RowFilter = "City = 'London'"

My question is how to loop through all rows in myDataView and edit the

field

fldZipCode so fldZipCode = "9800"

Regards Able

[Jay B. Harlow [MVP - Outlook]]

Cor,
I was actually thinking of sorting the DataView descending, then only
changing element zero, when I did my initial post.

However now that you got me to actually think of the alternatives, you
wouldn't need the sort at all! :-)

myDataView.RowFilter = "City = 'London' And fldZipCode = '9000'"

Do Until myDataView.Count = 0
myDataView(0)("fldZipCode")="9800"
Loop

I'm sure there are a couple of other methods...

Jay

"Cor Ligthert" <no**********@planet.nl> wrote in message
news:OO**************@TK2MSFTNGP11.phx.gbl...

In addition to Jay

with a dataview

For i As Integer = dv.Count - 1 to 0 step -1
dv(i)("fldZipCode") = "9800"
Next

Cor