一段ITEMCHANGED的代码

Integer li_index,li_i,li_pos
String ls_editStyle
String ls_temp,ls_bgprevmc,ls_next,ls_now
Integer li_flag
Long ll_RowNo,ll_row
DataWindowChild ldwc_temp

choose case dwo.name
case 'bgxm'
dw_1.Modify("bghnr_dw.Visible=0")
dw_1.Modify("bghnr_e.Visible=0")
dw_1.Modify("bghnr_n.Visible=0")
dw_1.Modify("bghnr_em.Visible=0")
dw_1.Modify("bghnr_lb.Visible=0")
dw_1.Modify("bghnr_dw.Visible=0")

li_index =Integer(idw_target.Describe(String(data) + '.id'))
This.Setitem(Row,'bgqnr',String(idw_target.Object.data[1,li_index]))
ls_EditStyle =idw_target.Describe(Data + '.Edit.Style')
choose case ls_EditStyle
case'dddw'
ls_temp= idw_target.Describe(Data + '.dddw.name')
dw_1.Modify("bghnr_dw.dddw.name='"+ ls_temp + "'")
ls_temp= idw_target.Describe(Data + '.dddw.DataColumn')
dw_1.Modify("bghnr_dw.dddw.DataColumn='"+ ls_temp + "'")
ls_bmname=ls_temp
ls_temp= idw_target.Describe(Data + '.dddw.DisplayColumn')
dw_1.Modify("bghnr_dw.dddw.DisplayColumn='"+ ls_temp + "'")

dw_1.Modify("bghnr_dw.Visible=1")
is_flag= '_dw'
ifdw_1.Getchild('bghnr_dw',ldwc_temp)<> 1 thenreturn
ldwc_temp.SetTransObject(SQLCA)
ldwc_temp.Retrieve()

//取变更前编码名称-begin
ls_bgprevmc=dw_1.GetItemstring(row,"bgqnr")
ifThis.GetChild("bghnr_dw",ldwc_temp)<> 1 thenreturn

ifls_bmname<>'deptcode' then
ll_Row= ldwc_temp.Find(ls_bmname+"=" + trim(ls_bgprevmc) + "",1,ldwc_temp.RowCount())
else
ll_Row= ldwc_temp.Find(ls_bmname+"='" + trim(ls_bgprevmc) + "'",1,ldwc_temp.RowCount())
endif
ifll_Row < 1 then
MessageBox('提示aaaaavvvv','出现异常错误!',StopSign!)
return
endif
is_prevbm=ls_bgprevmc
ls_bgprevmc=ldwc_temp.GetItemstring(ll_Row,'mc')
This.Setitem(Row,'bgqnr',ls_bgprevmc)
//取变更前编码名称-end

case'ddlb'
dw_1.Modify("bghnr_lb.Visible=1")
is_flag= '_lb'
ls_temp= idw_target.Describe(Data +'.values')
dw_1.Modify("bghnr_lb.values='"+ ls_temp + "'")

//取变更前下拉名称-begin
ls_bgprevmc=dw_1.GetItemstring(row,"bgqnr")
is_prevbm=ls_bgprevmc
//-
ls_next=ls_temp
li_pos=Pos(ls_temp,'/')
//messagebox(ls_temp+string(li_pos),mid(ls_next,li_pos- 1,1))
forli_i=integer(mid(ls_temp,li_pos - 1,1)) to integer(is_prevbm)
li_pos= Posw(ls_next,'/')
ifli_pos < 1 then EXIT
ls_now=leftw(ls_next,li_pos- 1)
ls_next=Rightw(ls_next,lenw(ls_next) -li_pos)
next
//-
ls_bgprevmc=trimw(leftw(ls_now,lenw(ls_now)-1))

This.Setitem(Row,'bgqnr',ls_bgprevmc)
//取变更前下拉名称-end


case'edit'
dw_1.Modify("bghnr_e.Visible=1")
is_flag='_e'
is_prevbm='-100'//非编码的标志
case'editmask'
dw_1.Modify("bghnr_em.Visible=1")
is_flag= '_em'
ls_temp= idw_target.Describe(Data + '.mask')
dw_1.Modify("bghnr_em.mask='"+ ls_temp +"'")
This.Setitem(Row,'bgqnr',String(idw_target.Object.data[1,li_index],"yyyy-mm-dd"))
is_prevbm='-100'//非编码的标志
end choose
case 'bghnr_dw'
ls_EditStyle =this.Describe(dwo.name + ".Edit.Style")

if ls_EditStyle<> 'dddw' then return

ifThis.GetChild(dwo.name,ldwc_temp) <>1 then return

ll_RowNo =ldwc_temp.Find("nbm=" + string(data) ,0 ,ldwc_temp.RowCount())
if ll_RowNo < 1then return

li_flag =ldwc_temp.GetItemNumber(ll_RowNo,'c_zt')
if li_flag = 1 thenreturn

This.SetItem(Row,string(dwo.name),This.GetItemNumber(Row,String(dwo.name)))
MessageBox('提示','请选择尚未过期的代码！~r~n白色背景为尚未过期的编码，其它颜色为已经停用的编码!',Stopsign!)
return 2
end choose