提供一个最笨的程序,你试试看。
Create Table 汇总表 (顺序号 C(3),姓名 C(8),身份证号码 C(18),出勤1月 N(4),出勤2月 N(4))
Select 表a
Scan Select 汇总表 Locate all for 顺序号=表a.顺序号 If Eof() Append blank endif Replace 顺序号 with 表a.顺序号,姓名 with 表a.姓名,身份证号码 with 表a.身份证号码,出勤1月 with 表a.出勤1月 Select 表a
Endscan
Select 表b
Scan Select 汇总表 Locate all for 顺序号=表b.顺序号 If Eof() Append blank endif Replace 顺序号 with 表b.顺序号,姓名 with 表b.姓名,身份证号码 with 表b.身份证号码,出勤2月 with 表b.出勤2月 Select 表b
Endscan
Select 汇总表
brow