vfp

ctf(1,1)是定义的一个一行一列的数组，nFCOUNT= AFIELDS(cTF,"YSB")是返回ysb表的第一个字段名称

Edit是修改表记录的命令，先打开数据表，在命令窗口中输入Edit回车即出现编辑窗口。

我猜你的COMM1和COMM2是按钮吧。界面大概像这样：如果LIST1是多列，可以用.LIST1.LISTITEM()来取得相应行列的数据。例如：with thisform .edit1.value=.list1.listitem(.list1.listindex,2) &&其中2是可以替换成你实际要的列，如果要把所有字段都显示，则需要逐个拼串了。endwith

Visual FoxPro 9.0 语言参考 ERASE 命令 请参阅 示例 全部折叠 全部展开 从磁盘上删除文件。警告：在使用 ERASE 时，应该十分小心。用此命令删除的任何文件都不能恢复。在删除文件之前，即使 SET SAFETY 为 ON，也不会发出任何警告。 　 ERASE FileName | ? [RECYCLE] 参数FileName指定要删除的文件。如果文件在当前驱动器或目录之外的某个驱动器或目录中，则应在文件名中包含路径。FileName 可以包含通配符，如 * 和 ?，例如，用 ERASE *.BAK 删除备份文件。如果 FileName 包含空格，应用引号把整个文件名括起来。?　显示删除对话框，从中选择要删除的文件。RECYCLE指定文件不是直接从磁盘上删除，而是放入 Windows 回收站中。说明即使指定的文件不存在，此命令也不会产生错误。DELETE FILE 命令与 ERASE 命令作用相同。示例在下例中，把 CUSTOMER.DBF 的结构和 country 字段值为 USA 的所有记录复制到 backup 表中，然后把 backup 中的数据复制到打开的文本文件 temp 中，之后关闭该文件，并删除该文件。CLOSE DATABASESOPEN DATABASE (HOME(2) + "data estdata")USE customer && 打开 customer 表COPY STRUCTURE TO backupUSE backupAPPEND FROM customer FOR country = "USA"COPY TO temp TYPE DELIMITEDWAIT WINDOW "按 Esc 关闭并删除 temp.txt" NOWAITMODIFY FILE temp.txt NOEDITERASE temp.txt? IIF(FILE("temp.txt"),"文件未被删除","文件已删除")USEERASE backup.dbf

是默认方式的数据类型转换函数，语法格式如下：TRANSFORM(eExpression, [cFormatcodes])transform()实际上是一个格式化输出函数，eExpression是要进行格式化输出的表达式，cFormatcodes是格式化代码。例如，transform(4123.345,"999,999.399")将返回"4,123.35"如果省略cFormatcodes参数，Visual FoxPro将对表达式按默认方式转换

DIMENSION是定义一个数组用的.你这里命令不全,后面还应该包括数组的维数和长度比如长度为5的一维数组:DIMENSION k(5).以后可以用 k(1), k(2)来调用数组的元素二维数组,3行,4列:DIMENSION k(3,4)以后可以用 k(1,3), k(2,1)来调用数组的元素

结果是30。dimension是赋值语句，第一行告诉你被赋值M是2乘2矩阵，以下4行给矩阵每个位置赋值，最后问M的第二行是什么值，指导第二行第一个结束。

Container是VFP的容器控件，主要用来包容其他控件，如将一些标签和文本框放入到Container中。在进行表单设计时，如果拖动Container，则该容器中包含的控件都会随之移动。同时如果想隐藏某个容器，则该容器中包含的所有控件都会随之隐藏。对容器中所包含控件的引用要指定其父容器.如:thisform.container1.text1.value=123

将输入的内容转换为设定的密码或口令,用于保存或验证

是定义数组的命令。

　　在Visual FoxPro中x0dx0a　　round函数 通常称为四舍五入函数x0dx0a　　格式:round(数值表达式,保留小数位) x0dx0a　　两个参数不可少x0dx0a　　功能:根据指定的保留位数,对保留位数以后的小数进行四舍五入处理x0dx0a　　例:?round(3257.5649,2)x0dx0a　　.3257.56x0dx0a　　? round(3257.3649,0)x0dx0a　　.3258x0dx0a　　? round(3257.3649,-2)x0dx0a　　. 3300x0dx0a　　? round(-3257.5649,1)x0dx0a　　. -3257.6

ROUND(变量或常量,小数位数)

Append Blank

column 就是字段的意思，此命令中的这个短语确实可以省略不写，如果写上更明确一些，增加字段、修改字段、删除字段的意思。

indexonXXto单索引文件indexonXXtag复合索引单索引文件：每个索引是单独文件，后缀是idx每次打开表时不会自动打开，需手动打开用useXXXindex单索引文件或者useXXXsetindexto单索引文件复合索引文件：所有索引都在后缀为CDX的一个文件中，每次打开表时自动打开，比如use成绩indexon姓名tagixmindexon英语tagiyy这样就会生成一个：成绩.CDX，里面有两个索引，ixm和iyy打开表后，切换索引用SetOrderto值即可。另外单索引一般不能保证每次修改表时都打开，如果与表内容不同步，需经常index，浪费时间，推荐使用CDX复合索引。

init称为初始化事件你可以在这个事件中，写一些代码，它是在load事件之后运行的比如可以给表彰中的一个控件label1的caption赋值为当前的时间：label1.caption=time()比如把当前的日期预填到text1文本框：text1.value=date()等等

使用 Columns 属性可访问表格中指定列的属性。例如，SpecialGrid.Columns(1) .BackColor=RGB(255，0，0) 更改第一列中所有单元的 BackColor 属性为浅红色。FIELD(nFieldNumber [, nWorkArea | cTableAlias]) 参数:nFieldNumber指定字段编号。如果 nFieldNumber 等于 1，则返回表中的第一个字段名；如果 nFieldNumber 等于 2，则返回第二个字段名，依此类推。如果 nFieldNumber 大于字段的数目，则返回空字符串。返回的字段名为大写。nWorkArea字段所属表的工作区。如果在指定工作区中没有打开的表，FIELD( ) 函数将返回空字符串。cTableAlias字段所属表的别名。如果指定的表别名不存在，Visual FoxPro 将产生错误信息。返回值类型字符型

你要问什么呢！？

是指表的最后一个记录的后面的文件结束标记。 当进入表的最后一个记录，再使用SKIP，就会跳到EOF了。 这样： USE TABLENAME GO BOTT SKIP ?EOF() 就会显示.T. 另外，当表中没有一条记录时，记录会自动停在EOF位置。使用(用来在对表处理完毕后结束循环)：USE TABLENAMEGO TOPDO WHILE .NOT. EOF()?RECNO()SKIPENDDO

Interval指定调用计时器事件的间隔，以毫秒为单位TimerEvent经过Interval属性中设定的毫秒时间间隔后发生

这个东西使用步骤如下：1、首先用VB生成一个Dll，名为Lib，模块名为Tools，在Tools模块中写入下列代码。2、把pro_ext.h 和winapims.lib两个文件拷到main.cpp所在位置的lib下，就可以使用了。

1、CREATE作用：建立一个新的表。2、MODIFY STRUCTURE：显示表文件结构，并允许修改此表的结构。3、APPEND：在当前表的尾部（无论表中有无记录）追加记录（在当前表指当前正使用的表）。4、INSERT：在表文件中间插入一个新记录。5、BROWSE：主要用于打开浏览窗口，查阅表文件并同时进行修改。6、USE：打开和关闭表文件。7、LIST和DISPLAY：显示表（.dbf)的内容、结构或状态。8、记录的定位：用记录指针（POINTER)定位记录。9、CHANGE和EDIT：显示要编辑或修改的字段。10、BROWSE：打开一个“浏览”窗口，供用户浏览或修改记录。11、REPLACE：用表达式的值代替命令中与之相对应的字段的内容。12、DELETE、PACK、ZAP和RECALL：分别是给要删除的记录作删除标记、彻底删除、删除所有记录和取消被选中的表记录的删除标志。13、SORT和INDEX：分别是建立一个其记录以新的物理顺序排列的新表文件和对当前表根据关键字表达式的值从小到大排列，并存入TO后指定的索引文件名的文件或复合索引文件的一个标识中。14、USE <表文件名> INDEX <索引文件名表>、SET INDEX TO和SET ORDER TO：分别是打开表文件的同时打开索引文件、打开索引文件和改变主索引。15、FIND、SEEK和LOCATE及CONTINUE：前两个命令FIND和SEEK是在一个已经建立了索引文件的表中，定位到关键字中的内容与命令行中字符串相同的第一个记录。后一个命令在用USE打开表文件以后，直接查询表中字段内容。16、COUNT：统计当前表文件中符合条件的记录数。17、SUM：对当前表中选中记录的全部或指定的数值字段或由指定字段组成的数值表达式累加求和。18、AVERAGE：对当前表中选中记录的全部或部分数值型字段及其组成的表达式求平均值并显示。

是表格控件,写程时用于显示表格内容

replace XXX with xxx 只替换当前记录的指定字段的值replace all XXX with XX 替换所有记录的指定字段的值

field(i) 错了，replace field(i) with 0 ，要更新的必须是具体的列名，如性别。你这里的意思是想把第i个列名，用field(i)来表示，这个是不对的，vf中列名不能用field(i) 来表示列名，只能是 field 姓名,性别,成绩 这样的形式。

工作区的表与2工作区的表根据共有字段“商品名”建临时关联,保证1区的表指针移动时

第一 程序文件 *.prg第二 查询文件 *.qpr 但是运行的时候必须带扩展名，否则默认执行程序。第三 菜单文件 *.mpr 必须带扩展名 第四 表单文件 格式 do form

就是说你的目录下没有“查询.qpr”这个文件。

狂晕 loop->循环

在循环中如果遇到loop命令，则结束本次循环，程序重新返回循环开始（dowhile或for语句开头），重新判断循环条件，如果满足则继续循环。

