工作急用，关于vf下的表添加字段和合并表的问题

主题：工作急用，关于vf下的表添加字段和合并表的问题

zhwlyfxaudit [专家分：0] 发布于 2009-07-17 18:42:00

vf数据库下有很多结构相同的表，例如：dw00200,dw00203,dw00204,.......,dw01080,（00200，00203，00204.。。。。01080都是单位代码）这些表的字段都相同，字段有：code,name......,我想给每个表中添加一个字段code1,这个字段的值为00200+code.....(也就是单位编码+code),比如dw00200的code字段为100，那么添加的code1的字段为00200100，请问怎么编程实现。
如果添加code1值后，我想把dw00200,dw00203,dw00204,.......,dw01080这些表合并到一起，该怎么编程，不太懂vf，如果vf下实现不了告诉我个access下的也行，谢谢

本帖地址： http://bbs.pfan.cn/post/305399.html

回复列表（共2个回复）

沙发

qjbzjp [专家分：8830] 发布于 2009-07-17 23:27:00

1.先给表增加新字段：
ALTER TABLE 表名 ADD COLUMN code1 C(20) NULL
2.置换code1的值：
repl all code1 with "00200"+code
3.合并表
用APPEND FROM FileName 命令

板凳

fyyylyl [专家分：8550] 发布于 2009-07-20 17:07:00

设dw*.dbf均在当前工作目录data文件夹下：
cPath="data\"
nFiles=Adir(MyArray,cPath+"dw*.dbf")
If nFiles>0
    For I=1 To nFiles
       Use (cPath+MyArray(I,1)) Excl
           Alter Table Alia() Add Code1 C(20)
           Replace All Code1 With Subs(MyArray(I,1),3,Len(MyArray(I,1))-6)+Code
       Use
    Endfor
Endif

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：工作急用，关于vf下的表添加字段和合并表的问题

回复列表（共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：工作急用，关于vf下的表添加字段和合并表的问题

回复列表 （共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共2个回复）