1. VFP 提取数据库中数据的命令
假设有一个学籍表，有一个字段名入学成绩，要输出入学成绩最大值。程序如下:
clear
use
学籍
max=入学成绩
do
while
not
eof()
if
max<入学成绩
max=入学成绩
endif
skip
enddo
?"入学成绩最大值是：",max
use
return
或者用scan结构去写：
clear
use
学籍
max=入学成绩
scan
if
max<入学成绩
max=入学成绩
endif
endscan
?"入学成绩最大值是：",max
use
return
2. vfp中parameter作用
以买股票为例具体说明一下：
一个【提交程序】给定了4个参数：
1、买（或卖） && .T.就是买，.F.就是卖
2、股票代码 && 代码
3、数量 && 1=100，2=200......
4、价格 && 单价/股
【提交程序】这样写：
para mm,dm,sl,jg
*如果（mm不是逻辑型T/F则报错。所有参数可以通过这种方法校验一下
if type('MM')#'L'
messagebox('第一个参数：买卖必须是逻辑型')
retu
endif
if MM
语句：买入=dm，股数=SL*100，单价=JG
else
语句：卖出=dm，股数=SL*100，单价=JG
endif
return
调用方法多种，下面是【提交程序】作为自定义函数调用方法：
?提交程序(.T.,'600020',2,10) &&计划买入10元买入600020股票200股。
3. 如何用vfp提取excel表格中的数据
excel导入到VFP中,使用import命令，如：
IMPORT FROM 表1.xls TYPE xl8
将表1.xls导入为表1.dbf
---------------------------------------------------------------
用VFP导入
点击“文件”－>导入－>
类型选择：“Microsoft Excel 5.0 和 97 （XLS）”
来源于选择：你要导入的Excel文件
工作表：默认为Sheet1，如是你要把Excel文件中Sheet2中内容导过来，就选择“Sheet2”
－>最后点击导入即可。
******************************************************************
*如果导入时出现提示：致命错误：异常代码=C0000005
*可以把Microsoft Excel 在保存时存为Microsoft Excel 5.0/95 格式或4.0格式。这样就能导入了。
******************************************************************
以上操作相当于如下命令操作：
IMPORT FROM 你的表.xls TYPE XL8 SHEET "Sheet2"
有时需要把Excel表另存为“Microsoft Excel 5.0 和 97 （XLS）” 格式后，再用以上命令进行导入。
如果VFP表已存在，并且EXCEL表格式与VFP表格式一样，也可以用以下：
use VFP表名
APPEND FROM Excel表.xls TYPE xl5
----------------------------建议---------------------------
导出
to 1.xls type xl5
导入
import from 1.lxs type xl8
或
import from 1.lxs type xl5
或
如果VFP表已存在，并且EXCEL表格式与VFP表格式一样，也可以用以下：
USE 表.DBF
APPEND FROM GETFILE('XLS', '','', 0, '选择一个EXCEL文件') TYPE XL5 &&或XL8
如果VFP表不存在，导入时直接创建(名字自定义)，且导入后存放的位置不定：
IMPORT FROM (GETFILE('XLS', '','', 0, '选择一个EXCEL表，然后另存为DBF表')) TYPE XL5 &&或XL8
COPY TO PUTFILE('', '', 'DBF')
lcTmpTable=DBF()
CLOSE DATABASES
DELETE FILE (lcTmpTable)
4. vfp如何实现从网页抓取数据
首先，物理删除必须独占打开表，然后delete之后运行PACK命令进行物理删除。但是为什么要物理删除再添加呢?直接用UPDATE更新不就行了吗?要知道独占打开表在多用户环境下会出大问题的。
5. vfp的题。帮个忙
1.“计算” 选“过程”
代码：open database <数据库名>
use stock_sl
select 0
use stock_fk
select 股票代码,(买入价-现价)*持有数量 浮亏金额 ；
from stock_sl where 现价<买入价 into array abc
delete from stock_fk
pack
insert into stock_fk from array abc
select sum(浮亏金额) from stock_fk into array k
create table stock_z (浮亏金额 N(11,2))
insert into stock_z from array k
2.“退出” 选“命令”
代码：
set sysmenu to default
3.“菜单” 菜单 选 “生成”
输入菜单名“menu_lin”
6. 可以用vfp程序获取分析实时股票数据吗
用vfp系统只能调用vfp系统的文件dbf ,也可以从其它文件调入数据， 因VFP系统属于小型单单机数据库，许多股票数据基本上网络大型数据库 如ms sql 数据库系统互相不兼容，数据不识别。
7. 用vfp如何获取双色球彩票数据
这个问题很有趣。你是否要做一个模拟双色球摇奖的程序？我可以做哦
clea
public myjh
?rand(-1)
=messagebox("摇号开始",0+48+0)
yjh=1
myjh=''
for i=1 to 6
do while .t.
yjh=int(rand()*100)
if yjh<10
syjh='0'+str(yjh,1)
else
syjh=str(yjh,2)
endif
if yjh>33 or yjh=0 or at(syjh,myjh)<>0
loop
else
exit
endif
enddo
if yjh<10
syjh='0'+str(yjh,1)
else
syjh=str(yjh,2)
endif
myjh=myjh+syjh+spac(2)
endfor
do whil .t.
yjh=int(rand()*100)
if yjh>16 or yjh=0
loop
else
exit
endif
enddo
if yjh<10
syjh='0'+str(yjh,1)
else
syjh=str(yjh,2)
endif
myjh=myjh+"+"+syjh
=messagebox("摇号结果如下:"+chr(13)++myjh,0+48+0)
这个程序很简易，可以摇出一组号码，还可以完善一下，比如，输入几组幸运数字，或者排除最近n期的数字，等等。有兴趣的可以探讨。