回 帖 发 新 帖 刷新版面

主题:请各位高手帮忙!谢谢各位。

小弟初学FOXPRO 
在一数据库art.dbf中有如下字段:
N1,OUTD1,PS1,N2,OUTD2,PS2,N3,OUTD3,PS3,N4,OUTD4,PS4......以此类推
其中,N1=1,N2=2,N3=3,N4=4......
我想在程序中输入1时显示
@2,30 say  '入    库    单    输   入'
@4,2 say  '件    号  ' get n1 
@5,2 say  '码单编号  ' get outd1
@6,2 say  '钢    号  ' get ps1
在程序中输入2时显示
@2,30 say  '入    库    单    输   入'
@4,2 say  '件    号  ' get n2 
@5,2 say  '码单编号  ' get outd2
@6,2 say  '钢    号  ' get ps2
在程序中输入3时显示
@2,30 say  '入    库    单    输   入'
@4,2 say  '件    号  ' get n3 
@5,2 say  '码单编号  ' get outd3
@6,2 say  '钢    号  ' get ps3
....
请教各位高手,应该用什么语句或者命令?
最好能简单点,因为本人刚刚接触FOXPRO 2.5,谢谢各位了!

回复列表 (共5个回复)

沙发

2.5 ?? [em54][em54][em54]

板凳

20年前我用 FOXBASE2.1+ (DOS操作系统),15年前开始用 FOXPRO(DOS版和WINDOWS版),10年前就开始用VFP6.0 了,可视化编程已经推广10多年了,为什么不用呢?
就楼主的代码而言,可以用宏替换简化。
clear
input "请输入序号:" to n
if n>0 and n<5 &&假如最大序号是4
cn=allt(str(n))
@2,30 say  '入    库    单    输   入'
@4,2 say  '件    号  ' get nc&cn
@5,2 say  '码单编号  ' get outd&cn
@6,2 say  '钢    号  ' get ps&cn
endif

两点建议:
1、安装 VFP
2、简化表结构

3 楼

用@...say ...get ...语句先要:
1.定义好变量
2.用read激活

这样的老古董OUT了

4 楼

不会吧,还有人用FPD25,夸张。DOS系统都已经淘汰了,FPD25是应DOS系统而生的。皮之不存,毛将焉附。还是到VFP下吧。VFP在Win7下已经站不直了

5 楼

可以使用
do case
   case ...
       xxxx
   case ...
       xxxx
   case ...
       xxxx
   case ...
       xxxx
otherwise
       xxxx
endcase

我来回复

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