请教内容如何实现 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请教内容如何实现

标题：请教内容如何实现

只看楼主

sylknb

等　级：贵宾
威　望：14
帖　子：1519
专家分：174
注　册：2006-6-3
结帖率：79.3%

楼主

已结贴√ 问题点数：20 回复次数：6

请教内容如何实现

在dm字段中0187，0001,0006，我想,0187---0001中间連续添加4个0187，在0001----0006連续添加8个00001，这代码如何书写？请各位指教

搜索更多相关主题的帖子: 如何　

2017-06-24 09:07

mywisdom88

等　级：版主
威　望：190
帖　子：3125
专家分：8340
注　册：2015-3-25

第 2 楼

得分:10

你的数据结构有问题,设计不合理,就算现在把数据添加了.你以后也难维护,建议重新设计表结构

2017-06-24 09:25

mywisdom88

等　级：版主
威　望：190
帖　子：3125
专家分：8340
注　册：2015-3-25

第 3 楼

得分:0

如果但存为了做这个,你就用鼠标点要插入的位置,然后,在命令窗口输入
INSERT before blank
repl dm with '0187'

2017-06-24 09:29

sylknb

等　级：贵宾
威　望：14
帖　子：1519
专家分：174
注　册：2006-6-3

第 4 楼

得分:0

以下是引用mywisdom88在2017-6-24 09:29:30的发言：

如果但存为了做这个,你就用鼠标点要插入的位置,然后,在命令窗口输入
INSERT before blank
repl dm with '0187'

数量多咋办？
以下是我的思路
use book1
dmmc=SPACE(20)

scan
iif(dm#dmmc,.t.,.f.)

repl dm with dm

dmmc=dm

ends
为什么不成功

[此贴子已经被作者于2017-6-24 10:00编辑过]

2017-06-24 09:58

mywisdom88

等　级：版主
威　望：190
帖　子：3125
专家分：8340
注　册：2015-3-25

第 5 楼

得分:0

dm1=''
dm2='0187'
select book1
go top
scan
dm1=allt(dm)
if dm1=".." or dm1=""
repl dm with dm2
else
dm2=dm1
endif
endscan

2017-06-24 14:10

sylknb

等　级：贵宾
威　望：14
帖　子：1519
专家分：174
注　册：2006-6-3

第 6 楼

得分:0

以下是引用mywisdom88在2017-6-24 14:10:22的发言：

dm1=''
dm2='0187'
select book1
go top
scan
dm1=allt(dm)
if dm1=".." or dm1=""
   repl dm with dm2
else
  dm2=dm1
endif
endscan

谢谢!我已自行介决了。

2017-06-24 16:08

schtg

来　自：https://t.me/pump_upp
等　级：贵宾
威　望：67
帖　子：1355
专家分：2534
注　册：2012-2-29

第 7 楼

得分:10

循环+判断就可以完成的

2017-06-25 07:14

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-478899-1-1.html