Params.Clear;     Params.CreateParam(ftString ,'PARTNO', ptInput );     Params.CreateParam(ftString ,'EMPNAME', ptInput );     Params.CreateParam(ftString ,'REASONCODE', ptInput );     Params.CreateParam(ftString ,'TERMINALNAME', ptInput );     Params.CreateParam(ftString ,'DUTYCODE', ptInput );     Params.CreateParam(ftString ,'WO', ptInput);     Params.CreateParam(ftString ,'SN', ptInput);     Params.CreateParam(ftString ,'eDATE', ptInput);     Params.CreateParam(ftString ,'eDATE2', ptInput);        IF Trim(editPart.Text) <> '' Then        Params.CreateParam(ftString ,'PARTNO', ptInput );     IF Trim(editwork.Text)  '' Then Params.CreateParam(ft IF Trim(editNumber.Text) <> '' Then Params.CreateParam(ftString ,'SN', ptInput ); sS:= 'SELECT SERIAL_NUMBER,WORK_ORDER,PART_NO,EMP_NAME,REPAIR_TIME,REASON_CODE,TERMINAL_NAME, ' 'DUTY_CODE,REMARK,LOCATION ' 'FROM SAJET.G_SN_REPAIR A,SAJET.SYS_PART B,SAJET.SYS_HT_EMP C, SAJET.SYS_REASON D, SAJET.SYS_HT_TERMINAL E, SAJET.SYS_HT_DUTY F '; sS := sS 'WHERE A.MODEL_ID = B.PART_ID( ) '; sS := sS 'AND MODEL_ID LIKE :PARTNO '; sS := sS 'AND A.REPAIR_EMP_ID = C.EMP_ID( ) '; sS := sS 'AND REPAIR_EMP_ID LIKE :EMPNAME '; sS := sS 'AND A.REASON_ID = D.REASON_ID( ) '; sS := sS 'AND D.REASON_ID LIKE :REASONCODE '; sS := sS 'AND A.RP_TERMINAL_ID = E.TERMINAL_ID( ) '; sS := sS 'AND RP_TERMINAL_ID LIKE :TERMINALNAME '; sS := sS 'AND A.DUTY_ID = F.DUTY_ID( ) '; sS := sS 'AND F.DUTY_ID LIKE :DUTYCODE '; sS := sS 'AND WORK_ORDER LIKE :WO '; sS := sS 'AND SERIAL_NUMBER LIKE :SN '; sS := sS 'AND TO_CHAR(REPAIR_TIME,''YYYYMMDD'') BETWEEN :eDATE AND :eDATE2 '; sS := sS 'Order By WORK_ORDER '; CommandText := sS; IF Trim(editPart.Text) <> '' Then sS := sS 'AND MODEL_ID LIKE :PARTNO '; IF Trim(editwork.Text) <> '' Then sS := sS 'AND Work_Order LIKE :WO '; IF Trim(editNumber.Text) <> '' Then sS := sS 'AND SERIAL_NUMBER LIKE :SN '; IF Trim(editPart.Text) <> '' Then Params.ParamByName('PARTNO').AsString := Trim(editPart.Text) '%'; IF Trim(editWork.Text) <> '' Then Params.ParamByName('WO').AsString := Trim(editwork.Text) '%'; IF Trim(editNumber.Text) <> '' Then Params.ParamByName('SN').AsString := Trim(editNumber.Text) '%'; Params.ParamByName('PARTNO').AsString := Trim(editPart.Text) '%'; Params.ParamByName('WO').AsString := Trim(editWork.Text) '%'; Params.ParamByName('SN').AsString := Trim(editNumber.Text) '%'; Params.ParamByName('eDATE').AsString := FormatDateTime('YYYYMMDD',dtpkDate.Date); Params.ParamByName('eDATE2').AsString := FormatDateTime('YYYYMMDD',dtpkDate2.Date); Open; 程式可以跑 可是都抓取不到值 或是在欄位搜尋上也抓取不到 想知道到底那錯了

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

這樣子看真的不確定是為什麼～ 可是有個建議。為什麼你的日期型態不直接用ＤＡＴＥＴＩＭＥ就好了？ 不要再轉成ＳＴＲＩＮＧ了啦

------
熊的學習 http://huwk.blogspot.com