求教如何将一堆表名开头一样的所有表合并在一起

[qq_23183413]

我现在有表bm201101.dbf....一直到现在bm201411.dbf很多表，每月自动增加一个.表里都有字段A,字段B，字段C。我现在要弄一个查询的输入字段C搜索显示出相对应的字段B，输入字段B搜索显示出字段A。我就想到先把所有表名开头是BM的合并在一起，然后执行一个表单弄搜索。这个合并代码要怎么写。或者有好办法我搜索每个表把搜索到记录显示在一起

[lygcw9602]

看看帮助文件就会了 adir() APPEND FROM 命令

[qq_23183413]

引用 8 楼 needanothercoder 的回复:

想要独占打开 use aaa.dbf exclusive

我就是不要独占的，想以共享姿态打开，原来那个appen 的追加的那些表就是独占打开的。

[needanothercoder]

use aaa.dbf shared

[needacoder]

请运行如下代码，出现打开文件框时，请找到你的所有DBF所在的文件夹，鼠标双击要被合并的DBF中的任何一个. 最后在DBF所在的文件夹中会出现一个“合并表.DBF”. Have fun!

SET SAFETY OFF 
CLOSE TABLES 
s=JUSTPATH(GETFILE("DBF"))
*MESSAGEBOX(s)
ADIR(aaa,s+'\'+"bm20*.dbf")
*DISPLAY MEMORY 
use (s+'\'+aaa(1,1))
COPY STRUCTURE to (s+'\'+'合并表')
use (s+'\'+'合并表')
FOR i=1 to ALEN(aaa)/5
	APPEND FROM (s+'\'+aaa(i,1))
NEXT 
GO top
BROWSE title "合并后的结果"
USE

[qq_23183413]

谢谢2楼的方法。我直接JUSTPATH(路径写进去了)，不用弹出文件框。我小白一个呵呵，没人教只能自己百度了。怎么给分呢

[needanothercoder]

移动到页面底部，点“结帖”按钮，然后在#2楼的输入框内输入40，确定

[qq_23183413]

APPEND FROM (s+'\'+aaa(i,1)) 追加的表怎么设置不独占，因为很多人在用

[needanothercoder]

老弟，给俺证明一下你是会结帐给分操作的，然后我就会回答你的新问题，呵呵，这公道不？

[qq_23183413]

引用 6 楼 needanothercoder 的回复:

老弟，给俺证明一下你是会结帐给分操作的，然后我就会回答你的新问题，呵呵，这公道不？

行啊

[needanothercoder]

想要独占打开 use aaa.dbf exclusive