我是一个典型的菜鸟，在学习编程中遇到了一个我头痛的问题，敬请坛子里的大哥大姐协助。
   
    问题：
    一条记录有几十个字段，仅一条记录我就建了5个报表（分别是：BB1.frx、BB2.frx、BB3.frx、BB4.frx、BB5.frx）。在VF6.0环境中，我创建一个表单，设置了3个命令按钮，分别是：
    １、［指定打印］（指定一条记录打印）。关键字段ZDH，格式AAAAA-BBB-CCC-DDD
    ２、［区间打印］（取 BBB 等于102的所有记录打印）
    ３、［全部打印］

    请教：
    这三个命令按钮，用那些代码来实现其目的？。在什么地方录入这些代码？。

[ 本帖最后由 dz_ccz 于 2011-4-7 17:21 编辑 ]

谢谢hu9jj斑竹，学习了。
如果能够具体指教一下就好了

[ 本帖最后由 dz_ccz 于 2011-4-3 14:27 编辑 ]

感谢hu9jj和ilikeflash的帮助，大部分问题已经解决，目前仅区间打印的2、3、4种情况，存在问题，无法打印，要实现的目的和代码报告如下：
另一个问题，就是在无法打印的情况下，还退不出VF系统，更无法返回。
---------------------------------------------------------------------------
1、指定宗地号段打印（基本没有问题）
szdh=THISFORM.TEXT1.VALUE
zzdh=THISFORM.TEXT2.VALUE
if zdh>=szdh . and . zdh<=zzdh
    REPORT FORM d:\米易土地登记\diji1.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\diji2.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\diji6.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\sp.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\djk1.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\djk2.frx NOCONSOLE TO PRINTER NOEJECT
  skip
ENDIF
-----------------------------------------------------------------------------
2、打印某乡镇所有的资料
一、要实现目的
    条件：关键字段zdh（字符型、16个字节）已经排序，形如“MY204-200-03-006”，其中MY204表示乡镇代码，200表示村代码，03表示组代码，006表示组内的宗地序号。
    过程：在文本框TEXT5内输入乡镇代码，如MY204。
    目的：就是把数据库中某一乡镇（如MY204）所有宗地的登记资料，按宗地顺序（不是按表的顺序打印出来）
二、代码
xzdh=THISFORM.TEXT5.VALUE
if SUBSTR(zdh,1,5)=xzdh
    REPORT FORM d:\米易土地登记\diji1.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\diji2.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\diji6.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\sp.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\djk1.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\djk2.frx NOCONSOLE TO PRINTER NOEJECT
    * 还需要skip吗？
  skip
ENDIF

3、  打印某村所有的资料
一、要实现目的
    条件：关键字段zdh（字符型、16个字节）已经排序，形如“MY204-200-03-006”，其中MY204表示乡镇代码，200表示村代码，03表示组代码，006表示组内的宗地序号。
    过程：在文本框TEXT3内输入村代码，如MY204-200。
    目的：就是把数据库中某一乡镇的某村（如MY204-200）所有宗地的登记资料，按宗地顺序（不是按表的顺序打印出来）
二、代码
xzdh=THISFORM.TEXT3.VALUE
if SUBSTR(zdh,1,9)=xzdh
    REPORT FORM d:\米易土地登记\diji1.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\diji2.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\diji6.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\sp.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\djk1.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\djk2.frx NOCONSOLE TO PRINTER NOEJECT
    * 还需要skip吗？
  skip
ENDIF

4、3、  打印某组所有的资料
一、要实现目的
    条件：关键字段zdh（字符型、16个字节）已经排序，形如“MY204-200-03-006”，其中MY204表示乡镇代码，200表示村代码，03表示组代码，006表示组内的宗地序号。
    过程：在文本框TEXT4内输入组代码，如MY204-200-03。
    目的：就是把数据库中某一乡镇、村内某一组（如MY204-200-03）所有宗地的登记资料，按宗地顺序（不是按表的顺序打印出来）
二、代码
xzdh=THISFORM.TEXT4.VALUE
if SUBSTR(zdh,1,12)=xzdh
    REPORT FORM d:\米易土地登记\diji1.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\diji2.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\diji6.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\sp.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\djk1.frx NOCONSOLE TO PRINTER NOEJECT
    REPORT FORM d:\米易土地登记\djk2.frx NOCONSOLE TO PRINTER NOEJECT
    * 还需要skip吗？
  skip
ENDIF

请高手们看看，是什么问题？
谢谢

[ 本帖最后由 dz_ccz 于 2011-4-7 17:24 编辑 ]

先谢谢了，我再学习一下。