急用！！查询

[haoztao]

本人用的数据源为sql select，每次查询的时候都出现，检索条件的窗口，必须在这理边填查询条件才行，我想应该是我得查询条件的赋值问题。查询里的代码如下：
date ld_start,ld_end
datetime ls_start,ls_end
string ls_station_id,ls_station,ls_equi_id,ls_equi,ls_produce_id,ls_produce,ls_gq_id,ls_gq
long ll_row
string ls_old_sql,ls_new_sql
em_start.getdata(ld_start)
em_end.getdata(ld_end)
ls_start=datetime(ld_start,time("00:00:01"))
ls_end=datetime(ld_end,time("23:59:59"))
//ls_start=datetime(ld_start)
//ls_end=datetime(ld_end)
ls_station=trim(ddlb_station.text)
ls_produce=trim(ddlb_produce.text)
ls_equi=trim(ddlb_equipment.text)
ls_gq=trim(ddlb_gq.text)
if ls_station<>"全部" then
select id into :ls_station_id from station where name=:ls_station;
//ls_station=string(trim(ddlb_station.text))
else
ls_station_id="%"
end if
if ls_produce<>"全部" then
select id into :ls_produce_id from produce where name=:ls_produce;
// ls_produce=string(trim(ddlb_produce.text))
else
ls_produce_id="%"
end if
if ls_gq<>"全部" then
select id into :ls_gq_id from type where name=:ls_gq;
//ls_gq=string(trim(ddlb_gq.text))
else
ls_gq_id="%"
end if
if ls_equi<>"全部" then
select id into :ls_equi_id from equipment where name=:ls_equi;
// ls_gq=string(trim(ddlb_gq.text))
else
ls_equi="%"
end if

DataWindowChild dwchildexaminer//检修员
DataWindowChild dwlr//录入员
DataWindowChild dwysdwd//验收员（段）
DataWindowChild dwyscj//验收员（车间）
DataWindowChild dwysgq//验收员（工区）
int intcode
dw_data.getchild('examiner',dwchildexaminer)
dw_data.getchild('validater_dwd',dwysdwd)
dw_data.getchild('validater_cj',dwyscj)
dw_data.getchild('validater_gq',dwysgq)
dwchildexaminer.settransobject(sqlca);
dwysdwd.settransobject(sqlca);
dwyscj.settransobject(sqlca);
dwysgq.settransobject(sqlca);
dwchildexaminer.retrieve('检修员','%')
dwysdwd.retrieve('验收员','电务段')
dwyscj.retrieve('验收员','车间')
dwysgq.retrieve('验收员','工区')
//ll_row=dw_data.retrieve(ls_station,ls_gq,ls_produce,ls_start,ls_end,ls_equi)
ll_row=dw_data.retrieve(ls_station_id,ls_gq_id,ls_produce_id,ls_start,ls_end,ls_equi_id)
ll_row=dw_data.retrieve()
if ll_row=0 then
messagebox("提示信息!","没有检索到符合条件的记录")
end if
//dw_data.settransobject((em_start.text),(em_end.text),(ddlb_station.text),(ddlb_produce.text),(ddlb_equipment.text),(ddlb_gq.text))

[freeliu]

获得子窗之后，首先插入一条空的纪录。

dwchildexaminer.insertrow(0)
其他子窗也类似处理。

[ball520cn]

你在数据窗口画板中，设置一下查询条件试一下