如何在VFP中判断是否存在一个字段，用代码写

gxhmsy 2005-12-26 03:41:16

...全文

717 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

boydgmx 2005-12-26

打赏
举报

USE Customer && Open customer table

gnFieldcount = AFIELDS(gaMyArray) && Create array
CLEAR
FOR nCount = 1 TO gnFieldcount
? gaMyArray(nCount,1) && Display field names
ENDFOR

wwwwb 2005-12-26

打赏
举报

参考AFIELDS()函数。

vf6.0，要考二级没系统的下哈 Microsoft Visual FoxPro 6.0 for Windows 的常见问题这些是有关 Microsoft Visual FoxPro 最常见的问题。在您求助 Microsoft 产品支持服务之前，请先查阅这张列表。若想打印这些附注，请从“文件”菜单中选择“打印”命令。此文档分为以下四部分: --------------------------------------------------------------------- 部分 1. 技术支持与市场部分 2. Visual FoxPro 6.0 新增功能部分 3. 从其他版本的 FoxPro 和 Visual FoxPro 中移植部分 4. Visual FoxPro 常见问题 --------------------------------------------------------------------- 部分 1. 技术支持与市场问题 1-1: 从何处可以获得产品的更新版本？答案: 在 Visual FoxPro 的 Web 站点上即可获得产品的更新信息，其中包括有关 Service Pack 和更新的示例、向导及其他代码的信息，该站点的网址为： www.microsoft.com/vfoxpro 请定期查看该网站，以便下载产品的最新版本。问题 1-2: 从何处可以得到有关 Visual FoxPro 的详细资料？答案: 通过 Microsoft Visual FoxPro Web 站点是随时获得各种最新产品发布信息的最佳途径。在此站点上不仅有新的产品公告，而且还提供了产品的更新信息、技术文章、白皮书、专业开发人员设计的优秀示例、会议公告、以及与其他许多 FoxPro web 站点的各种链接。问题 1-3: 如何获得技术支持，以及如何报告软件错误？答案: Microsoft Visual FoxPro Web 站点已经链接到了多种联机支持选项，其中包括覆盖面广阔的有关所有产品 Microsoft Knowledge Base（Microsoft 知识库）。您还可以阅读一份有关常见问题的清单。除联机支持之外，还可以直接通过电话获得技术支持。“帮助”菜单中的选项可列出技术支持的电话号码。这些电话号码也可用于报告产品中的错误。问题 1-4. 什么是 Knowledge Base？如何使用它？答案: Knowledge Base 是内容广泛的论文集，覆盖了如何使用产品的各种特性、已知的软件错误及其解决方案或回避的方法、以及其他有助于使用各种 Microsoft 产品的有用信息。通过以下站点可访问整个 Knowledge Base： support.microsoft.com 问题 1-5: 是否会有 Visual FoxPro 6.0a？答案: Microsoft 公司一向承诺为用户提供高质量的产品。如果确实需要，我们将提供 Visual FoxPro 6.0 的错误修订版。但是，修订版不会使用 6.0a 版的形式。Visual FoxPro 6.0 中任何错误的修正都将包含在 Visual Studio Service Pack 中。同时还会在 Visual FoxPro 的 www.microsoft.com/vfoxpro 或 Visual Studio 的www.microsoft.com/vstudio 的 Web 站点上发布修订公告。问题 1-6: Microsoft 公司为应用程序的开发提供了一些优秀的解决方案。怎样才能知道应该向客户推荐和使用哪种产品？答案: 在选择适用某项任务的产品时，需要考虑多方面的因素。Microsoft Visual FoxPro web 站点上有一份优秀的策略背景论文，它比较了 Visual FoxPro、Visual Basic、SQL Server 和 Access 等 Microsoft 产品之间的不同。问题 1-7: 哪里可以找到 Visual FoxPro 的使用示例？答案: Visual FoxPro 6.0 产品中带有丰富的示例，其中有一些是针对 6.0 版特有功能的新示例。与 Visual FoxPro 以前的版本不同，这些示例将与所有 Visual Studio 示例安装在一起。您必须运行 MSDN Library 的“自定义”安装来安装这些示例。在 Visual FoxPro 中可使用新的 HOME(2) 函数方便地找到已安装示例的位置。除了产品中所自带的示例外，Microsoft Visual FoxPro web 站点还将经常提供新的示例。

