611
社区成员




string ls_new_sql,ls_old_sql
DataWindowChild dw_child_yijikm
This.GetChild("yijikm",dw_child_yijikm) //一级科目
dw_child_yijikm.SetTransObject( SQLCA)
dw_child_yijikm.SetRedraw(False)
//dw_child_yijikm.setfilter(" and levelpcode ='"+string(dw_1.getitemstring(1,'zijinliuxiang'))+"'") //资金流向
//dw_child_yijikm.filter()
dw_child_yijikm.Retrieve(gs_ztdm)
IF dw_child_yijikm.RowCount() <= 0 Then
dw_child_yijikm.InsertRow(0)
End IF
string ls_zijinliuxiang,ls_yijicode,ls_yijiname,ls_data
if dwo.name='zijinliuxiang' then
if (data <> '' or not(isnull(data))) then
ls_zijinliuxiang = data
declare cs_emp cursor for
select levelcode,levelname
from T_B_kemu where ztdm=:gs_ztdm and leveclass=2 and LEFT(levelcode,2) = :ls_zijinliuxiang;
open cs_emp;
fetch cs_emp into :ls_yijicode,:ls_yijiname;
ls_data = ''
do while sqlca.sqlcode = 0
ls_data =ls_data + Trim(ls_yijiname) +"~t" + Trim(ls_yijicode) +"/"
fetch cs_emp into :ls_yijicode,:ls_yijiname;
loop;
close cs_emp;
If len(trim(ls_data)) > 0 Then
this.setitem(row,'yijikm','')
this.object.yijikm.values = ls_data
else
this.setitem(row,'yijikm','')
this.object.yijikm.values = ""
end IF
end if
end if
这样无法改变下拉框的数据源啊