| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2529 人关注过本帖
标题:再求帮忙,先谢谢!
只看楼主 加入收藏
bdx808
Rank: 1
等 级:新手上路
帖 子:85
专家分:2
注 册:2009-5-9
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:23 
再求帮忙,先谢谢!
有一表tb,字段为xh(n,4)、xm(c,8),有若干行记录,现在想把1-15个数字从小到大依次从第一行开始赋给xh,把‘昨天、今天、明天’依次赋给xm,如附件图示
赋值给字段.rar (18.52 KB)
,请教代码怎么写?
搜索更多相关主题的帖子: 今天 赋给 依次 代码 附件 
2022-07-07 15:13
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
昨天
今天
明天
第一步:重复5次(1...15)
第二步:重复第一步的结果

[此贴子已经被作者于2022-7-7 15:50编辑过]

2022-07-07 15:49
bdx808
Rank: 1
等 级:新手上路
帖 子:85
专家分:2
注 册:2009-5-9
收藏
得分:0 
问题是不知道代码怎么写,能写下代码吗?
2022-07-07 16:07
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
以下是引用bdx808在2022-7-7 16:07:20的发言:

问题是不知道代码怎么写,能写下代码吗?

先写3条记录,这个会吧
2022-07-07 17:52
bdx808
Rank: 1
等 级:新手上路
帖 子:85
专家分:2
注 册:2009-5-9
收藏
得分:0 
use tb
go top
do while .not.eof()
aa=xh
bb=xm
fxh=1
fxm=

见笑了真的不会了
2022-07-07 18:47
zhken
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:284
专家分:616
注 册:2012-9-21
收藏
得分:0 
观察一下学会找规律
2022-07-07 19:51
zhken
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:284
专家分:616
注 册:2012-9-21
收藏
得分:10 
随便写一下,没有认真审核

SELECT 0
CREATE CURSOR tb(xh n(4),xm c(8))
xh1=1
zl=1
zhs=1
DO WHILE .t.

DO WHILE zl<4
    APPEND BLANK
    REPLACE xh WITH xh1
    DO CASE
    CASE zl=1
    REPLACE xm WITH '昨天'
    CASE zl=2
    REPLACE xm WITH '今天'
    CASE zl=3
    REPLACE xm WITH '明天'
    ENDCASE
zl=zl+1
xh1=xh1+1
    IF xh1=16
        xh1=1
    ENDIF
    zhs=zhs+1
ENDDO

IF xh1=16
    xh1=1
ENDIF
zl=1
    IF zhs>32
        EXIT
    ENDIF
LOOP
ENDDO
BROWSE


2022-07-07 20:19
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:10 
程序代码:
CREATE CURSOR tt (xh n(2), xm c(4))
FOR ln1 = 1 TO 2
    FOR ln2 = 1 TO 15
        INSERT INTO tt VALUES (ln2, "")
    ENDFOR
ENDFOR
INSERT INTO tt VALUES (1, "")
INSERT INTO tt VALUES (2, "")
REPLACE xm WITH ICASE(xh%3 = 1, "昨天", xh%3 = 2, "今天", "明天") ALL 
BROWSE 

坚守VFP最后的阵地
2022-07-07 20:54
bdx808
Rank: 1
等 级:新手上路
帖 子:85
专家分:2
注 册:2009-5-9
收藏
得分:0 
都是牛人啊,版主的更简练、更难学会,多谢了!
2022-07-08 07:57
bdx808
Rank: 1
等 级:新手上路
帖 子:85
专家分:2
注 册:2009-5-9
收藏
得分:0 
以下是引用zhken在2022-7-7 19:51:05的发言:

观察一下学会找规律

是的,主要是没有基础,在书店也找不到这方面的书
2022-07-08 08:01
快速回复:再求帮忙,先谢谢!
数据加载中...
 
   



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

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