integer i,li_visible
string ls_colname,ls_coltext
long ll_x,ll_row
if li_colnum>0 then
for i=1 to li_colnum
ls_colname=idw_parent.describe("#"+string(i)+".name") //列名
ls_coltext=idw_parent.describe(ls_colname+"_t.text") //列对应中文名(即列对应文本标签的text)
ll_x=Long(idw_parent.Describe(ls_colname+".X")) //列x点坐标
li_visible=integer(idw_parent.describe("#"+string(i)+".visible")) //当前列是否可见('0'隐藏 ; '1'可见)
if li_visible<>1 then
li_visible=0
end if
//当前列可见时,取其列名
IF ls_coltext<>'!' THEN
//IF li_visible=1 THEN
ll_row=dw_1.InsertRow(0)
dw_1.SetItem(ll_row,'colname',ls_colname)
dw_1.SetItem(ll_row,'coltext',ls_coltext)
dw_1.SetItem(ll_row,'collabel',ls_colname+"_t")
dw_1.SetItem(ll_row,'colx',ll_x)
dw_1.SetItem(ll_row,'isprint',li_visible)
//END IF
END IF
next
end if