Q: Equivalent code in VB?

[Geoff Jones]

Hi

Can anybody tell me the equivalent code in VB for the following?

public static void copyADataRow(DataRow objSrcRow, DataRow objTargetRow)
{
int i=0;

for each(object item in objSrcRow.ItemArray)
{
objTargetRow[i++] = item;
}
return;
}

As a matter of interest, the code above is taken from
http://www.dotnetspider.com/Technology/KBPages/139.aspx

Geoff

[Cor Ligthert]

Hi Geoff,

I can translate the code for you hower in my opinion it is better when you
use this because as I readed it well it is not true what is written there.

datatable.importrow method

http://msdn.microsoft.com/library/de...rtrowtopic.asp

If you do not understand it, feel free to reply

I hope this helps?

Cor

Hi

Can anybody tell me the equivalent code in VB for the following?

public static void copyADataRow(DataRow objSrcRow, DataRow objTargetRow)
{
int i=0;

for each(object item in objSrcRow.ItemArray)
{
objTargetRow[i++] = item;
}
return;
}

As a matter of interest, the code above is taken from
http://www.dotnetspider.com/Technology/KBPages/139.aspx

Geoff

[Arne Janning]

Geoff Jones wrote:

Can anybody tell me the equivalent code in VB for the following?

public static void copyADataRow(DataRow objSrcRow, DataRow objTargetRow)
{
int i=0;

for each(object item in objSrcRow.ItemArray)
{
objTargetRow[i++] = item;
}
return;
}

As a matter of interest, the code above is taken from
http://www.dotnetspider.com/Technology/KBPages/139.aspx

Public Shared Sub copyADataRow( _
ByVal objSrcRow as DataRow, _
ByVal objTargetRow as DataRow)
Dim i as Integer = 0
For Each item as Object in objSrcRow.ItemArray
objTargetRow(i += 1) = item
Next
End Sub

I think, that's it.

Cheers

Arne Janning

[Geoff Jones]

"Arne Janning" <sp*****************@msn.com> wrote in message
news:OD**************@TK2MSFTNGP10.phx.gbl...

Geoff Jones wrote:

Can anybody tell me the equivalent code in VB for the following?

public static void copyADataRow(DataRow objSrcRow, DataRow objTargetRow)
{
int i=0;

for each(object item in objSrcRow.ItemArray)
{
objTargetRow[i++] = item;
}
return;
}

As a matter of interest, the code above is taken from
http://www.dotnetspider.com/Technology/KBPages/139.aspx

Public Shared Sub copyADataRow( _
ByVal objSrcRow as DataRow, _
ByVal objTargetRow as DataRow)
Dim i as Integer = 0
For Each item as Object in objSrcRow.ItemArray
objTargetRow(i += 1) = item
Next
End Sub

I think, that's it.

Cheers

Arne Janning

Many thanks guys!

[Herfried K. Wagner [MVP]]

* Arne Janning <sp*****************@msn.com> scripsit:

objTargetRow(i += 1) = item

This won't work.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>