Creat Table 是一个内嵌的SQL语句，是用命令的方法通过编程建立表结构。其命令格式为：Creat Table ＜表名＞（<字段名1><字段类型>[<字段宽度,小数位数>]）[，<字段名2>...])。例：Creat Table DX（编号 C(5)，年月 C(4)，费用 N(6,1)）即：创建一个名为DX的表，一个字段编号，字符类型，5字符宽度年月，字符类型，4字符宽度费用，数值类型，6字符宽度，1位小数（整数位为4位）

CreatTable是一个内嵌的SQL语句，是用命令的方法通过编程建立表结构。其命令格式为：CreatTable＜表名＞（<字段名1><字段类型>[<字段宽度,小数位数>]）[，<字段名2>...])。例：CreatTableDX（编号C(5)，年月C(4)，费用N(6,1)）即：创建一个名为DX的表，一个字段编号，字符类型，5字符宽度年月，字符类型，4字符宽度费用，数值类型，6字符宽度，1位小数（整数位为4位）

selecta,max(b)fromAselecta,max(b)fromB…是不是这个意思噢，不对。给你个思路：构造一个表hz，两个列：a,bselehzdowhilenoteof()selectmax(b)fromAwherea=hz.aintoarraylsifhz.b<lsreplhz.bwithlsendifselectmax(b)fromBwherea=hz.aintoarraylsifhz.b<lsreplhz.bwithlsendif………skipenddo表名如果有规律，可以自己构建一个函数生成为一个变量就简单了

当然可以,你把要升级的EXE放在局域网中的一台电脑上并共享,在客户机建个ini的文件,里面记录服务器名和升级的计算机名称给我的给你参考 *Set Step On Clear All Set Talk Off _Screen.Visible=.F. Local lcExecPath, lcFileName, lcSkeleton, lnFileCount,lcUpdatePath Local lcExe, ltLatest, lnI Local Array TargetFile(1), SourceFile(1) * Get the path to the executable directory lcExecPath = Justpath(Sys(16)) * Make that the default Set Default To (lcExecPath) fname="f:Prgpublicprogsuserfun.prg" Set Procedure To (fname) && AddI cFileName="Config.ini" If File(cFileName)=.F. If Adir(cIniFile,"*.ini")=0 Messagebox("没有 Ini 设置文件",48,"提示",4000) Return Endif cFileName=cIniFile(1,1) Endif lcUpdatePath=Alltrim(read_ini(cFileName,"updatepath")) lcEXE = read_ini(cFileName,"Excuteprog") nupdatefile=0 *SET STEP ON lok=.T. If Empty(lcUpdatePath) lok=.F. Messagebox("没有设置程序更新目录",48,"提示",4000) Else If Right(lcUpdatePath,1)<>"" lcUpdatePath=lcUpdatePath+"" Endif lok=.T. If Direct(lcUpdatePath)=.F. If getPlatform()>=2 &&win9x则不自动连接 lcpath = lcUpdatePath lcdrive = read_ini(cFileName,[Cdrive]) lcusername = read_ini(cFileName,[Cusername]) lcpassword = read_ini(cFileName,[Cpassword]) llogin=net_login(lcpath ,lcdrive ,lcusername ,lcpassword ) If llogin=.T. lok=.T. Else lok=.F. Endif Else lok=.F. Endif Endif If lok=.T. updatefile(lcUpdatePath) Else Wait Clear If Left(lcUpdatePath,2)="\" N=At("",Substr(lcUpdatePath,3)) cPc=Substr(lcUpdatePath,3,N-1) Messagebox("网络机器:"+cPc+"没有联上网络，不能更新程序！",48,"提示",3000) Return .F. Else Messagebox("程序更新目录:"+lcUpdatePath+"不存在，不能更新程序！",48,"提示",3000) Endif Endif Endif lcSelfFileName=Upper(Justfname(Sys(16))) &&程序本身的名字 If Empty(lcExe) * lcSelfFileName=Upper(Justfname(Sys(16))) &&程序本身的名字 N=Adir(exeFile,"*.exe") If N=1 Messagebox("没有执行程序!",48,"提示",3000) Return Endif For j=1 To N If lcSelfFileName<>Upper(exeFile(j,1)) lcExe=exeFile(j,1) Exit Endif Endfor Endif If File(lcExe)=.F. Messagebox("没有执行程序!",48,"提示",3000) Else openfile(lcExe) Endif Quit RETURN Function updatefile Parameters lcUpdatePath lcSkeleton ="*.*" nTargetFileCount = Adir(TargetFile,lcSkeleton) lcSelfFileName=Upper(Justfname(Sys(16))) &&程序本身的名字 lcMsg = "正在检查更新程序与目录，请稍候！......." Wait Window lcMsg Noclear Nowait At Srow()/2, (Scols()-Len(lcMsg))/2 nSourceFileCount=Adir(SourceFile,lcUpdatePath+lcSkeleton) lcFileName = Upper(Juststem(Sys(16))) If nSourceFileCount>0 &&源程序目录有文件,则根据文件修改日期来更新 Wait Window lcMsg Noclear Nowait At Srow()/2, (Scols()-Len(lcMsg))/2 ltLatest = {} For lnI = 1 To nSourceFileCount cfilename=Alltrim(SourceFile(lnI ,1)) If cfilename=lcSelfFileName &&如果是程序本身，则跳过 Loop Endif dfiledate=SourceFile(lnI ,3) cfiletime=SourceFile(lnI ,4) N=Ascan(TargetFile,cfilename)&&检查目标目录处是否有与源程序相同的文件 If N>0 &&有 i=Mod(N,5)+Int(N/5) &&第几行 If dfiledate>TargetFile(i,3) Or (dfiledate=TargetFile(i,3) And cfiletime>TargetFile(i,4) ) &&如果源文件日期时间大于目标文件的，就更新 Try Copy File (lcUpdatePath+cfilename) To (cfilename) nupdatefile=nupdatefile+1 Catch If lcFileName<>cfilename Messagebox("程序文件:"+cfilename+"正在使用，不能更新。"+Chr(13)+"请关闭后重新启动更新程序!",48,"提示",3000) Else m=1 Endif Endtry Endif Else &&没有，直接复制过来 Try Copy File (lcUpdatePath+cfilename) To (cfilename) nupdatefile=nupdatefile+1 Catch If lcFileName<>cfilename Messagebox("程序文件:"+cfilename+"正在使用，不能更新。"+Chr(13)+"请关闭后重新启动更新程序!",48,"提示",3000) Else m=1 Endif Endtry Endif Endfor Endif Wait Clear If nupdatefile>0 Messagebox("本次更新了"+Str(nupdatefile,3)+"个程序文件!",64,"提示",1000) Endif Endfunc

index on xh tag xh ascending 建立索引xh字段,字符型seek "03023320" 假设有这样个学号如果找到，记录指针停在该条记录而locate for不需要索引locate for xh="03023320"如果找到，记录指针停在该条记录

use cc.dbfscanuse prodkcoldcostlocate for prodkcoldcost.in_id=cc.in_idif found()replace prodkcoldcost.kg_r with cc.kg_rreplace prodkcoldcost.m1price with cc.m1pricereplace prodkcoldcost.m2price with cc.m2priceendifendscan

select 编号,sum(入量) as 入量 into cursor temp1 from 表2 group by 编号select 编号,sum(出量) as 出量 into cursor temp2 from 表3 group by 编号update 表1 set A.库存量=A.总量+B.入量-C.出量 from 表1 A,temp1 B,temp2 C where A.编号=B.编号 and A.编号=C.编号

DEFINE POPUP OptionPopUp ; FROM Mrow(), Mcol() ; FONT "System", 12 ; MARGIN ; SHORTCUTDEFINE BAR 1 OF OptionPopup PROMPT "中国[<C]"DEFINE BAR 2 OF OptionPopup PROMPT "-"DEFINE BAR 3 OF OptionPopup PROMPT "俄罗斯[<R]"

ActiveColumnActiveRow这两个返回的昵嘈与行，但没法子算出勾当的单元格在表单里的坐标。

? | ?? 命令计算表达式的值，并输出计算结果。语法? | ?? Expression1[PICTURE cFormatCodes] | [FUNCTION cFormatCodes] | [VnWidth][AT nColumn][FONT cFontName [, nFontSize] [STYLE cFontStyle | Expression2]][, Expression3] ... 参数? Expression1计算表达式 Expression1 的值，然后先输出一个回车和换行符，再输出计算结果。计算结果显示在 Visual FoxPro 主窗口或者活动的用户自定义窗口的下一行，并且如果函数代码 cFormatCodes 或系统内存变量 _ALIGNMENT 没有指定其他值，该结果则打印在左页边距中。如果省略了表达式，则显示或打印一个空行。当包含多个表达式时，表达式结果之间将插入一个空格。?? Expression1计算表达式 Expression1 的值，并把结果显示在 Visual FoxPro 主窗口、活动的用户定义窗口或者打印机当前行的当前位置上。输出计算结果前不回车换行。

过程引用时的调用参数说明。如主程序中：a=proca(b)那么过程proca中：proc procapara x....retu y就是说把主程序中的b引用到过程中，这里过程中x的值就是主程序中的b,x属于局部变量。当然也可以用全程变量来实现，但这样全程变量就太多了。

VFP已经很少人用来开发了，据说是不够安全。还是学ACCESS吧，对EXCEL也有帮助嘛

页框在原类中是没有这两个属性的!!如果有也是自己定义的类!!

do form 表单名

以我看来,我比较喜欢在set talk on 的状态下.比如在执行use 表 copy to 表1命令后在下面显示n条记录已复制 耗时n秒注意到这条显示就说明表1已复制成功就可直接使用use 表1 的命令了

