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
分享到:
相关推荐
触发频率仅次于该事件的是ItemChanged事件和ItemFocusChanged,只要修改了单元中的内容,每次触发ItemFocusChanged事件都会触发ItemChanged事件。在这些事件下编写过长的脚本会非常影响录入工作的效率。同样,事件...
11. 声明一个ItemChanged事件,便于用户在选择另一个Item时添加处理的代码。 实现了上述的内容,这个控件也就基本完成了。由于代码并不复杂,我就不将代码列出来讲解了,我将提供代码的下载,大家在看代码的时候,...
Qt5开发及实例,实例CH...首先在Qt的设计器中,拖曳出一个QTreeWidget,然后在主窗口中编写一个函数init初始化界面,连接树形控件的节点改变信号itemChanged(QTreeWidgetItem* item, int column),实现这个信号即可。
里面有详细的关于CListView的介绍和实例,不过有些地方它并未讲清楚,你只能看mfc源代码凭经验猜测某个函数的用法以及某些事件产生的消息,比如当所选Item改变时产生消息LVN_ITEMCHANGED,这个消息使我能在选中某一个...
windows编程,mfc编程nclude "afxdialogex.h" #include "MainDlg.h" // CDlgDrop 对话框 ... ON_NOTIFY(LVN_ITEMCHANGED, IDC_LIST_NOTDROPLIST, &CDlgDrop::OnLvnItemchangedListNotdroplist) END_MESSAGE_MAP()
Itemchanged标准事件 7 ItemFocusChanged标准事件 8 Rowfocuschanging 8 Rowfocuschanged事件 8 pfc_preupdate非标准事件 8 pfc_predeleterow事件 8 4、据查询的控制 9 yfc_retrieve事件 9 yfc_preretrieve自定义...