String ls_rt
String ls_dwsyntax, ls_modfiy
Long ll_PosBeg, ll_PosEnd
Int I
Ids_data. Dataobject='d_bill_data_lm2'
Ls_dwsyntax=ids_data. The describe (" datawindow. Syntax ")
Ll_PosBeg=Pos (the Lower (ls_dwsyntax), table (column "=")
Do
I++
Ll_PosEnd=ll_PosBeg
Ll_PosBeg=Pos (the Lower (ls_dwsyntax), "the column=", ll_PosBeg + 1)
Loop while ll_PosBeg & gt; 0
Ll_PosEnd=Pos (the Lower (ls_dwsyntax), "~ r ~ n," ll_PosEnd)
Ls_modfiy=replace (ls_dwsyntax ll_PosEnd + 2, 1, "the column=(type=char (10) name=is_del dbname=~" is_del ~) ~ r ~ n ")

String error_create
Ids_data. Create (ls_modfiy error_create)
IF Len (error_create) & gt; 0 THEN
Messagebox (" ", error_create)
END the IF
Ids_data. Settransobject (sqlca)
Ls_rt=ids_data. Modify (' create the column (band=detail id='+ string (I) +' alignment="0" tabsequence=1 border="0" color="33554432" x="23" y="8" height="76" width="1000" name=is_del visible="0" background color="536870912") ')
Ls_dwsyntax=ids_data. The describe (" datawindow. Syntax ")
If len (ls_rt) & gt; 0 then messagebox (' ', ls_rt)

I added a column in this way, but no way to add the name of the column, want to help your bosses!

! Genuflect is begged!