在VBF中打开一个DBC数据库。
点表-添加-另一DBC数据库中某DBF表,注意表名称不能与已有表同名。
或者将另一数据库DFC表复制粘贴到所需路径,用上述方法添加。
我是这样做的:(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)再在表单加上插入、删除、添加、完成等几个按钮,就可构成较完善的输入界面,实现数据的整体输入。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)