New Row in DataTable - problem

[Agnes]

I use Execute Reader to get a list of data and want to add to the datatable.
I got an error in the 1st row. "Specified arguement was out of the range of
valid values. Parameter name :rowindeX"
my code is listed as following :Please be kind to help me take a look. I
really don't know what's wrong it is.

Dim drRv As SqlDataReader
Dim myDatarow As DataRow
drRv = cmdRv.ExecuteReader

While drRv.Read
myDatarow = Me.dtInvCharges.NewRow()
MessageBox.Show(drRv.Item("baseamt")) <--- It can show the
correct value
intCounter += 1
With myDatarow
.Item("acctcode") = drRv.item("acctcode") <--- It got
that errors.
End With

Me.dtInvCharges.Rows.Add(myDatarow)
end while

[Marina]

It looks like there is no column called 'acctcode' in the result set.

"Agnes" <ag***@dynamictech.com.hk> wrote in message
news:uR**************@TK2MSFTNGP15.phx.gbl...

I use Execute Reader to get a list of data and want to add to the
datatable.
I got an error in the 1st row. "Specified arguement was out of the range
of valid values. Parameter name :rowindeX"
my code is listed as following :Please be kind to help me take a look. I
really don't know what's wrong it is.

Dim drRv As SqlDataReader
Dim myDatarow As DataRow
drRv = cmdRv.ExecuteReader

While drRv.Read
myDatarow = Me.dtInvCharges.NewRow()
MessageBox.Show(drRv.Item("baseamt")) <--- It can show the
correct value
intCounter += 1
With myDatarow
.Item("acctcode") = drRv.item("acctcode") <--- It got
that errors.
End With

Me.dtInvCharges.Rows.Add(myDatarow)
end while

[Agnes]

I solve my bugs,Since my datagrid is bind to the table,
(1)Me.dgCharges.Readonly = false
(2)Me.dgCharges.Enabled = True
(3) change " dim myDatarow as datarow =Me.dtInvCharges.NewRow() "

"Marina" <so*****@nospam.com> ¼¶¼g©ó¶l¥ó·s»D:eU**************@TK2MSFTNGP10.phx.g bl...

It looks like there is no column called 'acctcode' in the result set.

"Agnes" <ag***@dynamictech.com.hk> wrote in message
news:uR**************@TK2MSFTNGP15.phx.gbl...

I use Execute Reader to get a list of data and want to add to the
datatable.
I got an error in the 1st row. "Specified arguement was out of the range
of valid values. Parameter name :rowindeX"
my code is listed as following :Please be kind to help me take a look. I
really don't know what's wrong it is.

Dim drRv As SqlDataReader
Dim myDatarow As DataRow
drRv = cmdRv.ExecuteReader

While drRv.Read
myDatarow = Me.dtInvCharges.NewRow()
MessageBox.Show(drRv.Item("baseamt")) <--- It can show the
correct value
intCounter += 1
With myDatarow
.Item("acctcode") = drRv.item("acctcode") <--- It got
that errors.
End With

Me.dtInvCharges.Rows.Add(myDatarow)
end while