码迷,mamicode.com
首页 > 其他好文 > 详细

数据窗口字段编辑时过滤下拉数据窗口

时间:2014-08-29 10:38:37      阅读:179      评论:0      收藏:0      [点我收藏+]

标签:style   blog   color   ar   数据   art   div   log   sp   

前提:将数据窗口的下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)

 

数据窗口字段编辑时过滤下拉数据窗口

标签:style   blog   color   ar   数据   art   div   log   sp   

原文地址:http://www.cnblogs.com/szxiaofei14/p/3944185.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!