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

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

我改成了这样：
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 好像不行啊！！
大家帮帮忙！！在线等！！

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

还是不行！！

我没有帮助文件
高手帮帮我