：如何判断一条记录是否全空？ 答：用afields 来取得表的所有字段名称 ，在利用宏指令&查看当前字段是否为空。 备注： 此函数只适于参考 function Isemptyrecord &&Edit By daly para m_data dime fieldarray(1) =afields(fieldarray) For i=1 to alen(fieldarray)/16 Do case Case fieldarray(i,2)="C" &&如果是字符型 IF !empty(&fieldarray(i,1)) return .F. EndIF Case fieldarray(i,2)="N" IF !&fieldarray(i,1)=0 return .F. EndIF Case fieldarray(i,2)="L" EndCase EndFOr return .T. ：如何把数值转换为字符并加“，”号？ 答: 跟着下面的函数做 *************************** *把数值转为字符，并加“，”号 *************************** func addsym para m_int mcc=allt(str(m_int)) IF at('.',mcc)>0 m_n=at('.',mcc)-1 Else m_n=len(mCC) EndiF FOr i=m_n to 2 step -1 IF (m_n-i)%3=2 mcc=stuff(mcc,i,0,",") EndIF EndFOr return mcc ：如何判断记录是否为第一条记录？ 答:可以利用EOF()和BOF()函数来判断 **************************************** * 是否最后一条记录 **************************************** function endrecord m_cc=.T. IF !eof() skip 1 IF !eof() m_cc=.F. EndIF IF !bof() skip -1 EndIF EndIF IF eof() go bott EndIF Return m_Cc **************************************** * 是否第一条记录 **************************************** function beginrecord m_cc=.T. IF !bof() skip -1 IF !bof() m_cc=.F. IF !eof() skip 1 EndIF ENDIF EndIF IF eof() go bott EndIF Return m_Cc[@more@]