addrecord 这种基类,如何操作。
LPARAMETERS nStyleTHIS.Label3.Caption = THIS.cKeyField
DO CASE
CASE TYPE('THIS.cKeyValue') = "C"
THIS.Text1.Value = ""
CASE ATC(TYPE('THIS.cKeyValue'),"NYIBF") # 0
THIS.Text1.Value = 0
CASE ATC(TYPE('THIS.cKeyValue'),"DT") # 0
THIS.Text1.Value = {//}
CASE TYPE('THIS.cKeyValue') = "L"
THIS.Text1.Value = .T.
ENDCASE
是什么意思