您所在位置：主题：代码问题！
笨兔
[专家分：300] 发布于 2008-12-13 14:40:00
cTallyName=ALLTRIM(Thisform.txtTallyName.Value)
**根据工资项目列表生成新账套格式
CREATE TABLE (cTallyName)(员工编号 N(10) UNIQUE,员工姓名 C(10),所属部门 C(20))
SELECT (cTallyName)
APPEND FROM tblPerson FIELDS 员工编号,员工姓名,所属部门 &&由人员信息表复制人员信息
SELECT tblSalaryItem
SCAN
cFieldName=ALLTRIM(tblSalaryItem.fldItem) &&这换其它表就可以？？？
ALTER TABLE (cTallyName) ADD &cFieldName N(15,2) &&这句提示有问题！
ENDSCAN
ALTER TABLE (cTallyName) ADD Py C(20) &&加入存放员工姓名拼音的字段
SELECT (cTallyName)
REPLACE Py WITH ChrToPy(ALLTRIM(员工姓名)) ALL &&生成拼音码
提示：字段名称重名或无效
**根据工资项目列表生成新账套格式
CREATE TABLE (cTallyName)(员工编号 N(10) UNIQUE,员工姓名 C(10),所属部门 C(20))
SELECT (cTallyName)
APPEND FROM tblPerson FIELDS 员工编号,员工姓名,所属部门 &&由人员信息表复制人员信息
SELECT tblSalaryItem
SCAN
cFieldName=ALLTRIM(tblSalaryItem.fldItem) &&这换其它表就可以？？？
ALTER TABLE (cTallyName) ADD &cFieldName N(15,2) &&这句提示有问题！
ENDSCAN
ALTER TABLE (cTallyName) ADD Py C(20) &&加入存放员工姓名拼音的字段
SELECT (cTallyName)
REPLACE Py WITH ChrToPy(ALLTRIM(员工姓名)) ALL &&生成拼音码
提示：字段名称重名或无效
