(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)再在表单加上插入、删除、添加、完成等几个按钮,就可构成较完善的输入界面,实现数据的整体输入。
这个没办法.两个不相同的数据管理程序是没有办法相互复制数据的.
如果是向VFP中批量添加Excel数据的话,就利用VFP的导入功能吧。
文件,导入。
然后按照上面的框框找到指定的Excel表,添加就好了。
但好像是Excel文档中只能有一个工作表,不能有合并的单元格之类的。
具体我只试了两次,一次失败,一次成功,不知道原因。
Excel文件类型保存成Microsoft Excel 5.0.
不过如果有问题,就在讨论吧~
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)