integer li_cols, i
string  ls_colname, ls_coltype

li_cols      = Integer(ads.Describe( "DataWindow.Column.Count" ))
for i =  1  to li_cols
	ls_colname = ads.Describe( "#"  +string(i)+  ".Name" )
	ls_coltype = ads.object.ls_colname.Coltype 
	ls_coltype = ads.object.#i.Coltype
next

Sort an array
We create a small datastore and use it to sort our array. datastore lds_temp
string ls_err
integer i

// change the datastore definition according to the array data type
long ll_array[] = {  2  ,  3 ,  6 ,  5  }
string ls_dsdef = &
   'release 6; datawindow() table(column=(type=long name=a dbname="a") )'

lds_temp = CREATE datastore
lds_temp.Create(ls_dsdef, ls_err)
// put the array in the datastore
lds_temp.object.a.current = ll_array
lds_temp.SetSort( "a ASC" )
lds_temp.Sort()
// get back the array
ll_array = lds_temp.object.a.current

FOR i =  1  to Upperbound(ll_array)
  MessageBox("", string(ll_array[i]))
NEXT

DESTROY lds_temp

for i =  1  to li_cols
      la_any[] = ads.object.data[ 1 ,i,ads.RowCount(),i]
next

CHOOSE CASE left(ads.Describe( "#" +string(i)+ ".Coltype" ), 4 )
	CASE 'char'
		тут используем GetItemString
	CASE 'deci'
		тут используем GetItemDecimal
	CASE <item>
		<statementblock>
		... т.д.
END CHOOSE

// 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