数据窗口字段编辑时过滤下拉数据窗口
2014-08-29 09:30
239 查看
前提:将数据窗口的下tab键用回车键取代。
// event editchanged datawindowchild ldw_temp String ls_filter Long ll_start If dwo.Name = 'syjsf02' Then This.GetChild('syjsf02',ldw_temp) If Trim(Data)='' Or IsNull(Data) Then ls_filter = "" Else ls_filter = "(szzxm01 LIKE '" + Upper(Data) + "%') OR (szzxm08 LIKE '" + Upper(Data) + "%' ) or (szzxm09 like '" + Upper(Data) + "%' ) OR (szzxm02 LIKE '%" + Upper(Data) + "%')" End IF ldw_temp.SetFilter(ls_filter) ldw_temp.Filter() ll_start = This.SelectedStart() This.SelectText(ll_start,0) Return 1 END IF
//event itemchanged datawindowchild ldw_temp dec ldec_dj if dwo.name = 'syjsf02' then This.GetChild('syjsf02', ldw_temp) IF ldw_temp.RowCount() <= 0 THEN This.SetItem(This.GetRow(),'syjsf02','') ldw_temp.SETFILter("") ldw_temp.FIlter() setitem(row,'dj',0) RETURN 1 else This.object.syjsf02[row] = ldw_temp.getitemstring(ldw_temp.getrow() , 'szzxm01') ldec_dj = ldw_temp.getItemNumber(ldw_temp.getrow(),'nzzxm07') setitem(row,'dj',ldec_dj) ldw_temp.SETFILter("") ldw_temp.FIlter() return 2 END IF end if
// ue_enter datawindowchild ldw_temp This.GetChild('syjsf02',ldw_temp) ldw_temp.SETFILter("") ldw_temp.FIlter() this.setredraw(true)
相关文章推荐
- pb数据窗口如何按当前列的值过滤下拉数据窗口(翻译)
- PB数据窗口中字段下拉窗口的setfile
- PB数据窗口modify修改字段下拉属性
- 怎样准确取得下拉数据窗口的行号
- 数据窗口中按字段的显示值排序
- 使可编辑的数据窗口只读
- pb9中数据窗口的XML特性(二、编辑导出模板)
- Grid数据窗口的某个字段不能左右拉长
- 数据窗口中按字段的显示值排序
- 过滤同一个表中多个字段重复数据的SQL技巧
- PowerBuilder:表中字段的数据长度的修改对数据窗口的影响
- 怎样在下拉框中显示有过滤条件的数据
- 鼠标移到数据窗口上时所在行字段改变颜色(或其它属性)
- 按字段过滤重复的数据
- 设置数据窗口中的某字段的只读属性
- delphi "设置数据表属性是,再字段编辑器(Fields Editor) 的Table Properties 下拉列表中",字段编辑器在哪里呀???
- 使用模态窗口编辑数据
- 使用模态窗口编辑数据
- 下拉数据窗口事件捕获
- 数据窗口中限定某列不可编辑