谢谢兄弟忠告！真是太感谢你了！希望能得到你的帮助！！！

CLOSE DATABASES
=ADIR(ATXT,[*.TXT])
FOR I=1 TO ADIR(ATXT,[*.TXT])
    SELECT * FROM MOBAN WHERE .F. INTO TABLE (JUSTSTEM(ATXT(I,1)))
    APPEND FROM ATXT(I,1) SDF
    USE IN ALIAS()
ENDFOR

真心感谢大哥！
我用了你的程序：
CLOSE DATABASES
I=ADIR(ATXT,[C:\Users\lenovo\Desktop\新建文件夹\*.TXT])
FOR I=1 TO ADIR(ATXT,[C:\Users\lenovo\Desktop\新建文件夹\*.TXT])
    SELECT * FROM MOBAN WHERE .F. INTO TABLE (JUSTSTEM(ATXT(I,1)))
    APPEND FROM ATXT(I,1) SDF
    USE IN ALIAS()
ENDFOR
实现了批量*.TXT到相匹配的*.DBF转变！！！
非常感谢！

但是我又出现了一个问题
我以前用的单个单个转换中使用了一条update命令
update C:\Users\lenovo\Desktop\新建文件夹\moban.dbf set daytime=str(Yy,2)+'/'+str(Mm,2)+'/'+str(Dd,2)+' '+str(Tt,2)+' :00:00'
用于更新最后一列数据
因为最后一列数据才是我要的最终结果
请问也能在上述程序中得到实现吗？
我从今天早上7.20到现在也没能实现自动更新update……daytime……这一列！
再次感谢您！

把你的upda加在后面
SET SAFETY off
CLOSE DATABASES
=ADIR(ATXT,[*.TXT])
FOR I=1 TO ADIR(ATXT,[*.TXT])
    SELECT * FROM MOBAN WHERE .F. INTO TABLE (JUSTSTEM(ATXT(I,1)))
    APPEND FROM ATXT(I,1) SDF
    update JUSTSTEM(ATXT(I,1)) set daytime=str(Yy,2)+'/'+str(Mm,2)+'/'+str(Dd,2)+' '+str(Tt,2)+' :00:00'
    USE IN ALIAS()
ENDFOR

我的个天……
这个我今天早上试过
原来我的在JUSTSTEM(ATXT(I,1))后面加了个.dbf后缀，程序运行不了……
谢谢你们！
非常感谢大家的帮忙！
小弟在这一一谢过大家！

非常感谢！

高手们指点，我也受益，学习了。谢谢!

如何把转化这么多的DBF合成一个DBF ？好象 APPEND FROM ATXT(I,1) SDF 没有起作用？

把12楼的代码改一下就行了
SELECT-SQL代码移出FOR ENDFOR循环

CLOSE DATABASES
I=ADIR(ATXT,[C:\Users\lenovo\Desktop\新建文件夹\*.TXT])
SELECT * FROM MOBAN WHERE .F. INTO TABLE TEMP
FOR I=1 TO ADIR(ATXT,[C:\Users\lenovo\Desktop\新建文件夹\*.TXT])
    APPEND FROM ATXT(I,1) SDF
ENDFOR

[ 本帖最后由 sdta 于 2013-7-1 12:19 编辑 ]

我在E:\下有两个*.txt文件，用了sdta的代码转换没有成功？

传上文本文件与DBF文件看看