PB 按Excel动态创建对应字段

/*====================================================================
> Function: w_cwjk_xhyy.wf_dw_init
>--------------------------------------------------------------------
> 描述: 按excel表格列名,创建对应字段,用于部分接口对应字段导出文件
>--------------------------------------------------------------------
> 参数: 
>     datawindow adw
>     long al_end    
>--------------------------------------------------------------------
> 返回:  long
>--------------------------------------------------------------------
> 作者:    wxk        日期: 2023-12-29 15:11:20
>--------------------------------------------------------------------
>    CopyRight(c)
>--------------------------------------------------------------------
> 修改历史: 
>    wf_dw_init(dw_10,18)//18个字段
====================================================================*/

string ls_sql,ls_colname,ls_cols,ls_err
long i,j,ll_index
//asc码其中48～57为0到9十个阿拉伯数字；65～90为26个大写英文字母，97～122号为26个小写英文字母
for i=1 to al_end//142    
    if ll_index=0 then ll_index=0    
    if j=0 then 
        ls_colname=char(ll_index+97)//+'='+string(ll_index)
    else
        ls_colname=char((j -1)+97)+char(ll_index+97)//+'='+string(j -1)+string(ll_index)
    end if
    //ls_cols=ls_cols+ls_colname+'~r~n'
    ll_index++
    if ll_index>25 then 
        ll_index=0
        j++
    end if 
    ls_cols=ls_cols+'space(50) as t_'+ls_colname
    if i next
ls_sql="select "+ls_cols+" from md where 1>2"

adw.dataobject=' '
adw.create(sqlca.syntaxfromsql(ls_sql,"style(type=grid)",ls_err))
adw.settransobject(sqlca)
adw.retrieve()
if len(ls_err)>0 then 
    messagebox('wf_dw_init',ls_err)
    return -1
end if 
return 1