我想请问一下,我用数据库查询系统,查询到的记录,在表单中是一表结构显示出来的,但是不能复制,所以我想请问， 能不能将得到的这个结果导出啊?可见我上传的图片,就是我查询结果下面显示出的哪些记录，应该怎么导出??谢谢了

看不到您的查询代码，只能提出如下建议：
如果您是用Set filter筛选方式，则可用Copy to导出
如果您是用Select-SQL命令，则用“Into 文件名”把查询结果存入到文件中

我的代码是：cx=0

*按货物查询
do case
SELECT fahuo
case thisform.check1.value=1

Thisform.Grid1.RecordSource="SELECT * FROM fahuo;
WHERE 货物=ALLTRIM(thisform.combo1.displayvalue);
INTO CURSOR TEMP"
Thisform.Refresh

ENDCASE

*按用户查询
do case
case thisform.check3.value=1
ctext=alltrim(thisform.text1.value)
if empty(ctext)
messagebox('请输入查询条件！',48,'操作失败！')
thisform.text1.setfocus
else
Thisform.Grid1.RecordSource="SELECT * FROM fahuo;
WHERE 用户=ALLTRIM(Thisform.Text1.value);
INTO CURSOR TEMP"
ENDif
endcase
*按用户，时间和货物查询
SELECT fahuo
do case
case thisform.check1.value=1 and thisform.check2.value=1 and thisform.check3.value=1

ctext=alltrim(thisform.text1.value)
sdate=thisform.text2.value
edate=thisform.text3.value
ctext=alltrim(thisform.text1.value)
if empty(ctext)
messagebox('请输入查询条件！',48,'操作失败！')
thisform.text1.setfocus
else

if empty(sdate)
messagebox('请输入起始时间！',48,'操作失败！')
thisform.text2.setfocus
else
if empty(edate)
messagebox('请输入结束时间！',48,'操作失败！')
thisform.text3.setfocus
else

thisform.grid1.recordsource="select *from wuyemanage!fahuo;
where between(时间,sdate,edate) and 货物=ALLTRIM(thisform.combo1.displayvalue) and 用户=ALLTRIM(Thisform.Text1.value);
order by fahuo.时间;
into cursor linquery"
Thisform.Refresh
ENDIF
ENDIF
ENDIF
*按货物和用户查询
case thisform.check1.value=1 and thisform.check3.value=1
ctext=alltrim(thisform.text1.value)
if empty(ctext)
messagebox('请输入查询条件！',48,'操作失败！')
thisform.text1.setfocus
else
thisform.grid1.recordsource="select *from wuyemanage!fahuo;
where 用户=ALLTRIM(Thisform.Text1.value) and 货物=ALLTRIM(thisform.combo1.displayvalue);
order by fahuo.时间;
into cursor linquery"
Thisform.Refresh
go top
if eof()
go bottom
messagebox('无此记录！',48,'信息窗口')
cx=1
endif
ENDIF
*按货物和时间查询
case thisform.check1.value=1 and thisform.check2.value=1

sdate=thisform.text2.value
edate=thisform.text3.value

if empty(sdate)
messagebox('请输入起始时间！',48,'操作失败！')
thisform.text2.setfocus
else
if empty(edate)
messagebox('请输入结束时间！',48,'操作失败！')
thisform.text3.setfocus
else

thisform.grid1.recordsource="select *from wuyemanage!fahuo;
where between(时间,sdate,edate) and 货物=ALLTRIM(thisform.combo1.displayvalue);
order by fahuo.时间;
into cursor linquery"
Thisform.Refresh
ENDIF
ENDIF
*按用户和日期查询
case thisform.check3.value=1 and thisform.check2.value=1
sdate=thisform.text2.value
edate=thisform.text3.value
ctext=alltrim(thisform.text1.value)
if empty(sdate)
messagebox('请输入起始时间！',48,'操作失败！')
thisform.text2.setfocus
else
if empty(edate)
messagebox('请输入结束时间！',48,'操作失败！')
thisform.text3.setfocus
else
if empty(ctext)
messagebox('请输入查询条件！',48,'操作失败！')
thisform.text1.setfocus
else
Thisform.Grid1.RecordSource="SELECT * FROM fahuo;
WHERE 用户=ALLTRIM(Thisform.Text1.value) and between(时间,sdate,edate);
INTO CURSOR TEMP"
ENDif
endif
endif
*按日期查询
case thisform.check2.value=1
sdate=thisform.text2.value
edate=thisform.text3.value
if empty(sdate)
messagebox('请输入起始时间！',48,'操作失败！')
thisform.text2.setfocus
else
if empty(edate)
messagebox('请输入结束时间！',48,'操作失败！')
thisform.text3.setfocus
else
thisform.grid1.recordsource="select *from wuyemanage!fahuo;
where between(时间,sdate,edate);
order by fahuo.时间;
into cursor linquery"
go top
if eof()
go bottom
messagebox('无此记录！',48,'信息窗口')
cx=1
endif

endif
endif
case thisform.check1.value=0 and thisform.check2.value=0 and thisform.check3.value=0
messagebox('请选择查询条件！',48,'操作失败！')
thisform.check1.setfocus
endcase

请问应该怎么将查询结果导出

into cursor 改为Into Table 不就生成表了吗?或在into cursor 之后用Copy等命令导出

[此贴子已经被作者于2006-8-2 10:17:19编辑过]

我在命令窗口输入INTO TABLE,怎么它提示我不能识别的命令谓词啊

原始代码中的into cursor linquery改Into Table C:\临时表
则查询内容导出到Ｃ:的临时表.DBF中

啊，我试过了,可以的，呵呵，万分感谢啊

问一个题外话，你的查询表进行多次查询后各列宽会变吗？我的一个查询程序查询完毕后，显示记录的表的各列宽自动变，请问如何固定各列宽？

我也有这个问题，但是我想能不能找出这个vfp运行后将数据库保存的位置，然后再用excel打开呢？

在前面加点代码:
即把表的数据源设置为空 看看