怎么在数据窗口中动态增加checkbox列

如何在数据窗口中动态增加checkbox列
如：原数据窗口的sql是:select '01' as id, '张三' as name from dual;我现在想动态改变sql，改成: select 0 as ischeck , a.* from (select '01' as id, '张三' as name from dual) a,此语句中增加了一列ischeck，想把此列设置成checkbox风格，且要与原数据窗口其他列的显示颜色样式一致，该怎么实现？
------解决方案--------------------
string ls_sql,ls_syntax,ls_error
　　ls_syntax = 'select 0 as ischeck , a.* from (select '01' as id, '张三' as name from dual) a'
　　ls_syntax = sqlca.SyntaxFromSQL(ls_sql,'style(type=grid)',ls_error)
　　if len(ls_error) >0 then
　　　messagebox('Error','SyntaxFromSQL Error:~r'+ls_error)
　　else
　　　dw_new.create(ls_syntax,ls_error)
　　　if len(ls_error) >0 then
　　　　MessageBox("Error", "Create have these errors: ~r" + ls_error)
　　　else
　　　　dw_new.settransobject(sqlca)
　　　　dw_new.retrieve()
　　　end if
　　end if

然后再用modify，修改列的edit属性，改成checkbox即可