| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1025 人关注过本帖
标题:【求助】一个关于数据表数据筛选的问题。各位大哥帮帮忙!
只看楼主 加入收藏
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:10 
运行看看,最右边是不是你要的数据?

程序代码:
CLEAR ALL
USE "经纱号数范围 品质指标" ALIAS tblTest EXCLUSIVE IN 0
goForm = NEWOBJECT("C_Form")
goForm.Show
READ EVENTS
USE IN tblTest
RETURN 

DEFINE CLASS C_Form AS Form
    Caption = "经纱品质"
    WindowState = 2
   
    ADD OBJECT Grid1 AS Grid
   
    PROCEDURE Activate
        WITH ThisForm.Grid1
            .Top = 0
            .Left = 0
            .Height = ThisForm.Height
            .Width = ThisForm.Width
        ENDWITH
    ENDPROC
   
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC
   
    PROCEDURE Grid1.Init
        WITH This
            .RecordSourceType = 1
            .RecordSource = "tblTest"
            .ColumnCount = FCOUNT("tblTest") + 1
            WITH .Columns(.ColumnCount)
                .Header1.Caption = "实际品质"
                .Header1.Alignment = 2
                .ControlSource = "IIF(InScope(), tblTest.经纱品质指, '')"
            ENDWITH
        ENDWITH
    ENDPROC
   
ENDDEFINE 

FUNCTION InScope() AS Logical
    RETURN (tblTest.经纱品质指 >= tblTest.经纱特数下) .AND. (tblTest.经纱品质指 <= tblTest.经纱特数上)
ENDFUNC


[ 本帖最后由 TonyDeng 于 2012-3-17 22:55 编辑 ]

授人以渔,不授人以鱼。
2012-03-17 22:47
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
程序代码:
CLEAR ALL
USE "经纱号数范围 品质指标" ALIAS tblTest EXCLUSIVE IN 0
BROWSE ALL FOR InScope()
USE IN tblTest
RETURN 

FUNCTION InScope() AS Logical
     RETURN (tblTest.经纱品质指 >= tblTest.经纱特数下) .AND. (tblTest.经纱品质指 <= tblTest.经纱特数上)
ENDFUNC

授人以渔,不授人以鱼。
2012-03-17 23:05
guoyingbing
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2012-3-17
收藏
得分:0 
回复 22楼 TonyDeng
您太专业了,谢谢,谢谢。可以实现的。
2012-03-17 23:08
muyubo
Rank: 9Rank: 9Rank: 9
来 自:山东莱芜
等 级:蜘蛛侠
威 望:3
帖 子:471
专家分:1017
注 册:2011-3-6
收藏
得分:0 
回复 22楼 TonyDeng
非常专业,学习。
2012-03-17 23:40
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
学习了
2012-03-19 11:02
快速回复:【求助】一个关于数据表数据筛选的问题。各位大哥帮帮忙!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035059 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved