我想做一个打印程序
但是对表单不是很熟悉
还请大家指点一下
主要界面这样的：
标签：       label1（输入1~55之间的数字）
command1（预览）  command2打印）   command3（退出）

要求如下：
若干表，表的名称为gzz1、gzz2、……gzz55（共55个单位）
还有一个表a.dbf  存放gzz1~gzz55 的单位名称（字段名称为  name）
a与gzz&  共有的字段是  bh（编号）

现在想要实现的是在  label1 中输入1~55的数字
按 command1 就可以预览相应单位报表（报表已经设置好了）
预览没问题后   按command2  打印出来

label1 跟 command1 和command2 用什么命令才能联系起来呢

问题是报表的数据源 也是根据label1的变化而变化的
并不是输入一个 改一个数据源 再打印一个的

不好意思  上面的 label  是 text  我弄错了
我看过  逻辑性的 调用text的值的案例
比如thisform.text1.value  或thisform.text1.value=*** 等等
但是 如何用这个值  作为变量 不是很明白
举个例子  text的值是1

现在在command1中  要调用   编号为1的表     （就是这个地方 不知道改如何处理)
use gzz1（‘1’为text中的值）
report form wj1.frx to  print  &&(preview)

还请指点

[ 本帖最后由 qq156059757 于 2010-12-12 20:55 编辑 ]

唉……怎么说呢，系统的学习是不可能了，弄了本书（买了本可能是入门级别的）  看烂了 还不如实践实践，交流交流

因为有点复杂 所以只写了遇到困难的地方，
在表xtzk.dbf中保存各单位的名称，编号（bh）是关联各单位与xtzk中单位名称的中介字段，
在打印的时候，还需要从这个表中调用各单位的名称来做表头（如果在各单位的表中显示各单位的名称 那么汇总会不方便）

[ 本帖最后由 qq156059757 于 2010-12-12 21:44 编辑 ]

CLEAR
wbh=0
DO WHILE .t.
clear
wbh=thisform.text1.Value
IF WBH<10
    I=STR(WBH,1)
  ELSE
    I=STR(WBH,2)
  ENDIF
USE gzz&I
 report form wj1.frx to preview  &&printer
ENDDO
return

您说的 我回头研究研究  
因为以前的工作人员用的是foxbase，dos的那种  
最近我才转化到vfp中来
 牵扯的程序太多  干多了不加工资  唉……