以下是引用qshuju在2014-7-9 21:36:33的发言：

我意见是：SELECT  DISTINCT 表一.科目 from 表一.dbf into table xxx
把表一中的科目不重复的写入到一个表，然后根据这个表的记录（DISTINCT不会有重复的）新建字段，
然后再用SQL语句将所需要的记录查询出来inset into 新表中。

以下是引用liuxingang28在2014-7-10 08:28:50的发言：

需要指出的是：表字段名不可能是纯数字，这是基本常识，楼主的“表二”是不存在的。可在数字前加字母或下划线作为字段名。
修改表结构，应该使用 Alter Table 命令。假设表2的字段是 _01、_02、03，可参考如下代码：
use 表2 excl in 0
select dist 成绩,科目 from 表1 into cursor curTmp
scan
    cFieldName1 = '_' + allt(成绩)
    cFieldName2 = allt(科目)
    select 表2
    if type(cFieldName1) # 'U'
        alter table 表2 rename (cFieldName1) to (cFieldName2)
    endif
endscan

以下是引用liuxingang28在2014-7-10 08:28:50的发言：

需要指出的是：表字段名不可能是纯数字，这是基本常识，楼主的“表二”是不存在的。可在数字前加字母或下划线作为字段名。
修改表结构，应该使用 Alter Table 命令。假设表2的字段是 _01、_02、03，可参考如下代码：
use 表2 excl in 0
select dist 成绩,科目 from 表1 into cursor curTmp
scan
    cFieldName1 = '_' + allt(成绩)
    cFieldName2 = allt(科目)
    select 表2
    if type(cFieldName1) # 'U'
        alter table 表2 rename (cFieldName1) to (cFieldName2)
    endif
endscan

以下是引用liuxingang28在2014-7-10 08:28:50的发言：

需要指出的是：表字段名不可能是纯数字，这是基本常识，楼主的“表二”是不存在的。可在数字前加字母或下划线作为字段名。
修改表结构，应该使用 Alter Table 命令。假设表2的字段是 _01、_02、03，可参考如下代码：
use 表2 excl in 0
select dist 成绩,科目 from 表1 into cursor curTmp
scan
    cFieldName1 = '_' + allt(成绩)
    cFieldName2 = allt(科目)
    select 表2
    if type(cFieldName1) # 'U'
        alter table 表2 rename (cFieldName1) to (cFieldName2)
    endif
endscan