zoukankan      html  css  js  c++  java
  • 数据窗口字段编辑时过滤下拉数据窗口

    前提:将数据窗口的下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)
  • 相关阅读:
    POJ 1082 博弈推规律
    博弈论总结
    POJ 2502 Subway 关键在建图
    【算法设计与数据结构】为何程序员喜欢将INF设置为0x3f3f3f3f?
    一位ACMer过来人的心得
    POJ1724 Dij队列优化邻接表
    Dijkstra队列优化矩阵版
    Uva247 Floyd传递闭包+map处理
    简爬新浪新闻网
    爬href链接
  • 原文地址:https://www.cnblogs.com/szxiaofei14/p/3944185.html
Copyright © 2011-2022 走看看