主题：如何按照年月来生成工资表表名呢？
bellma
[专家分：0] 发布于 2008-06-16 13:16:00
我想新建工资表的时候，可以按年月来起工资表的名，而且要拷贝上一个月的姓名、银行账号，怎样做？
回复列表 （共6个回复）
沙发
homayzh [专家分：7040] 发布于 2008-06-16 14:02:00
这样
NewFileName = substr(dtoc(date(),1),1,6)
CREATE TABLE &NewFileName.( 姓名 c(10),银行帐号 c(20))
OldFileName = SUBSTR(DTOC(DATE(YEAR(DATE()),MONTH(DATE())-1,DAY(DATE())),1),1,6)
APPEND FROM &OldFileName.
就可以啦，哈哈
板凳
homayzh [专家分：7040] 发布于 2008-06-16 14:12:00
*-取文件名年月到NewFileName 如 200806
NewFileName = substr(dtoc(date(),1),1,6)
*-建立表 200806.dbf
CREATE TABLE &NewFileName.( 姓名 c(10),银行帐号 c(20))
*-取上月的文件名，现在取可得 OldFildName 为200805
OldFileName = SUBSTR(DTOC(DATE(YEAR(DATE()),MONTH(DATE())-1,DAY(DATE())),1),1,6)
*-从 上个月表中得到记录
APPEND FROM &OldFileName.
3 楼
cbl518 [专家分：57140] 发布于 2008-06-16 14:16:00
创建表：
SELECT 上月工资表别名
COPY STRUCTURE TO ("Gz"+substr(dtoc(date(),1),1,6))
4 楼
cbl518 [专家分：57140] 发布于 2008-06-16 14:21:00
追加数据：
SELECT 上月工资表别名
COPY TO ARRAY ZdName FIELDS 姓名,银行账号
SELECT 0
USE ("Gz"+substr(dtoc(date(),1),1,6))
APPEND FROM ARRAY ZdName FIELDS 姓名,银行账号
5 楼
cbl518 [专家分：57140] 发布于 2008-06-16 14:23:00
WjName="Gz"+substr(dtoc(date(),1),1,6)
SELECT 上月工资表别名
COPY TO ARRAY ZdName FIELDS 姓名,银行账号
COPY STRUCTURE TO (WjName)
SELECT 0
USE (WjName)
APPEND FROM ARRAY ZdName FIELDS 姓名,银行账号
6 楼
cbl518 [专家分：57140] 发布于 2008-06-16 14:26:00
WjName="Gz"+substr(dtoc(date(),1),1,6)
SELECT 上月工资表别名
COPY STRUCTURE TO (WjName)
SELECT 0
USE (WjName)
APPEND FROM 上月工资表别名 FIELDS 姓名,银行账号
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 如何按照年月来生成工资表表名呢？