VEP中EXCEL格式的输入方法

Author: 牟善铸 Date: 1998年第08期 12版

　　尽管VFP提供的表单设计器可以很容易完成数据输入界面的设计与修改，但在通用的一些程序中，如果每用到一个表就设计或修改一次，工作量未免太大，对非专业人员也有一定的困难。能不能只选定所需的表，其输入界面保持不变?
　　笔者发现用VFP提供的表格控件GRID可以很容易地实现，并且能实现与EXCEL表格相同的输入形式，输入的内容全部显示在屏幕上，下面将具体实现方法介绍给大家：
　　（1）从GRID控件拖放到表单上（假设名为grid1），设置其属性：
　　Recordsourcetype为0表
　　（2）为表单的active过程编程
　　pp=getfile（″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中运行通过。