感謝各位大哥... 不過我嘗試一下改書上的語法,卻錯誤?!我貼一下我改的...抱歉版面有點亂:) procedure TForm1.Button1Click(Sender: TObject); VAR MAXENO : INTEGER; begin Query2.SQL.Clear; Query2.SQL.Add('SELECT MAX(ENO) AS MAXENO FROM TEST.DBF'); Query2.CLOSE; Query2.OPEN; MAXENO := Query2.FieldByName('MAXENO').AsInteger 1; Query2.SQL.Clear; Query2.SQL.Add('INSERT INTO TEST.DBF'); Query2.SQL.Add('( ENO ,'); Query2.SQL.Add(' NAME ,'); Query2.SQL.Add(' AGE ,'); Query2.SQL.Add(' ADDR '); Query2.SQL.Add(' ) VALUES ( '); Query2.SQL.Add(' ''' INTTOSTR(MAXENO) ''' ,'); Query2.SQL.Add(' ''' EDIT1.Text ''' , '); Query2.SQL.Add(' ''' EDIT2.Text ''' , '); Query2.SQL.Add(' ''' EDIT3.Text ''' ) '); Query2.ExecSQL; Query1.CLOSE; Query1.OPEN; end; 我將上述各位敎的改成 query2.sql.text :='insert into test.dbf (eno,name,age,addr) values (:eno,:name,:age,:addr)'; query2.ParamByName('eno').Asstring :=inttostr(maxeno); query2.ParamByName('name').Asstring :=edit1.Text; query2.ParamByName('age').Asstring :=edit2.Text; query2.ParamByName('addr').Asstring :=edit3.Text; 按下button後....當了 這是哪裡錯了嗎?....請各位大哥看看

附加檔案：76273_DEMO_D_UPDATE.rar

query2.ParamByName('eno').AsFloat :=maxeno; query2.ParamByName('age').AsFloat :=StrToIntDef(edit2.Text,0); 問題出在 test.dbf 中的 eno, ago 要看作 有小數點的 Float

引言: query2.ParamByName('eno').AsFloat :=maxeno; query2.ParamByName('age').AsFloat :=StrToIntDef(edit2.Text,0); 問題出在 test.dbf 中的 eno, ago 要看作 有小數點的 Float

感謝...問題解決了 謝謝cwc65536兄的指正....小弟會多注意了

呵呵~还是给cwc65536兄发现了原来是个float型！ 指定参数类型，赋值就行参考：

  Query2.ParamByName('eno1').DataType:=ftfloat;
  Query2.ParamByName('eno1').Value:=MAXENO;
  Query2.ParamByName('name1').DataType:=ftstring;
  Query2.ParamByName('name1').Value:=EDIT1.Text;
  Query2.ParamByName('age1').DataType:=ftfloat;
  Query2.ParamByName('age1').Value:=EDIT2.Text;
  Query2.ParamByName('addr1').DataType:=ftstring;
  Query2.ParamByName('addr1').Value:=EDIT3.Text; 

注：按cwc65536兄所给方法也行！ ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================