>>在GIRD,为什么看不到结果??<<
****--设置变量
PUBLIC nDate,cAccountNo,cBookId
WITH thisform
nDate = .TxtDate.value
cAccountNo = .CbAccountno.value
cBookID = .CbBookid.value
ENDWITH
****--先做一个判断,三个选项,不为空
IF !EMPTY(nDate) .and. !EMPTY(cAccountNo) .and. !EMPTY(cBookId)
SELECT TranDate,TranNo,Desp,CertNo,Bookid,Cashin,Cashout,Refno,CatgNo,Cuserid;
from cspost ;
WHERE DAY(TranDate) = DAY(nDate).and.MONTH(trandate) = MONTH(nDate) .AND. ALLTRIM(AccNo) = ALLTRIM(cAccountNo) .and. ALLTRIM(Bookid) = ALLTRIM(cBookid);
order by TranNo;
INTO TABLE temp_daily
****--进行一个判断
IF _TALLY>0
THISFORM.GRID1.RECORDSOURCE = 'temp_daily'
ELSE
MESSAGEBOX('没有符合要求的记录!')
ENDIF
ELSE
MESSAGEBOX('请三个空格完填完!',0+32,'操作错误')
thisform.txtdate.SetFocus
ENDIF
*!* Thisform.grid1.RecordSource = temp_daily
****--表示为空,无记录
thisform.Refresh