看实例学VFP：更复杂的查询时间:2009-02-12来源:编程入门网作者:老马　　在看实例学VFP：对表中记录进行定位与查找操作及看实例学VFP：用SELECT语句创建查询这两个例子中,我们可以在查询时可以从组合框中选定一个要查询的字段。本例对这种查询方式再做进一步改进,使之在查询时不仅可以从一个组合框中选取要查询的字段,还可以从另一个组合框中选定操作符(如<、=、>等），从而实现更复杂的查询。本例应用到了数据环境，并使用“数据1”数据库中的“人员信息表”作为数据环境的数据源，关于该数据库的情况已经在看实例学VFP：示例数据库一文中给出，这里不再详述。运行界面见本文末尾。　　制作步骤如下：　　一、新建表单，将其caption属性值设置为“更复杂的查询例子”，AutoCenter属性值设置为.T.，width属性值设置为520，height属性值设置为245，并保存为“更复杂的查询例子.scx”。　　二、右击表单空白处，选“数据环境”命令，将“人员信息表”添加到数据环境中。在“数据环境设计器”中拖动“人员信息表”的标题栏到表单上，自动生成一个表格控件。由于是从数据环境中把“人员信息表”拖动过来由系统自动生成的，该表格控件的RecordSource属性及RecordSourceType属性已经由系统设置好了，不用管它，但name属性值系统给出的好长，为了书写代码的方便，我们把这个表格控件的name属性值修改为“grid1”。　　三、在表格控件的下方添加一个Label控件，并把它的caption属性值设置为“查询条件”。　　四、在label控件的右侧依次添加两个组合框控件、一个文本框控件及两个命令按钮command1和command2，并把这两个命令按钮的caption属性值依次设置为“查找”和“退出”。　　五、适当调整各控件在表单上的位置，调整后的表单设计器如下图所示：　　六、设置组合框控件的属性：　　（一）组合框Combo1：RecordSourceType属性值设置为“8-结构”，RecordSource属性值设置为“人员信息表”。　　（二）组合框Combo2：RecordSourceType属性值设置为“1-值”，RecordSource属性值设置为“,>,<,=,>=,<=,<>”。　　七、添加事件代码：　　（一）表单的unload事件代码：close data 　　（二）组合框Combo1的InteractiveChange事件代码： if alltrim(this.displayvalue)="出生日期" thisform.text1.value={} else thisform.text1.value='' endif 　　（三）“查找”按钮command1的click事件代码： if thisform.grid1.recordsource='临时人员信息表' thisform.grid1.recordsource='人员信息表' endif' private CXTJ if empty(thisform.combo1.displayvalue) or empty(thisform.combo2.displayvalue) ; or empty(thisform.text1.value) && 判断列表框和文本框是否为空 messagebox('请输入完整条件！',16,'系统提示') thisform.combo1.setfocus else do case case alltrim(thisform.Combo1.Displayvalue)='基本工资' CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' '+alltrim(thisform.text1.value) case alltrim(thisform.Combo1.Displayvalue)='出生日期' CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' ctod("'+dtoc(thisform.text1.value)+'")' otherwise CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' "'+alltrim(thisform.text1.value)+'"' endcase Select * from 人员信息表 where &CXTJ. into cursor 临时人员信息表 thisform.grid1.recordsource='临时人员信息表' thisform.grid1.backcolor=rgb(200,224,248) endif 　　（四）“退出”按钮command2的click事件代码：thisform.release 　　八、运行“更复杂的查询例子.scx”，界面见下图：

看实例学VFP：复选框控件时间:2009-03-24来源:编程入门网作者:老马　　在vfp基础教程-复选框一文中，已经给出了复选框控件的常用属性。这个控件的使用重点是对它的value属性值的判断上，另外也可以通过controlsource属性把它和表中的某个逻辑型字段绑定，同时也可以在它支持的click、interactiveChange等事件中进行编程。　　本文是一个在复选框控件的interactiveChange事件中编程的小例子，运行时通过复选框的选择来控制label控件的文字大小及颜色变化，运行界面如下：　　制作步骤：　　一、新建表单，将其caption属性值设置为“编程入门网-复选框控件”，保存为“复选框控件.scx”。　　二、向表单上添加一个label控件，caption属性值设为“编程入门网”，fontsize属性值设为10，AutoSize属性值设为.t.，Forecolor属性值设为“0,0,255”（rgb颜色）　　三、向表单添加两个复选框控件，caption属性值依次设置为“增大字号”和“改变颜色”，其它属性值采用默认的。　　四、添加事件代码：　　1.复选框check1(“增大字号”)的interactiveChange事件： if this.value=1 thisform.label1.fontsize=18 else thisform.label1.fontsize=10 endif 　　2.复选框check2(“改变颜色”)的interactiveChange事件： if this.value=1 thisform.label1.forecolor=rgb(255,0,0) else thisform.label1.forecolor=rgb(0,0,255) endif

第1章　程序设计　1 1. 什么是主程序　2 2. 如何编写主程序　3 3. 如何加入READ EVENTS　6 4. 如何隐藏Visual FoxPro的主窗口　7 5. 如何处理“不能退出FoxPro”的情况　8 6. 如何设计错误捕捉程序　9 7. 如何实现程序的背景音乐　14 8. 如何把金额由数字变成大写　17 9. 如何制作拖动功能　19 10. 如何进行高级密码处理　23 11. 如何把文字转换成首位拼音码　27 12. 如何防止程序的多次开启　28 13. 如何以编程方式添加数据环境到表单　29 14. 如何使用HTML Help Workshop编写HTML帮助　31 15. 如何调用帮助文件　39 16. 如何为_Screen表单指定事件过程　42 第2章　界面设计　45 17. 如何从打印预览工具栏中移除按钮　46 18. 如何隐藏和显示系统工具栏　48 19. 如何制作自定义工具栏　50 20. 如何进行动态的菜单设计　55 21. 如何进行权限菜单的设计　60 22. 如何在顶层表单里使用自己的工具栏和菜单　70 23. 如何设计快捷菜单　74 24. 如何实现移动字幕　78 25. 如何制作异形表单　81 26. 如何制作类似Media Player的图形表单　88 27. 如何动态显示表单　94 28. 如何创建能保存大小和位置的表单　95 29. 如何实现在Grid中回车自动换行　99 30. 如何在Grid拆分窗口中取消拆分条　101 31. 如何利用Grid的动态属性进行动态设计　104 32. 如何生成一个具有滚动条的窗口来移动记录　108 33. 如何将程序图标放入系统托盘　111 第3章　数据处理　115 34. 如何使用GetFile()函数与宏替换打开表(.DBF)　116 35. 如何实现记录按笔画排序　117 36. 如何实现数据实时筛选　119 37. 如何利用Excel来创建统计图形　121 38. 如何利用Graph对象来创建统计图形　125 39. 如何实现数据的进制转换　133 40. 如何查找两个表中相同或不同的记录　140 41. 如何确定整数的奇偶数　142 42. 如何用低级函数转换TEXT文件到DBF　143 43. 如何使用数据库事件进行表加密　145 44. 如何在备注字段中搜索字符串　149 45. 怎样导入Microsoft Access 的表结构和数据　155 46. 如何将通用字段中的内容恢复成当前存储格式的物理文件　159 47. 如何用ADO Stream 对象来获取二进制数据　163 48. 如何正确使用SELECT-SQL查询语句　164 第4章　ActiveX控件　180 49. 如何注册ActiveX控件　181 50. 如何调用进度条控件　183 51. 如何使用状态栏控件　184 52. 如何使用滑尺控件　188 53. 如何用MSComm控件　189 54. 如何使用日历控件　191 55. 如何使用日期挑选器控件　193 56. 如何使用TreeView控件　199 57. 如何使用工具条控件　206 58. 如何使用图表控件　209 59. 如何使用格式文本框控件　216 60. 如何使用SysInfo控件　226 61. 如何使用动画控件　229 62. 如何使用多媒体控件　231 63. 如何使用Kodak图像扫描控件　234 64. 如何使用Animation GIF控件　237 第5章　文件处理　240 65. 如何删除文件到回收站　241 66. 如何获得文件属性和改变文件属性　242 67. 如何以相应的应用程序来打开已建立关联的文件　250 68. 如何将文件按扩展名与应用程序建立关联　253 69. 如何进行DOS/Windows文本文件与UNIX/Linux文本文件的相互转换　257 70. 如何遍历磁盘中的所有目录及文件　258 71. 如何使用低级函数读写文件　263 72. 如何为Visual FoxPro应用程序增加文件压缩功能　271 73. 如何利用SHFileOperation()函数进行文件复制与删除　275 74. 如何以编程方式读取和设置磁盘卷标　286 75. 如何在Windows NT中监视文件系统的改变　287 第6章　类应用与设计　291 76. 如何在子类中调用父类方法的程序代码　292 77. 如何屏蔽子类对其父类的自动继承　293 78. 如何让表单设计器使用自定义表单类　296 79. 如何设计能正确显示和存储下拉列表中不存在选项的组合框类　297 80. 如何利用Systray类将图标添加到系统托盘中　304 81. 如何使用_thermometer类来实现执行进度条　315 82. 如何使用_StopWatch类实现计时程序设计　317 83. 如何利用_ShortcutMenu类进行动态快捷菜单设计　321 84. 如何使用WinZip Manager类进行文件压缩和解压缩　325 第7章　网络应用　332 85. 如何获得本机IP地址　333 86. 如何获得局域网内网卡的物理地址　333 87. 如何使用Internet Transfer控件制作FTP工具　336 88. 如何使用WebBrowser控件编写Web浏览器　338 89. 如何映射和断开网络驱动器　343 90. 如何实现超级链接效果　349 91. 如何使用Winsock控件进行常用网络应用开发　352 92. 如何使用MAPI控件发送带附件的邮件　359 93. 如何判断计算机是否已经连接到网络　362 94. 如何通过编程运行拨号网络连接　364 95. 如何实现Ping操作　369 第8章　客户/服务器编程　373 96. 如何进行基于文件服务器的多用户编程　374 97. 如何建立ODBC数据源　383 98. 如何建立到ODBC数据源的连接　387 99. 如何使用视图设计器进行远程视图设计　389 100. 如何用视图指令和函数进行远程视图设计　399 101. 如何使用SPT扩展远程视图　406 102. 如何实现游离视图　416 103. 如何使用SQL-DMO枚举可用的SQL Server数据库服务器　419 104. 如何启动和停止SQL Server服务　421 105. 如何获得SQL Server中的可用数据库列表　425 106. 如何取得服务器的硬盘目录结构　427 107. 如何在SQL Server上创建数据库　431 108. 如何设置SQL Server数据库选项　433 109. 如何在SQL Server上增加、删除用户和设置用户权限　436 110. 如何在SQL Server中进行数据库备份和恢复　444 111. 如何使用SQL-DMO为SQL Server设置任务　447 112. 如何与NT服务器进行时间同步　449 113. 如何在SQL Server数据表中创建惟一值　450 第9章　Windows相关设计　452 114. 如何打开Windows控制面板功能选项　453 115. 如何在Visual FoxPro中调用Windows命令　455 116. 如何修改Windows的系统日期与时间　457 117. 如何实现重启或关闭本地计算机　458 118. 如何实现定时重启或关闭远程计算机　461 119. 如何锁定Windows NT/XP计算机　463 120. 如何获得Windows的安装目录　464 121. 如何获得Windows的系统目录　465 122. 如何获得应用程序的当前目录　467 123. 如何从Visual FoxPro中关闭指定的应用程序　468 124. 如何检测软驱中是否放入了磁盘　469 125. 如何检测软盘是否进行了写保护　470 126. 如何将一个长文件名转换为短文件名　471 127. 如何获得操作系统的语言设置　472 128. 如何管理开始菜单中文档中的内容　472 129. 如何用Windows Script Host创建桌面快捷方式　473 130. 如何用Windows Script Host进行磁盘碎片整理　475 131. 如何用Windows Script Host打开管理工具中的选项　476 132. 如何获得系统中的逻辑驱动器　476 133. 如何获得系统中的未使用的驱动器盘符　478 134. 如何调用磁盘格式化对话框　480 135. 如何获得磁盘的总大小与可用空间　481 136. 如何打开Windows关于对话框　483 137. 如何进行Windows外观颜色设置　484 138. 如何获得计算机名和用户名　487 139. 如何修改计算机名称　488 140. 如何获得Windows的开启时间　489 141. 如何获得当前系统中安装的打印机　491 142. 如何将打印机设置为Windows的默认打印机　492 143. 如何获取打印机设备的句柄　493 144. 如何获得计算机键盘的类型　496 145. 如何交换鼠标的左右键功能　497 146. 如何获得和设置鼠标的双击速度　498 147. 如何屏蔽Ctrl+Alt+Del组合键　500 148. 如何打开或关闭光盘驱动器　501 149. 如何获得计算机硬盘卷序列号　502 150. 如何隐藏Windows的任务栏　504 151. 如何在系统启动时自动运行指定程序　506 第10章　报表设计　507 152. 如何使用报表设计器的工具栏与菜单　508 153. 如何理解报表设计器各个带区的作用　513 154. 如何进行数据分组报表设计　514 155. 如何在报表运行时访问报表的数据环境　518 156. 如何检测报表的当前输出模式　518 157. 如何进行帐页格式的报表设计　519 158. 如何进行报表的打印设置　520 159. 如何在NT/XP系统中添加自定义纸张　521 160. 如何获得报表的总页数　530 161. 如何进行面向对象的程序化报表设计　530 162. 如何使用Excel来打印报表　536 第11章　程序安装　540 163. 如何使用Visual FoxPro 6.0的安装向导　541 164. 如何自动安装Visual FoxPro 6.0安装向导制作的安装程序　544 165. 如何卸载使用安装向导安装的应用程序　545 166. 如何为编译后的应用程序文件指定图标　545 167. 如何使用InstallShield制作安装程序　546 附录　558 附录1. 函数分类表　559 附录2. 命令分类表　570 附录3. Visual FoxPro系统变量　580 附录4. 系统菜单和菜单选项常数　581 附录5. INKEY()和LASTKEY()函数的返回值　584 附录6. Visual FoxPro变量命名约定　586 附录7. Visual FoxPro对象命名约定　586 附录8. Visual FoxPro表字段命名约定　587 附录9. Visual FoxPro系统容量　587

VFP

2,727

社区成员

29,114

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章

如何在VFP中 判断是否存在一个字段，用代码写

如何在VFP中判断是否存在一个字段，用代码写