在下面重新上传了附件.所有内容都在里面了.表单文件名是weihu、图片文件在文件夹里。各按钮、表单的初始代码及导入导出的代码也都写了，只是有些功能无法实现。现在我想实现以下几个功能：
1：在进行增加记录时,通过这个表单把bmp文件保存到数据库中,在程序中如何写这个代码？
2：在文件夹中，001.xls是想继续导入到数据库中的电子表格文件，在导入时，如何使wl_id自动顺着原数据库中的号递增？
3：在电子表格中，如何把bmp（在数据库中字段wl_th是通用型字段）文件通过导入与导出的办法实现从数据库导出为电子表格文件和从电子表格文件导入到数据库中。
希望能有人给解答。

[ 本帖最后由 学习者0539 于 2011-12-7 19:27 编辑 ]

下载后附件打不开，可能是我的版本偏低

图片最好不要加入到DBF中，加入图片，记录一多，数据库的膨胀是非常惊人的。

附件打不开
最好不用bmp文件，改用jpg文件，这样体积会小些

举个小例子，看看是否能参考：（假如想把某些文件，直接存到数据表的一个字段中）
create table sjb (dd m) && 创建表 sjb，里面有字段 dd 备注型
c1=Strconv(Filetostr("f:\bg.doc"),13) && 将 f 盘上的一个 word 文档 bg，变成 base64码。
append blank
replace dd with c1 && 这个文档存入了表的备注字段了。
close all
***********
以后再用到时，再释放出来
use sjb
cdd=alltrim(dd)
c2=Strtofile(Strconv(cdd,14),"f:\bg.doc") && 还原成原文件 f:\bg 文档，还原后的路径和文件名，允许不同。
close all
** 其他的图像，电子表格等等，依此类推。

附件是用7z压缩软件进行压缩的，后来我把扩展名给改成了RAR,直接使用WinRAR应该能够解压。

蝙蝠侠，您好啊！
  在整理表格时，是不是把图片文件的路径输入到EXCEL中？这样的话，导入时不是方便了？
  另外，对于第二条（也就是相当于新导入时序号顺着原表里的序号往下自动排）可有什么好的方法进行处理？

我使用的版本是VFP6.0，一般应该都能打开吧。这个版本不算高呀。

楼主好！你的原文件我没有打开。只能再说点想法。存放EXCEL文件的路径，可以放在认为方便的表里，或EXCEL中，都可以，只要方便使用即可。序号递增问题。如果是单机版的，是否可以利用 recno(),记录的序号。也可以从原表的号中，每次寻找其最大号，然后递增1位。比如：select max(号) from 数据库的表 into array zdh，
zdh 即是最大号.(如果号是数字的).仅供参考。


[ 本帖最后由 qingfameng 于 2011-12-5 11:30 编辑 ]

文件解压不了

原来是使用7z进行压缩的,现在我使用WinRAR重新进行压缩上传.请蝙蝠侠给看看.附件在第二页。

[ 本帖最后由 学习者0539 于 2011-12-7 08:43 编辑 ]