我有个思路
use 表1 in 0
use 表2 in 0
sele 表1 
do whil !eof()
   aa = '表2.'+allt(表1.日期)
   repl &aa. with 表1.出勤日间
   skip 
enddo

交叉表

“日期”字段是什么类型？

如果“日期”字段是字符类型：

USE 表1
SET ENGINEBEHAVIOR 70 
SELECT * FROM 表1 INTO CURSOR cursor1 READWRITE group by 2
SELECT cursor1
ALTER TABLE cursor1 alter 日期 C(9)
REPLACE all 日期 with "d_"-strt(日期,"-","月",1)-"日"
GO top
COPY STRU TO mytemp EXTENDED
USE mytemp IN 0 excl
APPEND BLANK in mytemp
REPLACE mytemp.field_name with cursor1.日期 ;
            mytemp.field_type with "N",mytemp.field_len with 9 in mytemp
GO top
FOR i=2 to RECCOUNT()
    old_date=cursor1.日期
    GO i
    IF     ALLTRIM(cursor1.日期)<>ALLTRIM(old_date)
        APPEND BLANK in mytemp
        REPLACE  mytemp.field_name with cursor1.日期 ;
            mytemp.field_type with "N",mytemp.field_len with 9 in mytemp
    ENDIF 
NEXT  

SELECT mytemp
CREATE 表2 from mytemp
USE 表2
SELECT 表1
gh=0
FOR i=1 TO RECCOUNT()
    GO i
    IF 工号<>gh
        APPEND BLANK in 表2 
        REPLACE 表2.工号 WITH 表1.工号,表2.姓名 with 表1.姓名,;
表2.部门 with 表1.部门 in 表2 
        gh=工号
    ENDIF 
    c_日期="表2."-"d_"-strt(日期,"-","月",1)-"日"
    REPLACE &c_日期 WITH 表1.出勤时间 in 表2 
NEXT 
SELECT 表2
BROWSE