如图：自由表 “情况记录”，时间为日期型
      在表单中查找姓名为“张三”的学生，在grid1中显示
     但不能显示日期，求助大家!

if used("cw")    
this.parent.grid1.recordsource=""
select cw
use
endif
create cursor cw (日期 D(8),姓名 c(9),迟到早退 c(50),扫地 c(50),值日 c(50),说话 c(50),睡觉 c(50),作业 c(50))         
this.parent.grid1.recordsource="cw"                    


 

IF !USED("情况记录")
        USE 情况记录 IN 0
ENDIF 
SELECT 情况记录
    
    

select * from 情况记录 where 姓名=allt(thisform.text1.value) into cursor tt
IF 姓名=allt(thisform.text1.value)

select cw

zap  

append from dbf("TT")


GO TOP 


thisform.grid1.refresh
thisform.refresh
ELSE
MESSAGEBOX("没有此人，请重新输入")
thisform.text1.Value=""
thisform.text1.setfocus
endif

[此贴子已经被作者于2018-7-6 22:52编辑过]