VF常用命令和程序命令一、主要命令： 1、CREATE 作用：建立一个新的表。 格式：CREATE [<文件>|?]（注意，命令字符可取前面四个字符，后面可省略不写，即CREA ，下同；中括号表示其中的参数是可选的；|管道符号表示两个参数只能选择一个，不能同 时选择，下同。） 说明：文件指建立以.dbf为扩展名的VFP数据库文件，在命令后面加上一个问号表示系统会 弹出 对话框，要求用户输入想要建立的表名。在命令中不加文件名或问号系统也会弹出对话框， 要求用 户输入想要建立的表名。 2、MODIFY STRUCTURE 作用：显示表文件结构，并允许修改此表的结构。 格式：MODIFY STRUCTURE 说明：只有在用USE命令打开表文件以后，才能显示或修改表文件的结构。 3、APPEND 作用：在当前表的尾部（无论表中有无记录）追加记录（在当前表指当前正使用的表）。 格式：APPEND [BLANK] 说明：在APPEND命令后面加上BLANK参数表示在当前表的尾部添加一条空白记录。无BLANK参 数时，表示在当前表的尾部添加一条记录并要求用户输入相应的字段内容。 4、INSERT 作用：在表文件中间插入一个新记录。 格式：INSERT [BEFORE] [BLANK] 说明：INSERT 在当前记录后插入一记录； INSERT BEFORE 在当前记录前插入一记录； INSERT BEFORE BLANK 在当前记录前插入一空记录。 5、BROWSE 作用：主要用于打开浏览窗口，查阅表文件并同时进行修改。 格式：BROWSE 6、USE 作用：打开和关闭表文件。 格式：USE [<文件名>] USE 说明：前一个命令用来打开<文件名>指定的表文件，该表如有备注型字段，则同时打开相应 的 备注文件（.fpt文件）；后一个命令关闭当前打开的表文件。 7、LIST和DISPLAY 作用：显示表（.dbf)的内容、结构或状态。 格式：LIST|DISPLAY [OFF] [<范围>] [FIELDS] <表达式表> [WHILE <条件>] [FOR <条件 >] [TO PRINT|TO FILE <文件>] LIST|DISPLAY STRUCTURE TO PRINT|TO FILE <文件>] LIST|DISPLAY STATUS [TO PRINT|TO FILE <文件>] 说明：命令带OFF参数表示不显示记录号，范围指定对哪些记录进行操作，范围包括： RECORD n 第几号记录、NEXT n 当前记录开始的几个记录、REST 自当前记录开始至文件末尾的所有记 录、ALL 所有的记录。不选范围则隐含范围为ALL；FIELDS后跟字段名，字段名与字段名之间用逗号 分 隔。WHILE后跟条件，FOR后面也跟条件，区别是，WHILE后的条件如果满足，便停止查找； FOR后的 条件查找所有满足条件的记录。TO PRINT和TO FILE <文件>分别表示将显示结果在打印机上 打印出 来和将显示结果输出到文件。DISPLAY命令在显示记录满屏后，要求用户按任意键继续显示 ，并且在 该命令中，如果省略范围仅显示当前记录。格式中，下面两个命令分别为显示表结构（ STRUCTURE）和工作状态（STATUS）。 8、记录的定位 作用：用记录指针（POINTER)定位记录。 格式：GO[TO] RECORD n|TOP|BOTTOM n SKIP [+|-] 说明：第一个命令又叫绝对定位，其中，RECORD n定位到n号记录，TOP定位到第1个记录， BOTTOM定位到最后一个记录。第二个命令定位到第n个记录，n是一个数值。第三个命令又叫 相对定 位，它以当前记录为基准前移（-）或后移（+）n个记录，不选任选项，则默认记录指针后 移一个记录。 9、CHANGE和EDIT 作用：显示要编辑或修改的字段。 格式：CHANGE|EDIT [<范围>] [FIELDS <字段名表>] [WHILE <条件>] [FOR <条件>] 10、BROWSE 作用：打开一个"浏览"窗口，供用户浏览或修改记录。 格式：BROWSE [FIELDS <字段名表>] 11、REPLACE 作用：用表达式的值代替命令中与之相对应的字段的内容。 格式：REPLACE [<范围>] <字段1> WITH <表达式1>[，<字段2> WITH <表达式2>] [FOR <条 件> ] [WHILE<条件>] 12、DELETE、PACK、ZAP和RECALL 作用：分别是给要删除的记录作删除标记、彻底删除、删除所有记录和取消被选中的表记录 的 删除标志。 格式：DELETE [<范围>] [WHILE<条件>] [FOR <条件>] （特例：DELETE FILE FILENAME.DBF， 该命令删除指定的表文件） PACK ZAP RECALL [<范围>] [FOR <条件>] [WHILE<条件>] 13、SORT和INDEX 作用：分别是建立一个其记录以新的物理顺序排列的新表文件和对当前表根据关键字表达式 的值 从小到大排列，并存入TO后指定的索引文件名的文件或复合索引文件的一个标识中。 格式：SORT TO <文件名> ON <字段名1> [/A] [/C] [/D][，<字段名2> [/A] [/C] [/D]]... [ASCENDING|DESCENDING] [<范围>] [FOR <条件>] [WHILE<条件>] [FIELDS<字段表>] INDEX ON <关键字表达式> TO <文件名> INDEX ON <关键字表达式> TAG <标识名> [OF <文件名>] [FOR <条件>] 说明：第1个命令中，/A按字段名升序排序，/D按字段名降序排序，/C忽略大小写，针对字 符型 关键字而言，ASCENDING和DESCENDING分别表示升序和降序。第1个命令建立.dbf表文件，第 2个命令 建立.idx单一索引文件，第3个命令建立.cdx复合索引文件（Compound Index）。 14、USE <表文件名> INDEX <索引文件名表>、SET INDEX TO和SET ORDER TO 作用：分别是打开表文件的同时打开索引文件、打开索引文件和改变主索引。 格式：USE <表文件名> INDEX <索引文件名表> SET INDEX TO [<索引文件名表>] SET ORDER TO [<索引文件名>]（特例：重新索引命令：REINDEX） 15、FIND、SEEK和LOCATE及CONTINUE 作用：前两个命令FIND和SEEK是在一个已经建立了索引文件的表中，定位到关键字中的内容 与命 令行中字符串相同的第一个记录。后一个命令在用USE打开表文件以后，直接查询表中字段 内容。 格式：FIND <"字符串">|<字符串> SEEK <表达式> LOCATE [<范围>] [FOR <条件>] [WHILE<条件>] CONTINUE 说明：FIND命令与SEEK命令的区别是前者后跟字符串，而后者后跟表达式。在用LOCATE命令 找到 一个匹配记录后，可用CONTINUE命令搜索表的剩余部分来寻找其他匹配的记录。 16、COUNT 作用：统计当前表文件中符合条件的记录数。 格式：COUNT [<范围>] [FOR <条件>] [WHILE<条件>] [TO <内存变量名>] 说明：内存变量名可用除参数外的任意字符。 17、SUM 作用：对当前表中选中记录的全部或指定的数值字段或由指定字段组成的数值表达式累加求 和。 格式：SUM [<范围>] [数值<表达式>] [TO <内存变量名表>] [FOR <条件>] [WHILE<条件>] 18、AVERAGE 作用：对当前表中选中记录的全部或部分数值型字段及其组成的表达式求平均值并显示。 格式：AVERAGE [<范围>] [数值<表达式>] [TO <内存变量名表>] [FOR <条件>] [WHILE<条 件>] 二、常用函数 1、数学函数 函数 用途 ABS(<数值表达式>） 绝对值，|x| CEILING（<数值表达式>） >=自变量的最小整数 EXP（<数值表达式>） 对基E的幂，e=2.71828 FLOOR（<数值表达式>） <=自变量的最大整数 INT（<数值表达式>） 取整（舍尾）自变量 LOG（<数值表达式>） 自变量的自然对数，ln x LOG10（<数值表达式>） 自变量的普通对数，lg x MAX（<表达式1>，<表达式2>） 两个值的最大值 MIN（<表达式1>，<表达式2>） 两个值的最小值 MOD（<数值表达式1>，<数值表达式2>） 求余数 RAND（[<数值表达式1>]） 返回伪随机数 ROUND（<数值表达式1>，<数值表达式2>） 四舍五入第一个自变量 SIGN（<数值表达式>） 自变量的符号 SQRT（<数值表达式>） 平方根（正根） 2、字符串操作函数 函数 用途 &<内存变量> 用于代替内存变量内容 LEN（<字符串表达式>） 返回字符串表达式的字符个数 SPACE（<数值表达式>） 生成空格 SUBSTR（<字符串表达式>，<数值表达式n>[，<数值表达式L>]） 求子字符串，从指定的字 符串表达式第n个开始，总长为L的字符串 LOWER（<字符串表达式>） 将字符串字母转换成小写字母 UPPER（<字符串表达式>） 将字符串字母转换成大写字母 TRIM（<字符串表达式>） 删除字符串尾空格 ASC（<字符串表达式>） 返回字符串表达式最左边的第一个字符的ASCII码 CHR（<数值表达式>） 将数值表达式转换成字符 AT（<字符串表达式1>，<字符串表达式2>[，<数值表达式n>]） 确定字符串表达式1在字符 串表达式2中的位置，n为字符串表达式第几次出现 STR（<数值表达式>[，<数值表达式L>][，<数值表达式n>） 将数值转换为字符串，L为数值 表达式总长，n为小数位数 VAL（<字符串表达式>） 将数字字符串转换为数字 TYPE（<表达式>） 检测表达式值的数据类型 LTRIM（<字符串表达式>） 删除字符串左部空格 RTRIM（<字符串表达式>） 删除字符串右部空格 LEFT（<字符串表达式>，<数值表达式n>） 取字符串左边部分字符，n为返回的字符个数 RIGHT（<字符串表达式>，<数值表达式n>） 取字符串右边部分字符，n从右边截取字符个数 3、表（.dbf）操作函数 函数 用途 BOF（[<工作区号或别名>]） 查表文件开始函数 EOF（[<工作区号或别名>]） 表文件结尾测试函数 RECNO（[<工作区号或别名>]） 测试当前或指定工作区表的当前记录号 DELETED（[<工作区号或别名>]） 记录删除测试函数 FILE（<"字符串">） 测试文件是否存在函数 DBF（[<工作区号或别名>]） 检测表的文件名函数 4、日期、时间函数 函数 用途 DATE（） 查系统当前日期函数 TIME（[<数值表达式>]） 查系统当前时间函数 YEAR（<日期型表达式>|<日期时间型表达式>） 由日期查年函数 MONTH（<日期型表达式>|<日期时间型表达式>） 从日期查月份函数 CMONTH（<日期型表达式>|<日期时间型表达式>） 由日期查月份名函数 DAY（<日期型表达式>|<日期时间型表达式>） 从日期查当月的日函数 DOW（<日期型表达式>|<日期时间型表达式>[，<数值表达式>]） 由日期查星期函数 CDOW（<日期型表达式>|<日期时间型表达式>） 从日期查星期名函数 DTOC（<日期型表达式>|<日期时间型表达式>） 日期转换为字符函数 CTOD（<字符串表达式>） 字符串转换为日期函数 CTOT（<字符串表达式>） 返回日期时间值函数 TTOC（<日期时间型表达式>） 返回字符值 5、显示、打印位置函数 函数 用途 ROW（） 判断光标行位置函数 COL（） 判断光标列位置函数 INKEY（[<数值表达式>]） 检测用户所击键对应的ASCII码函数，数值表达式以秒为单位等 待击键的时间 6、其他函数 函数 用途 DISKSPACE（） 返回默认磁盘驱动器中可用字节数函数 OS（） 检测操作系统名称的函数 VERSION（） 返回VFP版本号的函数 三、主要程序语句 1、条件判断语句 格式：（1）IF <条件> <命令语句组> ENDIF 说明：如果条件为真，则执行命令语句组中的各语句，否则跳过这些命令语句不执行， 而执行ENDIF后的语句。 （2）IF <条件> <命令语句组1> ELSE <命令语句组2> ENDIF 说明：如果条件为真，执行命令语句组1，否则执行命令语句组2。 （3）IF <条件1> IF <条件2> <命令语句组1> ELSE <命令语句组2> ENDIF ... ELSE <命令语句组N> ENDIF 说明：进行多重条件的嵌套选择。 （4）DO CASE CASE <条件1> <命令语句组1> CASE <条件2> <命令语句组2> CASE <条件3> <命令语句组3> ... ... CASE <条件N> <命令语句组N> [OTHERWISE] [<命令语句组N+1>] ENDCASE 说明：依次判断条件，转入条件为真的命令语句组中执行。当所有条件都不成立时，若有 OTHERWISE项，则执行命令语句组N+1，否则执行ENDCASE后面的语句。 2、循环语句 格式：（1）DO WHILE <条件> <命令语句组> [LOOP] <命令语句组> [EXIT] <命令语句组> ENDDO 说明：判断条件是否为真，如为真就重复执行循环体中的命令语句组，直到条件为假，结束 循 环。 （2）SCAN <命令语句组> ENDSCAN 说明：在一个表中建立一个执行命令语句组的循环，并执行对每一条记录的操作，直到表文 件 记录完为止。 VFP常用函数使用说明 1、数值运算函数 函数 操作 例 结果 SQRT(x) 求平方根 SQRT（9） 3 INT(x) 取整数 INT（3.14） 3 ROUND(x) 四舍五入 ROUND(3.14159,4) 3.1416 MOD(x,y) 求X除以Y的余数 MOD(25,4) 1 MAX(x,y) 求X，Y中的最大值 MAX(7,8) 8 MIN(x,y) 求X，Y中的最小值 MIN(1,2,3) 1 2、字符中操作函数 函数名 操作 例 结果 UPPER（S） 小写字母 UPPER(abc) ABC LOWER（S） 大写字母 LOWER(ACD) acd LEN（S） 求字符串的长度 LEN("中国1号") 7 AT(S1,S2） 在字符串S2，找字符串S1 AT("H","CHINA") 2 SUBSTR（S,I,N） 在S字符串中的第I个字符起取N个字符 SUBSTR("TECHNOLO",3,3) CHN LEFT（S，N） 从字符串S左边取N个字符 LEFT（"中国人"，4） 中国 RIGHT（S，N） 从字符串S右边取N个字符 S=‘12345" RIGHT（S，3） 345 SPACE（N） 生成N个空格 "合计"+SPACE(2)+"123" 合计123 TRIM（S） 消除字符串尾部空格 TRIM("姓名 ") 姓名 ALLTRI（S） 消除字符串中所有空格 ALLTRIM（"李 丽"） 李丽 STUFF（S1,N1,N2,S2) 用字符串S2替换S1中第N1个字符起的N2个字符 STUFF（"NOW",2， 1,"E"） NEW & 宏替换 P="G2" USE &P USE G2 3、日期和时间函数 函数名 操作 例 结果 DATE（） 求当前日期 DATE() 2001/11/12 DATETIME() 求当前日期和时间 DATETIME() 2001/11/12/0：22：33am YEAR（D） 求年份 YEAR(DATE()) 2001 MONTH（D） 求月份（数值） MONTH(DATETIME()) 11 CMONTH(D） 求月份（字符） MONTH(DATETIME()) Novenber DAY（D） 求日期 DAY(DATE()) 12 DOW（D） 求星期几（数值） DOW（DATE（）） 1 CDOW（D） 求星期几（英文） CDOW（DATE（）） sunday TIME（D） 求当前时间 TIME（DATE（）） 10:20:38am 4、数据类型转换函数 函数名 操作 例 结果 ASC（S） 求第一个字符串的ASCII码 ASC("what") 87 CHR（N） 求ASCII码的字符 CHR(87) w STR(R,L,D) 数值转换成字符，L为长度,D为小数位数 X=3.1415 STR(X,6,2) 3.14 VAL（S） 字符串转换为数值 VAL("123") 123.00 CTOD（S） 字符串转日期 CTOD("11/01/2002") 11/01/2002 DTOC（D） 日期转换成字符串 DTOC(DATE()) 11/01/2002 DTOS（D） 把日期转成年月日式的字符串 DTOS(DATE()) 20021101 CTOT（C） 字符串转成日期时间型 CTOT(11/01/2002 10:30:50am) 11/01/2002 10:30:50am DTOT（D） 日期型转为日期时间型 DTOT(DATE()) 11/25/2001 00:00:01am TTOC（T） 日期时间型转为字符型 TTOC(DATETIME()) 11/25/2001 00:00:01am TTOD（T） 日期时间型转为日期型 TTOD(DATETIME()) 11/25/2001 IIF(LE,E1,E2) 逻辑判断 IIF(A>0,"YES","NO") YES 5、检测函数 函数名 操作 例 结果 RECNO（） 检测当前记录号 RECNO（） 1 RECCOUNT（） 检测当前记录数 RECCOUNT（） 12 BOF（） 开始记录 BOF（） 1 EOF（） 最后记录 EOF（） 12 FOUND（） 返回查找结果 FOUND（） .T. ROW（） 返回当前行坐标 ROW（） 1 COL（） 返回当前列坐

3.update是标准sql语言，replace是vfp自带函数，两者差别不大4.delete+pack ＝ zap ，delete删除之后不用pack可以通过recall恢复被删除记录，pack或zap都不能恢复

前两者用于显示表的内容，后者功能要强大得多，可用于表的显示、编辑等等。list＝disp all

browse命令是打开“浏览”窗口，显示当前或选定表的记录。field代表显示表中的字段list命令是在visualfoxpro主窗口或用户自定义窗口中，以不暂停的方式显示表或环境的信息。后面的off是不对的，list命令没有这个参数。

browse是浏览的意思，for是条件项。下列语句是浏览所有籍贯是江苏的员工。use 员工表browse for 籍贯="江苏"

browse：打开浏览窗口并显示当前表或指定表的记录并进行全屏幕编辑和修改list：连续显示当前数据表文件的全部或部分记录内容display：分页显示当前数据表文件的全部或部分记录内容当命令中不带<范围>和<条件>选项时，list命令默认显示全部记录，而display命令仅显示当前记录

browse 命令是打开“浏览”窗口，显示当前或选定表的记录。field代表显示表中的字段list命令是在 Visual FoxPro 主窗口或用户自定义窗口中，以不暂停的方式显示表或环境的信息。后面的off是不对的，list命令没有这个参数。

list【off】 off不显示记录号，如果省略了off，就在每个记录前显示记录号

前面的AAA表示字段，后一个AAA表示表达式，不是字段

看看下面的解释和实例就明白了。PARAMETERS命令将调用程序传来的数据赋值给私有内存变量或数组。语法PARAMETERSParameterList参数ParameterList指定接收数据的内存变量或数组。“ParameterLis”中的参数应用逗号分隔。PARAMETERS语句中的参数数目至少应与DO...WITH语句中的参数数目相同。如果PARAMETERS语句中所列的变量或数组数目比DO...WITH语句传递的多，剩余的变量或数组就初始化为“假”(.F.)。最多可传递27个参数。PARAMETERS()函数返回传递给最近执行程序的参数数目。说明当PARAMETERS命令与DO...WITH语句一起使用时，它必须是被调用程序、过程或用户自定义函数中的第一条可执行语句。默认情况下，DO...WITH语句以引用传递方式向过程传递变量和数组。当一个值在被调用过程中更改时，新值传递回调用程序中相关的变量或数组。如果想以值传递方式向一个过程传递变量或数组，在DO...WITH语句的参数列表中用括号把变量或数组括起来，这样，在被调用过程中对参数的任何更改都不传回调用程序。默认情况下，变量以引用传递方式向过程传递，以值传递方式向一个用户自定义函数传递。使用SETUDFPARMSTOREFERENCE命令，能以引用传递方式向用户自定义函数传递变量。*下面的示例向一个错误处理例程传递变量。ONERRORDOerrhandWITHERROR(),MESSAGE(),;MESSAGE(1),PROGRAM(),LINENO()USEnodatabaseONERROR&&还原系统错误处理例程PROCEDUREerrhandPARAMETERSgnError,gcMess,gnMess1,gcProg,gnLineNo?"Errornumber:"+LTRIM(STR(gnError))?"Errormessage:"+gcMess?"Lineofcodewitherror:"+gnMess1?"Linenumberoferror:"+LTRIM(STR(gnLineNo))?"Programwitherror:"+gcProg*测试数组传递数据dimensiona(5)a(1)=5a(2)=4a(3)=3a(4)=6a(5)=7?a(1),a(2),a(3),a(4),a(5)&&传递前的数组值aa=ttt(@a)&&引用函数，在数组前加上@?aa&&函数的返回值?a(1),a(2),a(3),a(4),a(5)&&传递后的数组值functttparab(5)b(1)=1+b(1)b(2)=3+b(2)return"OK"func定义的的就是一个函数。你可以在自定义函数或过程中使用数组，但是系统函数并不是都支持数组引用的。

into table a这里的a有问题在vfp中，a可以是个工作区例如select a可能你认为这个命令的作用是选择a表可我也可以认为是选择a工作区这可能并不是导致grid不显示的关键原因thisform.grid1.recordsource="select * from cpb where xih=thisform.text1.value into table a"thisform.grid1.recordsource="a" 这两句修改成select * from cpb where xih=thisform.text1.value into cursor tempthisform.grid1.recordsource = "temp"thisform.grid1.recordsourcetype = 1再试试

简单的，用Copy to EXCEL表名.xls type xl5，注意的是，运行此命令时须使要转换的DBF表在当前工作区，可以通过Select来择取工作区。另外提供一些以编程方式将DBF导成XSL的程式及相关资料，希望对你有用：VFP导成XLS&& DbfToExcel.PRG&& 记得要安装Excel啊，否则不好用CLOSE DATABASES ALLSET DATE YMDSET CENTURY ONcDbfFile = GETFILE("dbf")IF EMPTY(cDbfFile) RETURNENDIFUSE (cDbfFile) ALIAS FoxTable IN 0IF NOT USED("FoxTable") =MESSAGEBOX("打开表失败，程序将中止！", 16, "Error") RETURNENDIFcExcelFile = PUTFILE("保存为(&N):",JUSTSTEM(cDbfFile)+".xls","xls")IF EMPTY(cExcelFile) CLOSE DATABASES ALL RETURNENDIFSELECT FoxTableoExcelSheet = GETOBJECT("","Excel.Sheet") && 产生Excel对象IF NOT TYPE("oExcelSheet") = "O" =MESSAGEBOX("Excel对象创建失败，程序将中止！", 16, "Error") RETURNENDIFoExcelApp = oExcelSheet.ApplicationoExcelApp.Workbooks.Add()oExcelApp.ActiveWindow.WindowState=2oSheet = oExcelApp.ActiveSheetnFldCount = AFIELDS(aFldList, "FoxTable")FOR i = 1 TO nFldCount oSheet.Cells(1,i).Value = aFldList[i, 1]ENDFORcRecc = STR(RECCOUNT("FoxTable"))SCAN WAIT WINDOW ALLTRIM(STR(RECNO())) + "/" + cRecc NOWAIT FOR i = 1 TO nFldCount vValue = .NULL. IF AT(aFldList[i, 2], "CDLMNFIBYT") = 0 LOOP ENDIF cFldName = aFldList[i, 1] vValue = EVALUATE(cFldName) DO CASE CASE aFldList[i, 2] = "C" && 字符/字符串 vValue = TRIM(vValue) CASE aFldList[i, 2] = "D" && 日期 vValue = DTOC(vValue) CASE aFldList[i, 2] = "T" && 日期时间 vValue = TTOC(vValue) CASE INLIST(aFldList[i, 2], "N", "F", "I", "B", "Y") && 数值 CASE aFldList[i, 2] = "L" && 逻辑 CASE aFldList[i, 2] = "M" && 备注型 OTHERWISE vValue = .NULL. ENDCASE IF VARTYPE(vValue) = "C" AND EMPTY(vValue) LOOP ENDIF IF NOT ISNULL(vValue) oSheet.Cells(RECNO("FoxTable")+1, i).Value = vValue ENDIF ENDFORENDSCANcChrStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"FOR i = 1 TO nFldCount cColumn = SUBSTR(cChrStr, INT((i-1)/26), 1) + SUBSTR(cChrStr, IIF(MOD(i, 26)= 0, 26, MOD(i, 26)) , 1) oSheet.Columns(cColumn + ":" + cColumn).ColumnWidth = 12 IF aFldList[i, 2] = "M" oSheet.Columns(cColumn + ":" + cColumn).WrapText = .F. ENDIFENDFORoExcelApp.ActiveWorkbook.SaveAs(cExcelFile)oExcelApp.ActiveWorkbook.Close(.F.)oExcelApp.ActiveWorkbook.Close(.F.)oExcelApp.QuitoExcelSheet = .NULL.oExcelApp = .NULL.WAIT CLEAR=MESSAGEBOX("转换完毕！", 64, "OK")CLOSE DATABASES ALL 程序是用VFP8写的，在VFP6中也可以，没有问题。只要能够执行完成，就会是正确的，行数只受你安装的Excel最大行数限制，至少大于65535行 这个程序支持所有字段类型，包括MEMO类型字段。在VFP中全面控制Excel VFP和Excel都可以用来进行处理数据库表格，如果巧妙地将二者的优点结合起来，将会大大方便我们的工作。比如我们可以利用VFP进行处理数据，而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍： 1．创建Excel对象 eole=CREATEOBJECT(′Excel.application′) 2．添加新工作簿 eole.Workbooks.add 3．设置第3个工作表为激活工作表 eole.Worksheets(〃sheet3〃).Activate 4．打开指定工作簿 eole.Workbooks.Open(〃c: empll.xls〃) 5．显示Excel窗口 eole.visible=.t. 6．更改Excel标题栏 eole.Caption=〃VFP应用程序调用Microsoft Excel〃 7．给单元格赋值 eole.cells(1,4).value=XM(XM为数据库字段名) 8．设置指定列的宽度(单位：字符个数) eole.ActiveSheet.Columns(1).ColumnWidth=5 9．设置指定行的高度(单位：磅) eole.ActiveSheet.Rows(1).RowHeight=1/0.035 (设定行高为1厘米，1磅=0.035厘米) 10．在第18行之前插入分页符 eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1 11．在第4列之前删除分页符 eole.ActiveSheet.Columns(4).PageBreak=0 12．指定边框线宽度(Borders参数如下) ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3 13．设置四个边框线条的类型 eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1 (其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线) 14．设置页眉 eole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃 15．设置页脚 eole.ActiveSheet.PageSetup.CenterFooter=〃第＆P页〃 16．设置页眉到顶端边距为2厘米 eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 17．设置页脚到底边距为3厘米 eole.ActiveSheet.PageSetup.FooterMargin=3/0.035 18．设置顶边距为2厘米 eole.ActiveSheet.PageSetup.TopMargin=2/0.035 19．设置底边距为4厘米 eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 20．设置左边距为2厘米 veole.ActiveSheet.PageSetup.LeftMargin=2/0.035 21．设置右边距为2厘米 eole.ActiveSheet.PageSetup.RightMargin=2/0.035 22．设置页面水平居中 eole.ActiveSheet.PageSetup.CenterHorizontally=.t. 23．设置页面垂直居中 eole.ActiveSheet.PageSetup.CenterVertically=.t. 24．设置页面纸张大小(1－窄行8 5 11 39－宽行14 11) eole.ActiveSheet.PageSetup.PaperSize=1 25．打印单元格网线 eole.ActiveSheet.PageSetup.PrintGridlines=.t. 26．拷贝整个工作表 eole.ActiveSheet.UsedRange.Copy 27．拷贝指定区域 eole.ActiveSheet.Range(〃A1:E2〃).Copy 28．粘贴 eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial 29．在第2行之前插入一行 eole.ActiveSheet.Rows(2).Insert 30．在第2列之前插入一列 eole.ActiveSheet.Columns(2).Insert 31．设置字体 eole.ActiveSheet.Cells(2,1).Font.Name=〃黑体〃 32．设置字体大小 eole.ActiveSheet.Cells(1,1).Font.Size=25 33．设置字体为斜体 eole.ActiveSheet.Cells(1,1).Font.Italic=.t. 34．设置整列字体为粗体 eole.ActiveSheet.Columns(1).Font.Bold=.t. 35．清除单元格公式 eole.ActiveSheet.Cells(1,4).ClearContents 36．打印预览工作表 eole.ActiveSheet.PrintPreview 37．打印输出工作表 eole.ActiveSheet.PrintOut 38．工作表另为 eole.ActiveWorkbook.SaveAs(〃c: emp22.xls〃) 39．放弃存盘 eole.ActiveWorkbook.saved=.t. 40．关闭工作簿 eole.Workbooks.close 41．退出Excel eole.quit 以上控制调用语句在中文VFP5.0企业版下运行通过，运行环境为Excel 97及中文Windows 98。Grid转Excel的类 *------------------------------------*rex1105*****************转excel类，编写日期:2006-05-23 By Rex1105 ********PARAMETERS oGrid,cHeaderIF PARAMETERS()<2 Return .F.ENDIFcRec=ALLTRIM(oGrid.RECORDSOURCE)Select ALIAS(cRec)FILE_NAME=PUTFILE("","","XLS")IF EMPTY(FILE_NAME) Return .F.ENDIF***检查是否有安装office软件***excelsheet=GETOBJECT("","excel.sheet")IF TYPE("excelsheet")#"O" MESSAGEBOX("您没有安装office办公软件!",16,"信息提示") RELEASE excelsheet Return .F.ENDIF****检查文件有无打开*****LOCAL loldsetopt,mChanNum,nWSnWs=2loldsetopt=DDESETOPTION("safety")=DDESETOPTION("safety",.F.)mChanNum=DDEINITIATE("excel","&file_NAME")IF <>mChanNum-1 MESSAGEBOX("有同名的Excel文件打开!请先关闭它!",64,"信息提示") =DDETERMINATE(mChanNum) =DDESETOPTION("safety",loldsetopt) Return .F.ELSE =DDETERMINATE(mChanNum) =DDESETOPTION("safety",loldsetopt)ENDIFLOCAL cCopy,oexlDIMENSION [oGrid.ColumnCount,2]dColumnFOR i=1 TO oGrid.COLUMNCOUNT FOR ii=1 TO oGrid.COLUMNCOUNT nOrder=oGrid.COLUMNS(ii).COLUMNORDER IF nOrder=i [i,1]dColumn=oGrid.COLUMNS(ii).header1.CAPTION [i,2]dColumn=oGrid.COLUMNS(ii).CONTROLSOURCE EXIT ENDIF ENDFORENDFOR****建立输出文件*****cCopy=""FOR i=1 TO ALEN(dColumn,1) cCopy=cCopy+[i,2]dColumn+","NEXTcCopy=LEFT(cCopy,LEN(cCopy)-1)cCopy="COPY TO "+"""+FILE_NAME+"""+" TYPE XL5 FIELDS "+cCopy&cCopy&&建立excel表，并写表头oexl=CREATEOBJECT("excel.APPLICATION")WITH oexl .workbooks.OPEN(FILE_NAME) .VISIBLE=.T. .cells.Select .Selection.FONT.Size=10ENDWITHSelect ALIAS(cRec)=AFIELDS(cField,cRec)****第一行加中文标题*****FOR i=1 TO ALEN(dColumn,1) oexl.cells(1,i).VALUE=[i,1]dColumn****每列数据处理，分字符与数值日期***** DO CASE CASE TYPE([i,2]dColumn)="N" ***查找数值的小数位**** FOR ii=1 TO ALEN(cField,1) IF UPPER([i,2]dColumn)=UPPER(cRec)+"."+[ii,1]cField nWS=[ii,4]cField EXIT ENDIF NEXT oexl.COLUMNS(retuabc(i)+":"+retuabc(i)).NumberFormatLocal = "#,##0."+REPLICATE("0",nWs)+"_);[红色](#,##0."+REPLICATE("0",nWs)+")" CASE TYPE([i,2]dColumn)="D" OR TYPE([i,2]dColumn)="T" oexl.COLUMNS(retuabc(i)+":"+retuabc(i)).NumberFormatLocal = "yyyy/mm/dd" ENDCASE NEXT****表格线****oexl.RANGE("A1:"+retuabc(ALEN(dColumn,1))+ALLTRIM(Str(RECCOUNT()+1))).Selectoexl.Selection.BorderS(5).LineStyle = -4142oexl.Selection.BorderS(6).LineStyle = -4142WITH oexl.Selection.BorderS(7) .LineStyle =1 .Weight = 2 .ColorIndex = -4105ENDWITHWITH oexl.Selection.BorderS(8) .LineStyle =1 .Weight = 2 .ColorIndex =-4105ENDWITHWITH oexl.Selection.BorderS(9) .LineStyle =1 .Weight = 2 .ColorIndex = -4105ENDWITHWITH oexl.Selection.BorderS(10) .LineStyle =1 .Weight = 2 .ColorIndex = -4105ENDWITHWITH oexl.Selection.BorderS(11) .LineStyle =1 .Weight = 1 .ColorIndex = -4105ENDWITHWITH oexl.Selection.BorderS(12) .LineStyle =1 .Weight = 1 .ColorIndex = -4105ENDWITH***第一行显示灰色加粗体****WITH oexl.RANGE("A1:"+retuabc(ALEN(dColumn,1))+"1") .HorizontalAlignment=3 .VerticalAlignment = 2 .WrapText = .T. .FONT.bold=.T. .Interior.ColorIndex = 40ENDWITHoexl.Rows("1:1").Selectoexl.Selection.INSERToexl.Selection.INSERToexl.Selection.INSERT&&抬头WITH oexl.RANGE("A1:"+retuabc(ALEN(dColumn,1))+"1") .merge .VALUE=cHeader .FONT.Size=14 .HorizontalAlignment=3 .VerticalAlignment=2 .FONT.bold=.T.ENDWITH&&加报表时间WITH oexl.RANGE("A2:d2") .merge .VALUE="报表时间："+TTOC(DATETIME())ENDWITH&&加表格第一列oexl.cells.Selectoexl.Selection.COLUMNS.AUTOFIT()RELEASE oexlReturn .T.

首先，新建一个表单后，点保存，输入名称后会出现一个路径，选择你的U盘，保存在里面就好了，VisualFoxPro一个表单由两个文件组成:.SCX和.SCT~而其实真正把每个表单集或表单保存在以扩展名为.SCX的表中,同时每个表单的.SCX文件都有个以.SCT为扩展名的同名备注文件~下次你打开VFP后，把那个SCX文件拉到命令窗口就可以打开~~~图片在U盘里面，可以设置默认目录，setdefaultto比如说F：

如果你要将这个表单文件弄到其它电脑上，那么两个文件都要复制下来，这样才能在VF中使用。

首先，新建一个表单后，点保存，输入名称后会出现一个路径，选择你的U盘，保存在里面就好了，VisualFoxPro一个表单由两个文件组成:.SCX和.SCT~而其实真正把每个表单集或表单保存在以扩展名为.SCX的表中,同时每个表单的.SCX文件都有个以.SCT为扩展名的同名备注文件~下次你打开VFP后，把那个SCX文件拉到命令窗口就可以打开~~~图片在U盘里面，可以设置默认目录，setdefaultto比如说F:

array是数组，属于变量类型，引用时只能用数组名（行号，列号）的形式。cursor属于临时表，是数据表类型，只不过是存在于内存中的数据表，一旦退出系统，数据自动消失。一切用于操作表的命令均能使用，比如brow,list,use等等。

gfh

vfp 专案管理器中其他按钮功能的连编指什么 连编是在你这门课学完后，在专案管理器里你建立的有表、资料库、程式、表单、选单、查询等，最后设定一个主档案，连编形成一个可以直接脱离VFP执行的EXE档案。其实就是你用VFP开发程式，最后形成可以使用的应用软体了。 专案管理器的连编对话方块中有几种编译形势 专案管理器可以将资料库系统中的资料库、资料表、表单、查询、报表、检视、程式以及相关的档案集中管理，并且编译成应用软体。 功能有： 1.查询资料档案 2.检视档案详细内容 3.查询表单和报表档案 4.新增或者移去档案 5.建立或修改档案 6.查看表中资料 7.专案间共享档案 镜内画上斜线作阴影表示实心。人的眼睛像一架神奇 先在专案管理器中选择程式，再选择什么按钮可以执行该程式 网上找的,呵呵Windows系统程序介绍 （1）[system Idle Process] 程序档案: [system process] or [system process] 程序名称: Windows记忆体处理系统程序 描 述: Windows页面记忆体管理程序，拥有0级优先。 介 绍：该程序作为单执行绪执行在每个处理器上，并在系统不处理其他执行绪的时候分派处理器的时间。它的cpu占用率越大表示可供分配的CPU资源越多，数字越小则表示CPU资源紧张。 （2）[alg.exe] 程序档案: alg or alg.exe 程序名称: 应用层闸道器服务 描 述: 这是一个应用层闸道器服务用于网路共享。 介 绍：一个闸道器通讯外挂的管理器，为 “Inter连线共享服务”和 “Inter连线防火墙服务”提供第三方协议外挂的支援。 （3）[csrss.exe] 程序档案: csrss or csrss.exe 程序名称: Client/Server Runtime Server Subsystem 描 述: 客户端服务子系统，用以控制Windows图形相关子系统。 介 绍: 这个是使用者模式Win32子系统的一部分。csrss代表客户/伺服器执行子系统而且是一个基本的子系统必须一直执行。csrss用于维持Windows的控制，建立或者删除执行绪和一些16位的虚拟MS-DOS环境。 （4）[ddhelp.exe] 程序档案: ddhelp or ddhelp.exe 程序名称: DirectDraw Helper 描 述: DirectDraw Helper是DirectX这个用于图形服务的一个组成部分。 简 介：Directx 帮助程式 （5）[dllhost.exe] 程序档案: dllhost or dllhost.exe 程序名称: DCOM DLL Host程序 描 述: DCOM DLL Host程序支援基于COM物件支援DLL以执行Windows程式。 介 绍：代理，系统附加的dll元件越多，则dllhost占用的cpu资源和记忆体资源就越多，而8月的“冲击波杀手”大概让大家对它比较熟悉吧。 （6）[explorer.exe] 程序档案: explorer or explorer.exe 程序名称: 程式管理 描 述: Windows Program Manager或者Windows Explorer用于控制Windows图形Shell，包括开始选单、工作列，桌面和档案管理。 介 绍：这是一个使用者的shell，在我们看起来就像任务条，桌面等等。或者说它就是资源管理器，不相信你在执行里执行它看看。它对windows系统的稳定性还是比较重要的，而红码也就是找它的麻烦，在c和d根下建立explorer.exe。 （7）[iinfo.exe] 程序档案: iinfo or iinfo.exe 程序名称: IIS Admin Service Helper 描 述: IInfo是Microsoft Inter Infomation Services (IIS)的一部分，用于Debug除错除错。 介 绍：IIS服务程序，蓝码正是利用的iinfo.exe的缓冲区溢位漏洞。 （8）[internat.exe] 程序档案: internat or internat.exe 程序名称: Input Locales 描 述: 这个输入控制图示用于更改类似国家设定、键盘型别和日期格式。internat.exe在启动的时候开始执行。它载入由使用者指定的不同的输入点。输入点是从登录档的这个位置HKEY_USERS.DEFAULTKeyboard LayoutPreload 载入内容的。internat.exe 载入“EN”图示进入系统的图示区，允许使用者可以很容易的转换不同的输入点。当程序停掉的时候，图示就会消失，但是输入点仍然可以通过控制面板来改变。 介 绍：它主要是用来控制输入法的，当你的工作列没有“EN”图示，而系统有internat.exe程序，不妨结束掉该程序，在执行里执行internat命令即可。 （9）[kernel32.dll] 程序档案: kernel32 or kernel32.dll 程序名称: Windows壳程序 描 述: Windows壳程序用于管理多执行绪、记忆体和资源。 介 绍：更多内容浏览非法操作与Kernel32解读 （10）[lsass.exe] 程序档案: lsass or lsass.exe 程序名称: 本地安全许可权服务 描 述: 这个本地安全许可权服务控制Windows安全机制。管理 IP 安全策略以及启动 ISAKMP/Oakley (IKE) 和 IP 安全驱动程式等。 介 绍：这是一个本地的安全授权服务，并且它会为使用winlogon服务的授权使用者生成一个程序。这个程序是通过使用授权的包，例如预设的msgina.dll来执行的。如果授权是成功的，lsass就会产生使用者的进入令牌，令牌别使用启动初始的shell。其他的由使用者初始化的程序会继承这个令牌的。而windows活动目录远端堆叠溢位漏洞，正是利用LDAP 3搜寻请求功能对使用者提交请求缺少正确缓冲区边界检查，构建超过1000个"AND"的请求，并发送给伺服器，导致触发堆叠溢位，使Lsass.exe服务崩溃，系统在30秒内重新启动。 （11）[mdm.exe] 程序档案: mdm or mdm.exe 程序名称: Machine Debug Manager 描 述: Debug除错管理用于除错应用程式和Microsoft Office中的Microsoft Script Editor指令码编辑器。 介 绍：Mdm.exe的主要工作是针对应用软体进行排错(Debug)，说到这里，扯点题外话，如果你在系统见到fff开头的0位元组档案，它们就是mdm.exe在排错过程中产生一些暂存档案，这些档案在作业系统进行关机时没有自动被清除，所以这些fff开头的怪档案里是一些字尾名为CHK的档案都是没有用的垃圾档案，可匀我馍境 换岫韵低巢 涣加跋臁6?X系统，只要系统中有Mdm.exe存在，就有可能产生以fff开头的怪档案。可以按下面的方法让系统停止执行Mdm.exe来彻底删除以fff开头的怪档案：首先按“Ctrl+Alt+Del”组合键，在弹出的“关闭程式”视窗中选中“Mdm”，按“结束任务”按钮来停止Mdm.exe在后台的执行，接着把Mdm.exe(在C:WindowsSystem目录下)改名为Mdm.bak。执行msconfig程式，在启动页中取消对“Machine Debug Manager”的选择。这样可以不让Mdm.exe自启动，然后点选“确定”按钮，结束msconfig程式，并重新启动电脑。另外，如果你使用IE 5.X以上版本浏览器，建议禁用指令码呼叫(点选“工具→Inter选项→高阶→禁用指令码呼叫”)，这样就可以避免以fff开头的怪档案再次产生。 （12）[mmtask.tsk] 程序档案: mmtask or mmtask.tsk 程序名称: 多媒体支援程序 描 述: 这个Windows多媒体后台程式控制多媒体服务，例如MIDI。 介 绍：这是一个任务排程服务，负责使用者事先决定在某一时间执行的任务的执行。 （13）[mprexe.exe] 程序档案: mprexe or mprexe.exe 程序名称: Windows路由程序 描 述: Windows路由程序包括向适当的网路部分发出网路请求。 介 绍：这是Windows的32位网路介面服务程序档案，网路客户端部件启动的核心。印象中“A-311木马(Trojan.A-311.104)”也会在记忆体中建立mprexe.exe程序，可以通过资源管理结束程序。 （14）[msgsrv32.exe] 程序档案: msgsrv32 or msgsrv32.exe 程序名称: Windows信使服务 描 述: Windows信使服务呼叫Windows驱动和程式管理在启动。 介 绍：msgsrv32.exe 一个管理资讯视窗的应用程式，win9x下如果音效卡或者显示卡驱动程式配置不正确，会导致宕机或者提示msgsrv32.exe 出错。 （15）[mstask.exe] 程序档案: mstask or mstask.exe 程序名称: Windows计划任务 描 述: Windows计划任务用于设定继承在什么时间或者什么日期备份或者执行。 介 绍：计划任务，它通过登录档自启动。因此，通过计划任务程式实现自启动的程式在系统资讯中看不到它的档名，一旦把它从登录档中删除或禁用，那么通过计划任务启动的程式全部不能自动执行。win9X下系统启动就会开启计划任务，可以通过双击计划任务图示－高阶－终止计划任务来停止它自启动。另外，攻击者在攻击过程中，也经常用到计划任务，包括上传档案、提升许可权、种植后门、清扫脚印等。 （16）[regsvc.exe] 程序档案: regsvc or regsvc.exe 程序名称: 远端登录档服务 描 述: 远端登录档服务用于访问在远端计算机的登录档。 （17）[rpcss.exe] 程序档案: rpcss or rpcss.exe 程序名称: RPC Portmapper 描 述: Windows 的RPC埠对映程序处理RPC呼叫(远端模组呼叫)然后把它们对映给指定的服务提供者。 介 绍：98它不是在装载直译器时或引导时启动，如果使用中有问题，可以直接在在登录档HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunServices新增"字串值"，定向到"C:WINDOWSSYSTEMRPCSS"即可。 （18）[services.exe] 程序档案: services or services.exe 程序名称: Windows Service Controller 描 述: 管理Windows服务。 介 绍：大多数的系统核心模式程序是作为系统程序在执行。开启管理工具中的服务，可以看到有很多服务都是在呼叫%systemroot%system32service.exe （19）[ *** ss.exe] 程序档案: *** ss or *** ss.exe 程序名称: Session Manager Subsystem 描 述: 该程序为会话管理子系统用以初始化系统变数，MS-DOS驱动名称类似LPT1以及COM，呼叫Win32壳子系统和执行在Windows登陆过程。 简 介：这是一个会话管理子系统，负责启动使用者会话。这个程序是通过系统程序初始化的并且对许多活动的，包括已经正在执行的Winlogon，Win32（Csrss.exe）执行绪和设定的系统变数作出反映。在它启动这些程序后，它等待Winlogon或者Csrss结束。如果这些过程时正常的，系统就关掉了。如果发生了什么不可预料的事情， *** ss.exe就会让系统停止响应（就是挂起）。 （20）[snmp.exe] 程序档案: snmp or snmp.exe 程序名称: Microsoft SNMP Agent 描 述: Windows简单的网路协议代理（SNMP）用于监听和传送请求到适当的网路部分。 简 介：负责接收SNMP请求报文，根据要求传送响应报文并处理与WinsockAPI的介面。 （21）[spool32.exe] 程序档案: spool32 or spool32.exe 程序名称: Printer Spooler 描 述: Windows列印任务控制程式，用以印表机就绪。 （22）[spoolsv.exe] 程序档案: spoolsv or spoolsv.exe 程序名称: Printer Spooler Service 描 述: Windows列印任务控制程式，用以印表机就绪。 介 绍：缓冲（spooler）服务是管理缓冲池中的列印和传真作业。 （23）[stisvc.exe] 程序档案: stisvc or stisvc.exe 程序名称: Still Image Service 描 述: Still Image Service用于控制扫描器和数码相机连线在Windows。 （24）[svchost.exe] 程序档案: svchost or svchost.exe 程序名称: Service Host Process 描 述: Service Host Process是一个标准的动态连线库主机处理服务. 介 绍：Svchost.exe档案对那些从动态连线库中执行的服务来说是一个普通的主机程序名。Svhost.exe档案定位在系统的%systemroot%system32资料夹下。在启动的时候，Svchost.exe检查登录档中的位置来构建需要载入的服务列表。这就会使多个Svchost.exe在同一时间执行。每个Svchost.exe的回话期间都包含一组服务，以至于单独的服务必须依靠Svchost.exe怎样和在那里启动。这样就更加容易控制和查询错误。windows 2k一般有2个svchost程序，一个是RPCSS（Remote Procedure Call）服务程序，另外一个则是由很多服务共享的一个svchost.exe。而在windows XP中，则一般有4个以上的svchost.exe服务程序，windows 2003 server中则更多。 （25）[taskmon.exe] 程序档案: taskmon or taskmon.exe 程序名称: Windows Task Optimizer 描 述: windows任务优化器监视你使用某个程式的频率，并且通过载入那些经常使用的程式来整理优化硬碟。 介 绍：工作管理员，它的功能是监视程式的执行情况并随时报告。能够监测所有在工作列中以视窗方式执行的程式，可开启和结束程式，还可直接调出关闭系统对话方块。 （26）[tcpsvcs.exe] 程序档案: tcpsvcs or tcpsvcs.exe 程序名称: TCP/IP Services 描 述: TCP/IP Services Application支援透过TCP/IP连线区域网和Inter。 （27）[winlogon.exe] 程序档案: winlogon or winlogon.exe 程序名称: Windows Logon Process 描 述: Windows NT使用者登陆程式。这个程序是管理使用者登入和退出的。而且winlogon在使用者按下CTRL+ALT+DEL时就激活了，显示安全对话方块。 （28）[winmgmt.exe] 程序档案: winmgmt or winmgmt.exe 程序名称: Windows Management Service 描 述: Windows Management Service透过Windows Management Instrumentation data WMI)技术处理来自应用客户端的请求。 简 介：winmgmt是win2000客户端管理的核心元件。当客户端应用程式连线或当管理程式需要他本身的服务时这个程序初始化。WinMgmt.exe（CIM物件管理器）和知识库（Repository）是WMI两个主要构成部分，其中知识库是物件定义的资料库，它是储存所有可管理静态资料的中心资料库，物件管理器负责处理知识库中物件的收集和操作并从WMI提供程式收集资讯。WinMgmt.exe在Windows 2k/NT上作为一个服务执行，而在Windows 95/98上作为一个独立的exe程式执行。Windows 2k系统在某些计算机上出现的WMI错误可以通过安装Windows 2k SP2来修正。 （29）[system] 程序档案: system or system 程序名称: Windows System Process 描 述: Microsoft Windows系统程序。 介 绍：在工作管理员中会看到这项程序，属于正常系统程序。 系统程序就介绍到这里。 在Windows2k/XP中，以下程序是必须载入的： *** ss.exe、csrss.exe、winlogon.exe、services.exe、lsass.exe、svchost.exe(可以同时存在多个)、spoolsv.exe、explorer.exe、System Idle Process； 在Windows 9x中，一下程序是必须载入的： msgsrv32.exe、mprexe.exe、mmtask.tsk、kenrel32.dll。 我资料库和自由表还有表单报表都新增到专案管理器里面了啊，我是在专案管理器里连编的啊。 是否是开启档案的路径问题，exe档案在此相对路径下无法找到表或者库 在vfp专案管理器中建立表单表单中的编辑框如何删除 选中后按delete删除 专案管理器的主要作用是指什么？它的功能有哪些 专案管理器可以将资料库系统中的资料库、资料表、表单、查询、报表、检视、程式以及相关的档案集中管理，并且编译成应用软体。 功能有： 1.查询资料档案 2.检视档案详细内容 3.查询表单和报表档案 4.新增或者移去档案 5.建立或修改档案 6.查看表中资料 7.专案间共享档案 VFP专案管理器不见了怎么找回来. 如果是你以前建立的专案，可以用“档案”中的“开启” 如果是刚建好的，不小心关了 可以用modify project <专案名> 开启 找回Visual FoxPro的专案管理器 档案---开启---选中要开启的专案档案----确定 vf中专案管理器能管理哪些资源 能管理在专案管理器中建立的所有档案，包括资料库、表、表单、查询、检视、报表、标签、选单、程式、文字档案等 HFSS专案管理器怎么恢复 点View-Project manager.就可以开启。 应该是你不小心关了。

是否为空 ！

放memo字段里面试试？

从局域网共享目录安装VB6两个版本遇到同样问题，把安装程序下载到本地就都能正常安装了。

意思是系统没有检测到Acme安装程序。解决的方法：1、打开setupwiz.ini，把"acme=acmboot.exe"改为"=acmsetup.exe"；u2002u20022、STF=setup/vb?98ent.stf改为=acmsetup.stf，保存退出；3、将安装文件的子目录文件setup的所有文件复制到安装文件的根目录中，4、然后将根目录中的vb98ent.stf(刚刚从setup中复制的那个文件)改名为acmsetup.stf；5、然后运行setup.exe即可。

什么啊

andZGB这中间是不是少了个空格。2个地方都是这样

　　VFP由于其通俗 易用 深受广大开发人员的欢迎 但其安全性与稳定性却不十分完善 而Oracle在此方面的优点是有口皆碑的 两者结合 能开发出高效 安全和稳定的应用系统 有关在VFP中调用Oracle存储过程方法的资料较少 下面就此举一简单例子 希望起到抛砖引玉的作用 此方法适用于用VFP作前端开发工具 Oracle作后端数据库的C/S开发方法 　　　　　　在Oracle端 建有如下表和存储过程 　　　　　　表gzb如下 　　　　SQL〉select ＊ from gzb; ID　　GZ　　　　 　　 　　　　 　　 　　　　 　　 　　　　　　存储过程如下 　　　　　　create or replace procedure p_update—gzb (p—id in number p—gz in number) as 　　　　　　begin 　　　　　　update gzb set gz=p—gz where id=p—id; 　　　　　　mit; 　　　　　　end; 　　　　　　在前端(VFP端) 假设已建立好与Oracle的链接′vfplink′(具体步骤可以参阅VFP的帮助文档) 　　　　　　打开链接 　　　　　　nhand=sqlconnect(′vfplink′) 　　　　　　＆＆nhand为返回的链接句柄 　　　　　　调用Oracle的存储过程p—update—gzb: 　　　　　　此存储过程有两个参数 分别是id与gz 我们设要更新id为 的员工的gz为 则可以执行 　　　　　　sqlexec(nhand ″{call p—update—gzb( )}″) 　　　　　　如果执行成功 则返回 失败则返回－ 我们可以执行以下命令验证存储过程是否成功执行了 　　　　　　sqlexec(nhand ′select ＊ from gzb′) 　　　　　　brow 　　　　　　结果是 　　　　ID　　GZ　　　　 　　 　　　　 　　 　　　　 　　 　　　　　　可见 Oracle的存储过程p—update—gzb已经成功执行了 最后 别忘了断开连接 　　　　　　disconnect(nhand) 　　　　　　以上例子在VFP Oracle 环境下运行通过 lishixinzhi/Article/program/Oracle/201311/16667

回答了给分不？

clearaccept"请输入字符："toaifasc(a)>=48andasc(a)<=57?"该字符是数字。"elseifasc(a)>=97andasc(a)<=122?"该字符是小写字母。"elseifasc(a)>=65andasc(a)<=90?"该字符是大写字母。"else?"该字符是其他特殊符号。"endifendifendif

VFP数据库，是Microsoft公司的产品，前身是FoxPro(DOS版本）。事实上，DOS版本的FoxPro只有表，没有数据库，VFP是Windows下可视化的开发工具，自带数据库，具备了数据库的功能，如：表关联、字段有效性规则、触发器等，不过安全性较差，开发一个小型软件是可以的，好学好用，值得一学。

有6个选项卡，名称及功能分别是：1、全部:项目管理器中所有的项目2、数据:数据库、数据表、查询等3、文档:表单、报表、标签等4、类: 类和类库5、代码:管理程序、API库、程序代码文件。6、其他:其它类型文件。如管理菜单、文本文件和其他文件。VFP(Visual FoxPro)起源于美国的Fox Software公司推出的数据库产品FoxBase，在DOS上运行，与xBase系列相容。是在 xBASE（dBASE,Clipper,FoxBASE,FoxPro）的基础上发展而来的32位数据库管理系统。VFP(Visual FoxPro)6.0是在 xBASE（dBASE,Clipper,FoxBASE,FoxPro）的基础上发展而来的32位数据库管理系统。VFP(Visual FoxPro)起源于美国的Fox Software公司推出的数据库产品FoxBase，在DOS上运行，与xBase系列相容。FoxPro原来是FoxBase的加强版，最高版本曾出过2.6。之后，Fox Software被微软收购，加以发展, 使其可以在 Windows 上运行, 并且更名为 Visual FoxPro。目前最新版为 Visual FoxPro 9.0，而在学校教学和教育部门考证中还依然延用经典版的 Visual FoxPro 6.0。在桌面型数据库应用中，处理速度极快，是日常工作中的得力助手。

CB

一百元买一百只鸡；其中公鸡3元一只，母鸡2元一只，小鸡0.5元一只，问能买公鸡，母鸡小鸡各多少只？#include "stdio.h"void main(){ int cocks=0,hens,chicks; while(cocks<=33) { hens=0; while(hens<=50) { chicks=100-cocks-hens; if(3*cocks+2*hens+chicks/2.0==100) printf("%d,%d,%d ",cocks,hens,chicks); hens++; } cocks++; }} 这样类似的题很多，上面数字改一下，变量改一下，就OVER！！谢谢。杜绝你抄袭，你可以仿着程序做一遍，呵呵

在数据库的编程应用中经常用到将数据从一种文件格式转变另一种格式，这时OLE是一种上上之选，OLE技术以其易用性以及平台无关性成为了编程人员的上上之选。不过我们在开发程序时，一个模块一般只能用于将一个数据表导出因为导出数据内容受表结构的限制，表结构不同则编程中必须要做一切改动。笔者在开发一个学务管理系统的过程就遇到这类问题。经过一番探索笔者巧妙地结合VFP函数成功实现了表文件无关地导出。最后成功实现了将源表导出到EXCEL中。特此提出以供大家讨论，同时借此抛砖引玉，还望高手不吝赐教。其实笔者所用的原理很简单。主要使用了Visual Foxpro中的FCOUNT()与FIELDS函数。打开表后利用FCOUNT（）函数取得了表中的字段个数。然后用FIELDS（）函数设法取得各个字段的字段名。这样问题就基本解决了。不过在实践中笔者发现仅取得了字段名还不能取得记录中各字段的值，笔者利用宏替代暂时解决了此问题。如果哪位高手有更好的方法。还望指教。 源码清单： local myoleapp local myfilenamelocal myfield yfilename=getfile("*.dbf")&&得到源表 myoleapp=createobject("excel.application") &&创建OLE对象 myoleapp.visible=.t.myoleapp.workbooks.adduse &myfilenamefor i=1 to fcount() myoleapp.cells(i,1).value=fields(i)endforscan for i=1 to fcount() myfield=fields(i) myoleapp.cells(recno()+1,i).value=&myfield endforendscanmyoleapp.activeworkboods.saveas("myxls.xls")myoleapp.quit

SELECT 表EXPORT TO "c:1.xls" XLS导出为xls还可以用copy命令的select 表copy to "c:aa.xls" xl5

有以下几种解释：1. 在美国，一个dime指一个10美分的硬币，值0.1美元。2. 在加拿大也是指一个10分的硬币，按照加拿大的货币（0.1加元）。3. 俚语中，dime指装了价值10美元非法药品（如大麻）的一个小袋。two dimes如果是指钱的话，即可能是2个10分的硬币（美元和加元都可能，看上下文）；如果不一定指钱的话，则也有可能是指两小包毒品。

输出.t.?是输出表达式的值在主窗口max()函数是输出参数中数值最大的数.max(2>3,4<5)2>3的值是.f.4<5的值是.t..t.相当1.f.是01>0所以输出.t.