procedure TForm.ADOQuery1RoomStateChange(Sender: TField); begin if not ADOQuery1RoomState.Value in ['A','B','R','O','C','E'] then Showmessage('輸入值錯誤'); end; [Error] Operator not applicable to this operand type 如何檢查輸入值僅限 'A,B,R,C,O,E'

改成這樣 procedure TForm.ADOQuery1RoomStateChange(Sender: TField); begin if not (ADOQuery1RoomState.Value in ['A','B','R','O','C','E']) then Showmessage('輸入值錯誤'); end;

引言: 改成這樣 procedure TForm.ADOQuery1RoomStateChange(Sender: TField); begin if not (ADOQuery1RoomState.Value in ['A','B','R','O','C','E']) then Showmessage('輸入值錯誤'); end;

改成這樣試試: procedure TForm.ADOQuery1RoomStateChange(Sender: TField); begin if not (ADOQuery1RoomState.Value[1] in ['A','B','R','O','C','E']) then Showmessage('輸入值錯誤'); end; 發表人 - lcjan 於 2005/04/06 13:42:49

解決問題 謝謝