在数据窗口下使用以下这两个事件为什么会终止程序运行。请关注!!!!!
houyp 2003-09-10 03:24:34 dw_1.itemchanged()
dw_1.rowfocuschanged()
实现功能:刷新当前行字段值所对应数据窗口下拉内容
代码如下:
1.dw_1.itemchanged()
/////////////////////////////1.
string lv_text
long lv_cur,ll_pos,rtncode
if dwo.name="zd" then
choose case data
case "tb_company.c_size_id" //公司人员字段对应数据窗口
dw_tj.modify("nr.dddw.name=dw_rygm")
dw_tj.modify("nr.dddw.displaycolumn=size_nr")
dw_tj.modify("nr.dddw.datacolumn=size_id")
dw_tj.object.nr.dddw.VScrollBar="true"
case "tb_company.income_id"
dw_tj.modify("nr.dddw.name=dw_nyysr")
dw_tj.modify("nr.dddw.displaycolumn=income_nr")
dw_tj.modify("nr.dddw.datacolumn=income_id")
dw_tj.object.nr.dddw.VScrollBar="true"
case else
dw_tj.object.nr.edit.autovscroll="yes"
end choose
datawindowchild field_child
rtncode=dw_tj.getchild("nr",field_child)
field_child.settransobject(sqlca)
field_child.retrieve()
dw_tj.setcolumn("nr")
end if
///////////////////////////////////1
2.dw_1.rowfocuschanged()
//////////////////////////////////2
string lv_text,data1
int lv_cur,ll_pos,rtncode
if currentrow<1 then
return
end if
data1=this.getitemstring(currentrow,"zd")
if not isnull(data1) then
choose case data1
case "tb_company.c_size_id"
dw_tj.modify("nr.dddw.name=dw_rygm")
dw_tj.modify("nr.dddw.displaycolumn=size_nr")
dw_tj.modify("nr.dddw.datacolumn=size_id")
dw_tj.object.nr.dddw.VScrollBar="true"
case "tb_company.income_id"
dw_tj.modify("nr.dddw.name=dw_nyysr")
dw_tj.modify("nr.dddw.displaycolumn=income_nr")
dw_tj.modify("nr.dddw.datacolumn=income_id")
dw_tj.object.nr.dddw.VScrollBar="true"
case else
dw_tj.modify("nr.Edit.autoselect=yes")
end choose
datawindowchild field_child
rtncode=dw_tj.getchild("nr",field_child)
field_child.settransobject(sqlca)
field_child.retrieve()
dw_tj.setcolumn("nr")
end if
//////////////////////////////////////2