Database Object

[Wanderson]

Hi, how i can make a empty object equal a other object? I explain:

oCadCli:Load()

oCadCli1:Blank()

oCadCli have many fields i want do load all fields and datas to oCadCli1.

Thanks in advance.

Wanderson.

[James Bott]

Wanderson,

Assuming the two DBFs have the same structure you can simply do this:

Code: Select all  Expand view

for i=1 to oCadCli:reccount
   oCadCli1:aBuffer[i]:= oCadCli:aBuffer[i]
next

Regards,
James

[Wanderson]

Wanderson,

Assuming the two DBFs have the same structure you can simply do this:

Code: Select all  Expand view

for i=1 to oCadCli:reccount
   oCadCli1:aBuffer[i]:= oCadCli:aBuffer[i]
next

Regards,
James

Thank you James! That's all i need

[James Bott]

Sorry, I found a bug. oCadCli:reccount should be oCadCli:fcount().

I hope you already discovered this.

James

Code: Select all  Expand view

for i=1 to oCadCli:fcount()
   oCadCli1:aBuffer[i]:= oCadCli:aBuffer[i]
next