回 帖 发 新 帖 刷新版面

主题:比较急,求教一个VFP 简单问题。谢谢,各位XDJM

求教一个VFP 加标志位问题。谢谢,谢谢。

诸位大哥,求救一个问题。 

有a,b,c  3个字段。分别为a(数值型),b(数值型),c(字符型)。a字段数值相等表示为同一用户。现在需要,如果一用户,b字段‘同时’有0,3,4,则将C字段加标志位。 

a(数值)  b(数值)  c(字符)                                                
1001,      0 , 
1001,      3 , 
1001,      4 , 
1002,      0 , 
1003,      0 , 
1003,      3 , 
1003,      4 , 
1004,      0 , 
1004,      4 , 
1005,      0 , 
1006,      0 , 
1006,      3 , 
1006,      4 , 
1007,      0 , 
1007,      3 , 
1007,      4 ,

回复列表 (共1个回复)

沙发

假设你的表名是“表1”,代码如下:

USE 表1
INDEX ON 表1.A TO SY
STORE .F. TO B0,B3,B4
GO TOP
AA=表1.A
DO WHILE !EOF()
    DO WHILE 表1.A=AA
        DO CASE
        CASE 表1.B=0
            B0=.T.
        CASE 表1.B=3
            B3=.T.
        CASE 表1.B=4
            B4=.T.
        ENDCASE
        SKIP
    ENDDO
    S = RECNO()
    IF B0 AND B3 AND B4
        REPLACE 表1.C WITH "★" FOR 表1.A = AA
        STORE .F. TO B0,B3,B4
    ENDIF
    LOCATE FOR RECNO() = S
    AA=表1.A
ENDDO

我来回复

您尚未登录,请登录后再回复。点此登录或注册