VFP中EXCEL格式的输入方法

来源：作者：出处：巧巧读书 2006-10-13 进入讨论组

关键词：
excel

四川　牟善铸

　尽管VFP提供的表单设计器可以很容易完成数据输入界面的设计与修改，但在通用的一些程序中，如果每用到一个表就设计或修改一次，工作量未免太大，对非专业人员也有一定的困难。能不能只选定所需的表，其输入界面保持不变?
　　笔者发现用VFP提供的表格控件GRID可以很容易地实现，并且能实现与EXCEL表格相同的输入形式，输入的内容全部显示在屏幕上，下面将具体实现方法介绍给大家：
　　(1)从GRID控件拖放到表单上(假设名为grid1)，设置其属性：
　　Recordsourcetype为0---表
　　(2)为表单的active过程编程
　　pp=get(″dbf″,″″,″″,2)
　　if empty(pp)
　　thisform.release
　　return
　　endif
　　use &pp
　　＊选定所需的表
　　n=fcount()
　　thisform.grid1.columncount=n
　　thisform.grid1.recordsource=pp
　　for i=1 to n
　　thisform.grid1.columns(i).header1.caption=field(i)
　　endfor
　　use
　　(3)再在表单加上插入、删除、添加、完成等几个按钮，就可构成较完善的输入界面，实现数据的整体输入。
　　此程序在586组装微机、VFP3.0中运行通过。

打开： http://www.qqread.com/foxpro/i219299.html