Select 公司名称,账户号 From 账户名称 Where .f. Into Table DBF
Inser Into Dbf(公司名称) Value(Thisform.Text1.Value)
Select 账户名称,公司名称,账户号 From 账户名称 Where (商品代码1=Thisform.text1.value or 商品代码2=Thisform.text1.value or 商品代码3=Thisform.text1.value or 商品代码4=Thisform.text1.value or 商品代码5=Thisform.text1.value) Into Table TEMP
Use
Select DBF
Append From TEMP
Inser Into Dbf(公司名称) Value(Thisform.Text2.Value)
Select 账户名称,公司名称,账户号 From 账户名称 Where (商品代码1=Thisform.text2.value or 商品代码2=Thisform.text2.value or 商品代码3=Thisform.text2.value or 商品代码4=Thisform.text2.value or 商品代码5=Thisform.text2.value) Into Table TEMP
Use
Select DBF
Append From TEMP
endif
SET DEVICE TO PRINT
SET CONSOLE OFF
LIST TO PRINT
SET CONSOLE ON
SET DEVICE TO SCREEN

我用了上述方法来查询商品代码所对应的 公司名称 账户号
打印出来的效果却是这样的：
编号 公司名称 账户号
001 123456
002 本但公司 00001
003 傻瓜公司 00002
004 6543321
005 xx公司 0003
……
……

这样一来 所查的商品代码就全部对应在了公司名称一栏里 打印后造成了数据上的错误
请问各位高手，如何出现下述效果：
商品代码 公司名称 账户号
123456 本但公司 00001
傻瓜公司 00002
654321 xx公司 00003

希望能直接打印 不用报表 再者 希望字体加大
希望大家多多帮助！小弟学识甚浅。

Inser Into Dbf(公司名称) Value(Thisform.Text1.Value)
Inser Into Dbf(公司名称) Value(Thisform.Text2.Value)
您的Value(Thisform.Text1.Value)和Value(Thisform.Text2.Value)都是输入的商品代码，您却插入到公司名称字段中去了！！！

想改变字体和字的大小，可在 LIST TO PRINT这一句加上“Font 字体,字号”子句，具体参考Font的说明

[此贴子已经被作者于2006-8-4 11:00:39编辑过]

真不知道你为什么就不用报表!

[此贴子已经被作者于2006-8-4 10:57:18编辑过]

我改成了这样：
Select 公司名称,账户号 From 账户名称 Where .f. Into Table DBF
alter table dbf add column 股票代码 c (6)
if.not.empty (Thisform.Text1.Value)
Inser Into Dbf(股票代码) Value(Thisform.Text1.Value)
Select 账户名称.公司名称,账户号 From 账户名称 Where (股票代码1=Thisform.text1.value or 股票代码2=Thisform.text1.value or 股票代码3=Thisform.text1.value or 股票代码4=Thisform.text1.value or 股票代码5=Thisform.text1.value) Into Table TEMP
Use
Select DBF
Append From TEMP
endif
browse
现在的问题是：怎样把新建的股票代码这个字段 移到表dbf的最前段 让他成为第一个字段？？
第二 打印如何增大字体
第三 如何去处打印时vfp自动给他加上的编号
麻烦了各位了！！
累得满头大汗！！！！

第一个问题可以试试用fled子句重新安排字段的先后顺序。

fled 好像不行啊！！
大家帮帮忙！！在线等！！

实在不行的话，可用say语句将表中的记录逐条打印（即用DOS的打印功能）。

大家帮忙看看阿 ！！！急啊！！！

不好意思，刚才记错了子句。可以用LIST FIELDS 字段名1、字段名2....将表中的记录按你需要打印出来。参见下面的说明：

LIST
[FIELDS FieldList]
[Scope] [FOR lExpression1] [WHILE lExpression2]
[OFF]
[NOCONSOLE]
[NOOPTIMIZE]
[TO PRINTER [PROMPT] | TO FILE FileName]

还是不行！！