已在20楼上传了我现在的进展(用的是那个帖70楼的办法,当然那个办法还是55楼的办法启发出来的),就是物资项目的那一块弄不出来,数目不定,在对照表和代码段中不知道怎样做了.我重传了附件请重新下载.

[ 本帖最后由 antony521 于 2015-7-10 16:28 编辑 ]

对,就这块.最后的效果应该是这样的

怎样得到这块的项目数量并读取,还要在对照表中表达出来让程序知道去哪里取得?

[ 本帖最后由 antony521 于 2015-7-10 16:42 编辑 ]

你说的方法都是象我楼上发的图那样的表格。第一行是标题下面是各个条目，这样的导入程序网上有很多，包括版主也写过不少。我平时也到论坛逛也有收集。

这可不是一个好主意。打开每一个文件看有多少条，分成多少个文件，每个文件留一条吗？有的文件有几十条啊

根据版主的帖子暂时想到取得表格总行数减表尾的固定行数得最后一行项目行数。
第一行项目的行数是固定的，两个相减得物资项目数。
然后怎么在对照表中告诉程序重复取那些项目呢？再加一列标识列？
导入时还得过滤掉空行。

[ 本帖最后由 antony521 于 2015-7-10 19:22 编辑 ]

我觉得象我31楼说的这个现在不是问题了。在对照表中sheet2中先放入一行：
表尾占用行数 6
重复项位置也放到这里

先取得表的总行数再减去从sheet2第一行提出的行数6
物资到货检验报告.USEDRANGE.ROWS.COUNT - 对照表.SHEETS(2).CELL(1,2).VALUE
比如金属管这个表 总行数=9
从重复项首行位置(7,4)取row
首行位置=7
两个相减得项目行数
物资数=9-7+1=3

[ 本帖最后由 antony521 于 2015-7-10 21:42 编辑 ]

是这么想的,具体实现还有困难.

出现错误提示

各个字段都有不能空值的错误提示,看来还得加一个空值处理.
加
If Isnull(pp)
    pp=""
Endif
解决.

[ 本帖最后由 antony521 于 2015-7-12 18:05 编辑 ]

这两个文件哪来的?
erase bj-ext.dbf
erase bj-ext.fpt

[ 本帖最后由 antony521 于 2015-7-12 18:08 编辑 ]

我的系统是win7,VFP 9.0 7423.
空值的问题加个判断已解决.另一个问题是程序运行时有EXCEL文件在打开状态,这个以后注意下就可以了.
现在在win7 32位下读取.XSLX文件没再发现问题.周一试试64位系统下,读取大量文件数据.我想应该不会有意外情况.

erase bj-ext.dbf
erase bj-ext.fpt

删除的这两个文件是哪来的?

[ 本帖最后由 antony521 于 2015-7-12 21:13 编辑 ]