// get back the array
ll_array = lds_temp.object.a.current

DWObject dwobjectvar
dwobjectvar = lds_temp.object.get_attribute(  "a" ,True) 
ll_array = dwobjectvar.current

DWObject dwobjectvar
dwobjectvar = lds_temp.object.get_attribute(  "a" ,True) 
// или
i =  1 
dwobjectvar = lds_temp.object.get_attribute(  "#" +string(i),True) 

ll_array = dwobjectvar.current

string    ls_syntax_source, ls_syntax_target, ls_error, ls_tmp, ls_col[]
integer   li_rc, i, li_cols, li_rows
any       la_any[], la_null[]

datastore lds_source, lds_target

lds_source = create datastore 
lds_target = create datastore 

// создадим и заполним lds_source
ls_syntax_source = 'release 6; datawindow() table(column=(type=date name=c1 dbname="c1"))'
li_rc = lds_source.Create(ls_syntax_source, ls_error)

la_any[ 100 ] = today()
for i =  99  to  1  step - 1 
	la_any[i] = RelativeDate ( la_any[i +  1 ],  1  ) 
next

lds_source.object.c1.Primary = la_any[]

// создадим lds_target на основе lds_source и добавим одну колонку
li_cols = integer(lds_source.describe( "Datawindow.Column.Count" ))

for i =  1  to li_cols
	ls_col[ 1 ] = lds_source.describe( "#"  + string(i) +  ".ColType" )
	ls_col[ 2 ] = lds_source.describe( "#"  + string(i) +  ".Name" )
	ls_col[ 3 ] = lds_source.describe( "#"  + string(i) +  ".DbName" )
	ls_tmp += 'column=(type='+ls_col[ 1 ]+ ' name=' + ls_col[ 2 ] + ' dbname="' + ls_col[ 3 ] + '")' +  "~r~n" 
next

//ls_col[ 2 ] += '_' // можем изменить имя
ls_tmp    += 'column=(type='+ls_col[ 1 ]+ ' name=' + ls_col[ 2 ] + ' dbname="' + ls_col[ 3 ] + '")'  

// построим новый синтаксис
ls_syntax_target = 'release 6; datawindow() table(' + ls_tmp + ')'
// создадим lds_target
li_rc = lds_target.Create(ls_syntax_target, ls_error)

li_rows = lds_source.RowCount()
// пройдемся по столбцам и переприсвоим данные одного dataobject'a другому
for i =  1  to li_cols
	lds_target.object.data[ 1 ,i,li_rows,i] = lds_source.object.data[ 1 ,i,li_rows,i]
next
// или это можно сделать одним куском, если добавляем колонку в конец

// получим данные первого столбца lds_source
i =  1 
la_any[] = lds_source.object.data[ 1 ,i,li_rows,i]

// присвоим их последнему столбцу lds_target
lds_target.object.data[ 1 ,li_cols +  1 ,UpperBound(la_any),li_cols +  1 ] = la_any[]

// пересоздадим lds_source уже на основе нового синтаксиса
li_rc = lds_source.Create(lds_target.Describe( "DataWindow.Syntax" ), ls_error)

// заполним его новыми данными
li_rc = lds_target.RowsCopy(lds_target.GetRow(), lds_target.RowCount(), Primary!, lds_source,  1 , Primary!)
// или одним куском
//lds_source.object.data[ 1 , 1 ,lds_target.RowCount(),integer(lds_target.describe( "Datawindow.Column.Count" ))] = lds_target.object.data[ 1 , 1 ,lds_target.RowCount(),integer(lds_target.describe( "Datawindow.Column.Count" ))]

// разрушим ненужный lds_target
destroy lds_target

// выведем результат
messageBox(lds_source.Describe( "Datawindow.Column.Count" ), String(lds_source.RowCount()))

destroy lds_source

return