datawindow简单的动态加列

//简单的动态加列

//作者：xys_777

//永生20100404 - 动态增加列 f_create_delcol

string ls_rt

string ls_dwsyntax,ls_modfiy

long ll_PosBeg, ll_PosEnd

int i

ls_dwsyntax = this.describe("datawindow.syntax")

ll_PosBeg = Pos(Lower(ls_dwsyntax), "table(column=")

do

i++

ll_PosEnd = ll_PosBeg

ll_PosBeg = Pos(Lower(ls_dwsyntax), "column=", ll_PosBeg+1)

loop while ll_PosBeg>0

ll_PosEnd = Pos(Lower(ls_dwsyntax), "~r~n",ll_PosEnd)

ls_modfiy = replace(ls_dwsyntax,ll_PosEnd+2,1,"column=(type=char(10) name=is_del dbname=~"is_del~")~r~n")

string error_create

this.Create(ls_modfiy, error_create)

IF Len(error_create) > 0 THEN

messagebox("",error_create)

END IF

this.settransobject(sqlca)

ls_rt=this. modify('create 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")')

if len(ls_rt)>0 then messagebox('',ls_rt)