在一数据库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,谢谢各位了！

，是不是我没表达明白呀？帮帮忙呀？

@2,30 say '请输入' get nChoice picture '999'
read
clear
@2,30 say  '入    库    单    输   入'
do case
case nChoice=1
  @4,2 say  '件    号  ' get n1
  @5,2 say  '码单编号  ' get outd1
  @6,2 say  '钢    号  ' get ps1
case nChoice=2
  @4,2 say  '件    号  ' get n2
  @5,2 say  '码单编号  ' get outd2
  @6,2 say  '钢    号  ' get ps2
case nChoice=3
  @4,2 say  '件    号  ' get n3
  @5,2 say  '码单编号  ' get outd3
  @6,2 say  '钢    号  ' get ps3
*.........
endcase
read

谢谢版主，我明白了。以后请多多指教！

建议用宏替换简化代码。